From 4e8ac9d7be361774018c159fc9b277d5f93df44a Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Mon, 28 Jul 2008 14:59:29 -0500 Subject: [PATCH] golden-section: use color objects --- extra/golden-section/golden-section.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/golden-section/golden-section.factor b/extra/golden-section/golden-section.factor index a83dc988fd..807ef1355a 100644 --- a/extra/golden-section/golden-section.factor +++ b/extra/golden-section/golden-section.factor @@ -27,7 +27,7 @@ IN: golden-section : 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 ;