/unmaintained/cfdg/models/rules08/rules08.factor

http://github.com/abeaumont/factor · Factor · 48 lines · 29 code · 15 blank · 4 comment · 0 complexity · e284cb0ec7427137c91ddf5e26e4d28c MD5 · raw file

  1. USING: namespaces sequences math random-weighted cfdg ;
  2. IN: cfdg.models.rules08
  3. ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  4. : insct ( -- )
  5. [ 1.5 5.5 size* -1 brightness triangle ] do
  6. 10
  7. [ [ [ 1 0.9 size* -0.15 y 0.05 brightness ] times 1 5 size* triangle ] do ]
  8. each ;
  9. ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  10. DEFER: line
  11. : ligne ( -- )
  12. {
  13. { 1 [ 4.5 y 1.15 0.8 size* -0.3 b line ] }
  14. { 0.5 [ ] }
  15. }
  16. rules ;
  17. : line ( -- ) { [ insct ligne ] } rule ;
  18. : sole ( -- )
  19. {
  20. { 1 [ 1 brightness 0.5 saturation ligne ] [ 140 r 1 hue sole ] }
  21. { 0.01 [ ] }
  22. }
  23. rules ;
  24. : centre ( -- ) { [ 1 b 5 s circle ] [ sole ] } rule ;
  25. ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  26. : init ( -- )
  27. [ -1 b ] >background
  28. { -20 40 -20 40 } viewport set
  29. [ centre ] >start-shape
  30. 0.0001 >threshold ;
  31. : run ( -- ) [ init ] cfdg-window. ;
  32. ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  33. MAIN: run