New cfdg model: rules08
parent
5487188424
commit
0a118d174e
|
@ -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
|
Loading…
Reference in New Issue