From 0a118d174eae2911c5378c5a0c9ce5263be64073 Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Fri, 1 Aug 2008 23:18:36 -0500 Subject: [PATCH] New cfdg model: rules08 --- extra/cfdg/models/rules08/rules08.factor | 63 ++++++++++++++++++++++++ 1 file changed, 63 insertions(+) create mode 100644 extra/cfdg/models/rules08/rules08.factor diff --git a/extra/cfdg/models/rules08/rules08.factor b/extra/cfdg/models/rules08/rules08.factor new file mode 100644 index 0000000000..55f0ddcfea --- /dev/null +++ b/extra/cfdg/models/rules08/rules08.factor @@ -0,0 +1,63 @@ + +USING: namespaces sequences math random-weighted cfdg ; + +IN: cfdg.models.rules08 + +! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +: insct ( -- ) + [ 1.5 5.5 size* -1 brightness triangle ] do + 10 + [ [ [ 1 0.9 size* -0.15 y 0.05 brightness ] times 1 5 size* triangle ] do ] + each ; + +! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +DEFER: line + +: ligne ( -- ) + { + { 1 [ 1.15 0.8 size* 4.5 y -0.3 b line ] do } + { 0.5 [ ] } + } + call-random-weighted ; + +! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +: line ( -- ) [ insct ligne ] recursive ; + +! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +: sole ( -- ) + [ + { + { + 1 [ + [ 1 brightness 0.5 saturation ligne ] do + [ 140 r 1 hue sole ] do + ] + } + { 0.01 [ ] } + } + call-random-weighted + ] + recursive ; + +! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +: centre ( -- ) + [ 1 b 5 s circle ] do + [ sole ] do ; + +! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +: run ( -- ) + [ -1 b ] >background + { -20 40 -20 40 } viewport set + [ centre ] >start-shape + 0.0001 >threshold + cfdg-window ; + +! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +MAIN: run \ No newline at end of file