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

golden-section: use color objects

db4
Eduardo Cavazos 2008-07-28 14:59:29 -05:00
parent 4c9c8ede6f
commit 4e8ac9d7be
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/golden-section/golden-section.factor
View File

@ -27,7 +27,7 @@ IN: golden-section
: radius ( i -- radius ) pi * 720 / sin 10 * ; : radius ( i -- radius ) pi * 720 / sin 10 * ;
: color ( i -- i ) dup 360.0 / dup 0.25 1 4array >fill-color ; : color ( i -- i ) dup 360.0 / dup 0.25 1 rgba boa >fill-color ;
: line-width ( i -- i ) dup radius 0.5 * 1 max glLineWidth ; : line-width ( i -- i ) dup radius 0.5 * 1 max glLineWidth ;