39 lines
853 B
Factor
39 lines
853 B
Factor
|
|
USING: kernel namespaces sequences math
|
|
opengl.gl opengl.glu ui ui.gadgets.slate
|
|
random-weighted cfdg ;
|
|
|
|
IN: cfdg.models.chiaroscuro
|
|
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
|
|
DEFER: white
|
|
|
|
: black ( -- )
|
|
{
|
|
{ 60 [ 0.6 s circle ] [ 0.1 x 5 r 0.99 s -0.01 b -0.01 a black ] }
|
|
{ 1 [ white black ] }
|
|
}
|
|
rules ;
|
|
|
|
: white ( -- )
|
|
{
|
|
{ 60 [ 0.6 s circle ] [ 0.1 x -5 r 0.99 s 0.01 b -0.01 a white ] }
|
|
{ 1 [ black white ] }
|
|
}
|
|
rules ;
|
|
|
|
: chiaroscuro ( -- ) { [ 0.5 b black ] } rule ;
|
|
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
|
|
: init ( -- )
|
|
[ -0.5 b ] >background
|
|
{ -3 6 -2 6 } >viewport
|
|
0.03 >threshold
|
|
[ chiaroscuro ] >start-shape ;
|
|
|
|
: run ( -- ) [ init ] cfdg-window. ;
|
|
|
|
MAIN: run
|