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

golden-section: Use cartesian gadget

db4
Eduardo Cavazos 2008-07-29 21:16:34 -05:00
parent 0b9e6538c0
commit 6ac694f70f
1 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2,7 +2,7 @@
USING: kernel namespaces math math.constants math.functions math.order USING: kernel namespaces math math.constants math.functions math.order
arrays sequences arrays sequences
opengl opengl.gl opengl.glu ui ui.render ui.gadgets ui.gadgets.theme opengl opengl.gl opengl.glu ui ui.render ui.gadgets ui.gadgets.theme
ui.gadgets.slate colors accessors combinators.cleave ui.gadgets.cartesian colors accessors combinators.cleave
processing.shapes ; processing.shapes ;
IN: golden-section IN: golden-section
@ -39,20 +39,17 @@ IN: golden-section
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: display ( -- )
GL_PROJECTION glMatrixMode
glLoadIdentity
-400 400 -400 400 -1 1 glOrtho
GL_MODELVIEW glMatrixMode
glLoadIdentity
golden-section ;
: golden-section-window ( -- ) : golden-section-window ( -- )
[ [
[ display ] <slate> <cartesian>
{ 600 600 } >>pdim { 600 600 } >>pdim
{ -400 400 } x-range
{ -400 400 } y-range
[ golden-section ] >>action
"Golden Section" open-window "Golden Section" open-window
] ]
with-ui ; with-ui ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
MAIN: golden-section-window MAIN: golden-section-window