-USING: alien alien.c-types arrays sequences math math.vectors
-math.matrices math.parser io io.files kernel opengl opengl.gl
-opengl.glu shuffle http.client vectors namespaces ui.gadgets
-ui.gadgets.canvas ui.render ui splitting combinators tools.time
-system combinators.lib float-arrays continuations
-opengl.demo-support multiline ui.gestures bunny.fixed-pipeline
-bunny.cel-shaded bunny.outlined bunny.model ;
+USING: accessors arrays bunny.cel-shaded bunny.fixed-pipeline
+bunny.model bunny.outlined destructors kernel math opengl.demo-support
+opengl.gl sequences ui ui.gadgets ui.gadgets.worlds ui.gestures
+ui.render words ui.pixel-formats ;
IN: bunny
-TUPLE: bunny-gadget model geom draw-seq draw-n ;
+TUPLE: bunny-world < demo-world model-triangles geom draw-seq draw-n ;
-: <bunny-gadget> ( -- bunny-gadget )
- 0.0 0.0 0.375 <demo-gadget>
- maybe-download read-model {
- set-delegate
- set-bunny-gadget-model
- } bunny-gadget construct ;
+: get-draw ( gadget -- draw )
+ [ draw-n>> ] [ draw-seq>> ] bi nth ;
-: bunny-gadget-draw ( gadget -- draw )
- { bunny-gadget-draw-n bunny-gadget-draw-seq }
- get-slots nth ;
+: next-draw ( gadget -- )
+ dup [ draw-seq>> ] [ draw-n>> ] bi
+ 1 + swap length mod
+ >>draw-n relayout-1 ;
-: bunny-gadget-next-draw ( gadget -- )
- dup { bunny-gadget-draw-seq bunny-gadget-draw-n }
- get-slots
- 1+ swap length mod
- swap [ set-bunny-gadget-draw-n ] keep relayout-1 ;
+: make-draws ( gadget -- draw-seq )
+ [ <bunny-fixed-pipeline> ]
+ [ <bunny-cel-shaded> ]
+ [ <bunny-outlined> ] tri 3array
+ sift ;
-M: bunny-gadget graft* ( gadget -- )
+M: bunny-world begin-world
GL_DEPTH_TEST glEnable
- dup bunny-gadget-model <bunny-geom>
- over {
- [ <bunny-fixed-pipeline> ]
- [ <bunny-cel-shaded> ]
- [ <bunny-outlined> ]
- } map-call-with [ ] filter
- 0
- roll {
- set-bunny-gadget-geom
- set-bunny-gadget-draw-seq
- set-bunny-gadget-draw-n
- } set-slots ;
+ 0.0 0.0 0.375 set-demo-orientation
+ maybe-download read-model
+ [ >>model-triangles ] [ <bunny-geom> >>geom ] bi
+ dup make-draws >>draw-seq
+ 0 >>draw-n
+ drop ;
-M: bunny-gadget ungraft* ( gadget -- )
- { bunny-gadget-geom bunny-gadget-draw-seq } get-slots
- [ [ dispose ] when* ] each
- [ dispose ] when* ;
+M: bunny-world end-world
+ dup find-gl-context
+ [ geom>> [ dispose ] when* ]
+ [ draw-seq>> [ [ dispose ] when* ] each ] bi ;
-M: bunny-gadget draw-gadget* ( gadget -- )
- 0.15 0.15 0.15 1.0 glClearColor
- GL_DEPTH_BUFFER_BIT GL_COLOR_BUFFER_BIT bitor glClear
- dup demo-gadget-set-matrices
- GL_MODELVIEW glMatrixMode
- 0.02 -0.105 0.0 glTranslatef
- { bunny-gadget-geom bunny-gadget-draw } get-slots
- draw-bunny ;
+M: bunny-world draw-world*
+ dup draw-seq>> empty? [ drop ] [
+ 0.15 0.15 0.15 1.0 glClearColor
+ GL_DEPTH_BUFFER_BIT GL_COLOR_BUFFER_BIT bitor glClear
+ dup demo-world-set-matrix
+ GL_MODELVIEW glMatrixMode
+ 0.02 -0.105 0.0 glTranslatef
+ [ geom>> ] [ get-draw ] bi draw-bunny
+ ] if ;
-M: bunny-gadget pref-dim* ( gadget -- dim )
+M: bunny-world pref-dim* ( gadget -- dim )
drop { 640 480 } ;
-bunny-gadget H{
- { T{ key-down f f "TAB" } [ bunny-gadget-next-draw ] }
+bunny-world H{
+ { T{ key-down f f "TAB" } [ next-draw ] }
} set-gestures
: bunny-window ( -- )
- [ <bunny-gadget> "Bunny" open-window ] with-ui ;
+ [
+ f T{ world-attributes
+ { world-class bunny-world }
+ { title "Bunny" }
+ { pixel-format-attributes {
+ windowed
+ double-buffered
+ T{ depth-bits { value 16 } }
+ } }
+ } open-window
+ ] with-ui ;
MAIN: bunny-window