Ro/Haskell/OpenGL
Open GL Resources (ro)
. Pentru cei care nu au curajul sa se apuce de OpenGL in Haskell
Descarcati si jucati Raincat
http://raincat.bysusanlin.com/
Uitati-va nitel si prin arhiva windows ca sa vedeti din ce se compune o astfel de aplicatie.
Download: Raincat 4 Windows: http://stage.gamecreation.org/raincat/raincat.win32.zip
Download: Raincat 4 Linux: http://stage.gamecreation.org/raincat/raincat.linux.tar.gz
Sursele in Haskell: http://www.gamecreation.org/file_download/18/raincat-source.zip
. Cum sa va pregatiti de lucru
Instalati The Haskell Platform pe Windows. http://hackage.haskell.org/platform/ Sau varianta 2009.2.0.2 direct de aici http://hackage.haskell.org/platform/2009.2.0.2/HaskellPlatform-2009.2.0.2-setup.exe
. Un prim exemplu luati dintre exemplele din RedBook
Ati putea incepe cu torul Torus.hs
{-
Torus.hs (adapted from torus.c which is (c) Silicon Graphics, Inc.)
Copyright (c) Sven Panne 2002-2006 <sven.panne@aedion.de>
This file is part of HOpenGL and distributed under a BSD-style license
See the file libraries/GLUT/LICENSE
This program demonstrates the creation of a display list.
-}
import Data.Char ( toLower )
import Data.IORef ( IORef, newIORef )
import System.Exit ( exitWith, ExitCode(ExitSuccess) )
import Graphics.UI.GLUT
import Control.Monad ( forM_ )
data State = State { spinX, spinY :: IORef GLfloat }
makeState :: IO State
makeState = do
x <- newIORef 0
y <- newIORef 0
return $ State { spinX = x, spinY = y }
torus :: Int -> Int -> IO ()
torus numC numT = do
let stepC = 2 * pi / fromIntegral numC :: GLfloat
stepT = 2 * pi / fromIntegral numT
forM_ [ 0 .. numC - 1 ] $ \i ->
renderPrimitive QuadStrip $
forM_ [ 0 .. numT ] $ \j ->
forM_ [ 1, 0 ] $ \k -> do
let s = (fromIntegral ((i + k) `mod` numC) + 0.5) * stepC
t = (fromIntegral ( j `mod` numT) ) * stepT
x = (1 + 0.1 * cos s) * cos t
y = (1 + 0.1 * cos s) * sin t
z = 0.1 * sin s
vertex (Vertex3 x y z)
myInit :: IO DisplayList
myInit = do
theTorus <- defineNewList Compile $
torus 8 25
shadeModel $= Flat
clearColor $= Color4 0 0 0 0
return theTorus
display :: State -> DisplayList -> DisplayCallback
display state theTorus = do
clear [ ColorBuffer ]
loadIdentity
lookAt (Vertex3 0 0 10) (Vertex3 0 0 0) (Vector3 0 1 0)
x <- get (spinX state)
rotate x (Vector3 1 0 0)
y <- get (spinY state)
rotate y (Vector3 0 1 0)
color (Color3 1 1 (1 :: GLfloat))
callList theTorus
flush
reshape :: ReshapeCallback
reshape size@(Size w h) = do
viewport $= (Position 0 0, size)
matrixMode $= Projection
loadIdentity
perspective 30 (fromIntegral w / fromIntegral h) 1 100
matrixMode $= Modelview 0
incSpin :: IORef GLfloat -> IO ()
incSpin spinRef = do
let wrap n s = max 0 (s - n)
spinRef $~ (wrap 360 . (+ 30))
postRedisplay Nothing
keyboard :: State -> KeyboardMouseCallback
keyboard state (Char c) Down _ _ = case toLower c of
'x' -> incSpin (spinX state)
'y' -> incSpin (spinY state)
'i' -> do spinX state $= 0; spinY state $= 0; postRedisplay Nothing
'\27' -> exitWith ExitSuccess
_ -> return ()
keyboard _ _ _ _ _ = return ()
main :: IO ()
main = do
(progName, _args) <- getArgsAndInitialize
initialDisplayMode $= [ SingleBuffered, RGBMode ]
initialWindowSize $= Size 200 200
createWindow progName
state <- makeState
theTorus <- myInit
reshapeCallback $= Just reshape
keyboardMouseCallback $= Just (keyboard state)
displayCallback $= display state theTorus
mainLoop
A fost disponibil la:
http://darcs.haskell.org/packages/GLUT/examples/RedBook/Torus.hs
Compilati-l folosind comanda:
ghc --make Torus.hs -package GLUT -o Torus.exe - pentru a produce Exe-uri sau ghc --make -package GLUT Torus.hs - pentru a produce executabile Linux (am testat cu GHC6 sub Ubuntu Linux 9.10 - Versiunea GNOME)
Alternativ, puteti da click pe fisierul .hs iar la prompterul GHCI puteti scrie main sau main()
Mariti fereastra aplicatiei si "rotiti" torul in jurul diverselor axe cu tastele "x" si "y". Ce alte taste mai puteti folosi...scrie in codul sursa.
Nu uitati sa copiati: glut32.dll -ul in directorul proiectului. Unde il gasiti ? Nu stiti ? Reveniti la punctul 1.
Nu uitati sa instalati pachetele cu GLUT , GL (fara versiunea 3), FreeGlut etc si tot ce mai e necesar, inclusiv acele pachete cu GL sau GLUT si DRI (Dri = Direct rendering interface, asigura rendering prin suportul hardware). Le gasiti cu programul de instalare de pachete ori cautand: ghc, GL, GLU, GLUT, FreeGlut , DRI. Pentru Raincat v-ar trebui si SDL.
. Urmatoarele ar putea fi
Cube. - fara comentarii
Planet. - folositi tasta y pentru a misca satelitul in jurul planetei. Puteti face din satelit o nava spatiala ca in Star Wars ? Ii mai lipsesc doar aripile.
Teapots. - frumoase si colorate. Va dau o idee cam ce poate face OpenGL.
Texture3D. - vedeti cum arata, tot color.
Robot - un brat de robot, articulat. Cine face o palma intreaga cu toate cele 5 degete ? E simplu!
dan2@dans2-laptop:~$ ghc --make -package GLUT Cube.hs
[1 of 1] Compiling Main ( Cube.hs, Cube.o )
Linking Cube ...
dan2@dans2-laptop:~$ ./Cube
dan2@dans2-laptop:~$ ghc --make -package GLUT Planet.hs
[1 of 1] Compiling Main ( Planet.hs, Planet.o )
Linking Planet ...
dan2@dans2-laptop:~$ ./Planet
dan2@dans2-laptop:~$ ghc --make -package GLUT Teapots.hs
[1 of 1] Compiling Main ( Teapots.hs, Teapots.o )
Linking Teapots ...
dan2@dans2-laptop:~$ ./Teapots
dan2@dans2-laptop:~$ ghc --make -package GLUT Texture3D.hs
[1 of 1] Compiling Main ( Texture3D.hs, Texture3D.o )
Linking Texture3D ...
dan2@dans2-laptop:~$ ./Texture3D
dan2@dans2-laptop:~$ ghc --make -package GLUT Robot.hs
[1 of 1] Compiling Main ( Robot.hs, Robot.o )
Linking Robot ...
dan2@dans2-laptop:~$ ./Robot
.Pregatiti-va sa cititi o carte despre OpenGL
stiind ca el
- este doar un mediu grafic pentru afisare 3D, gestiunea datelor despre obiectele din spatiul 3D ramane programatorului
- trebuie sa-i furnizati - ca unui joc - functii pentru ecran si tastatura si apoi sa activati motorul grafic
- are mai multe moduri de lucru: (Display, Matrix etc. aici mai am de povestit...paragraf in lucru.)
- totdeauna se recomanda sa definiti un corp articulat, de exemplu un brat de robot , intr-un reper de coordonate plasat in punctul de articulatie. Revedeti Robot.hs
- transformarile geometrice - translatii, rotatii - se exprima prin produse de matrice
- matricea identitate este element neutru la inmultire
- obtineti inversa unei succcesiuni de transformari calculand produsul inverselor matricelor transformarilor
- functiile de nivel superior din Haskell rezolva superb nevoia de a aplica transformari pe o intreaga scena alcatuita din obiectel sau pe toate triunghiurile unei suprafete sau pe toate colturile unui obiect din scena... asa ca: map, fold, foldl, foldr si altele sunt numai bune de folosit.
La pagina despre Programare functionala gasiti un celebru articol despre fold-uri.
.Mini Bibliografie On Line
OpenGLTutorial1 http://www.haskell.org/haskellwiki/OpenGLTutorial1
HOpenGL - 3D Graphics with Haskell http://public.beuth-hochschule.de/~panitz/hopengl/skript.html
OpenGL in Haskell http://www.haskell.org/haskellwiki/Opengl
Exemplele din RedBook http://darcs.haskell.org/packages/GLUT/examples/RedBook/
Si ordinea lor in carte http://darcs.haskell.org/packages/GLUT/examples/RedBook/00-README
Alte biblioteci grafice: SDL, WxWidgets http://www.haskell.org/haskellwiki/Cookbook/Graphical_user_interfaces
Beautifull Code. De altfel imaginile generate merita aprecierea de "beautifull". <Download> al acestui volum de grafica in Open GL si Haskell. Link extern, s-ar putea sa nu mai fie disponibila cartea ! Cautati-o si la Biblioteca - vedeti ca s-a mutat la alta pagina sau la pagina Ce merita sa cititi.
. Intrebari despre OpenGL
In ce ordine sa studiem exemplele din RedBook ? R: In ordinea lor din carte pe care o gasiti aici. http://darcs.haskell.org/packages/GLUT/examples/RedBook/00-README (link extern)
. Extra lectures / Lecturi suplimentare
Lumea se ocupa de OpenGL in Haskell intuind potentialul combinatiei. Bloguri, articole, exemple, idei ... cautati printre paginile indexate aici: http://swik.net/Haskell+3D (link extern)
Lista de documentatii despre functii http://hackage.haskell.org/packages/archive/OpenGL/latest/doc/html/
O documentatie in format PDF despre GLUT3.
OpenGL apelat din alte limbaje: Aici din Python. (link ext.)
Versiuni ale cartii numite Red Book
OpenGL apelat din C: Aici. (link ext.) Descarcati intregul set de exemple din RedBook scrise in C de aici.
Una dintre primele versiuni ale volumului numit apoi RedBook: (extern)
Si editia a 5-a a cartii "OpenGL programming guide". (pe acest site) Sau descarcati de aici!
Despre coordonatele omogene cititi direct de aici.
O versiune a site-ului cartii "OpenGL Programming Guide" facuta .pdf gasiti aici. (link ext.)
Alta versiune a vol OpenGL Programming Guide (Addison-Wesley Publishing Company) e aici in format .PDF. Sunt in total vreo 30 de versiuni.