----------------------------------------------------------------------
-- |
-- Module : Main
-- Copyright : (c) Mark Wassell 2008
-- License : LGPL
--
-- Maintainer : mwassell@bigpond.net.au
-- Stability : experimental
-- Portability : portable
--
-- Example scenegraphs. See SimpleViewPort.hs for how to navigate around the
-- scene. See Library.hs for the construction of the examples
----------------------------------------------------------------------
module Main where
import Graphics.SceneGraph
-- Button and 'Hello World' text.
ex1 = runScene sceneButton
ex2 = runScene $ osgt $ cube 0.5 `colour` Green `scale` v1x 40 `translate` vy 2 <+> camera `translate` vy (-10) <+> light `translate` vz 10
-- An Ancient Egyptian Calculator
ex3 = runScene calculator
-- Tux the penguin
ex4 = runScene tuxAndToys