----------------------------------------------------------------------
-- |
-- 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