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

Get some cfdg models to compile

release
Eduardo Cavazos 2007-10-08 14:52:54 -05:00
parent 48304f53b5
commit 0f8e62ee3a
3 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
extra/cfdg/models/aqua-star/aqua-star.factor
View File

@ -6,12 +6,13 @@ IN: cfdg.models.aqua-star
: tentacle ( -- ) : tentacle ( -- )
iterate? [ iterate? [
{ [ circle { { 1 [ circle
[ .23 y .99 s .002 b tentacle ] do ] [ .23 y .99 s .002 b tentacle ] do ] }
[ circle { 1 [ circle
[ .17 y 2 r .99 s .002 b tentacle ] do ] [ .17 y 2 r .99 s .002 b tentacle ] do ] }
[ circle { 1 [ circle
[ .12 y -2 r .99 s .001 b tentacle ] do ] } random call [ .12 y -2 r .99 s .001 b tentacle ] do ] } }
call-random-weighted
] when ; ] when ;
: anemone ( -- ) : anemone ( -- )

3
extra/cfdg/models/game1-turn6/game1-turn6.factor
View File

@ -1,5 +1,4 @@
USING: kernel namespaces math opengl.gl opengl.glu ui ui.gadgets.slate USING: kernel namespaces math opengl.gl opengl.glu ui ui.gadgets.slate
mortar random-weighted cfdg ; mortar random-weighted cfdg ;
@ -28,7 +27,7 @@ DEFER: start
[ 0.5 x 0.5 y 45 r f-triangles ] do [ 0.5 x 0.5 y 45 r f-triangles ] do
[ 1 y 25 r 0.9 s spiral ] do ] } [ 1 y 25 r 0.9 s spiral ] do ] }
{ 0.022 [ [ 90 flip 50 hue start ] do ] } } { 0.022 [ [ 90 flip 50 hue start ] do ] } }
random-weighted* call call-random-weighted
] when ; ] when ;
: start ( -- ) : start ( -- )

4
extra/cfdg/models/snowflake/snowflake.factor
View File

@ -11,8 +11,8 @@ iterate? [
{ 0.03 [ square { 0.03 [ square
[ 60 r spike ] do [ 60 r spike ] do
[ -60 r spike ] do [ -60 r spike ] do
[ 0.95 y 0.97 s spike ] do ] } [ 0.95 y 0.97 s spike ] do ] } }
} random-weighted* call call-random-weighted
] when ; ] when ;
: snowflake ( -- ) : snowflake ( -- )