steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix bunny for float array change

db4
Slava Pestov 2008-07-02 16:26:10 -05:00
parent aeb2b9d701
commit 9d512b3313
2 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/bunny/bunny.factor
View File

@ -42,13 +42,15 @@ M: bunny-gadget ungraft* ( gadget -- )
[ draw-seq>> [ [ dispose ] when* ] each ] bi ; [ draw-seq>> [ [ dispose ] when* ] each ] bi ;
M: bunny-gadget draw-gadget* ( gadget -- ) M: bunny-gadget draw-gadget* ( gadget -- )
dup draw-seq>> empty? [ drop ] [
0.15 0.15 0.15 1.0 glClearColor 0.15 0.15 0.15 1.0 glClearColor
GL_DEPTH_BUFFER_BIT GL_COLOR_BUFFER_BIT bitor glClear GL_DEPTH_BUFFER_BIT GL_COLOR_BUFFER_BIT bitor glClear
dup demo-gadget-set-matrices dup demo-gadget-set-matrices
GL_MODELVIEW glMatrixMode GL_MODELVIEW glMatrixMode
0.02 -0.105 0.0 glTranslatef 0.02 -0.105 0.0 glTranslatef
{ geom>> bunny-gadget-draw } get-slots { geom>> bunny-gadget-draw } get-slots
draw-bunny ; draw-bunny
] if ;
M: bunny-gadget pref-dim* ( gadget -- dim ) M: bunny-gadget pref-dim* ( gadget -- dim )
drop { 640 480 } ; drop { 640 480 } ;

2
extra/bunny/model/model.factor
View File

@ -66,7 +66,7 @@ TUPLE: bunny-buffers array element-array nv ni ;
{ {
[ [
[ first concat ] [ second concat ] bi [ first concat ] [ second concat ] bi
append >float-array append >c-double-array
GL_ARRAY_BUFFER swap GL_STATIC_DRAW <gl-buffer> GL_ARRAY_BUFFER swap GL_STATIC_DRAW <gl-buffer>
] ]
[ [