From 6ac694f70fdbbf218c0b3bcc76af38779a9d8070 Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Tue, 29 Jul 2008 21:16:34 -0500 Subject: [PATCH] golden-section: Use cartesian gadget --- extra/golden-section/golden-section.factor | 19 ++++++++----------- 1 file changed, 8 insertions(+), 11 deletions(-) diff --git a/extra/golden-section/golden-section.factor b/extra/golden-section/golden-section.factor index 807ef1355a..05e7f68d0a 100644 --- a/extra/golden-section/golden-section.factor +++ b/extra/golden-section/golden-section.factor @@ -2,7 +2,7 @@ USING: kernel namespaces math math.constants math.functions math.order arrays sequences 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 ; 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 ( -- ) [ - [ display ] - { 600 600 } >>pdim + + { 600 600 } >>pdim + { -400 400 } x-range + { -400 400 } y-range + [ golden-section ] >>action "Golden Section" open-window ] with-ui ; +! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + MAIN: golden-section-window