From 83965c8564a0d89e896242b18acb4b9744a23592 Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Wed, 3 Dec 2008 08:53:43 -0600 Subject: [PATCH] cfdg: Use 'specialized-arrays.double' --- extra/cfdg/cfdg.factor | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/extra/cfdg/cfdg.factor b/extra/cfdg/cfdg.factor index 58772e23e0..e1c89374fd 100644 --- a/extra/cfdg/cfdg.factor +++ b/extra/cfdg/cfdg.factor @@ -6,8 +6,10 @@ USING: kernel alien.c-types combinators namespaces make arrays vars colors self self.slots random-weighted colors.hsv cfdg.gl accessors ui.gadgets.handler ui.gestures assocs ui.gadgets macros - qualified speicalized-arrays.double ; + qualified specialized-arrays.double ; + QUALIFIED: syntax + IN: cfdg ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! @@ -53,7 +55,10 @@ VAR: color-stack ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -: double-nth* ( c-array indices -- seq ) swap [ double-nth ] curry map ; +! : double-nth* ( c-array indices -- seq ) swap [ double-nth ] curry map ; + +: double-nth* ( c-array indices -- seq ) + swap byte-array>double-array [ nth ] curry map ; : check-size ( modelview -- num ) { 0 1 4 5 } double-nth* [ abs ] map biggest ;