/examples/cfdg/models/chiaroscuro/source.scm

http://github.com/dharmatech/abstracting · Scheme · 67 lines · 55 code · 10 blank · 2 comment · 0 complexity · 286ad2263fac1d2bcd5fb950d85dd519 MD5 · raw file 

    

  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    2. 

  2. 

  3. (define (black)
    4. 

  4.   (when (iterate?)
    5. 

  5.         (call-random-weighted
    6. 

  6.          (vec
    7. 

  7.           (vec 60 (lambda ()
    8. 

  8.                     (block
    9. 

  9.                      (lambda ()
    10. 

  10.                        (size 0.6)
    11. 

  11.                        (circle)))
    12. 

  12.                     (block
    13. 

  13.                      (lambda ()
    14. 

  14.                        (x 0.1)
    15. 

  15.                        (rotate 5)
    16. 

  16.                        (size 0.99)
    17. 

  17.                        (brightness -0.01)
    18. 

  18.                        (alpha -0.01)
    19. 

  19.                        (black)))))
    20. 

  20.           (vec 1 (lambda ()
    21. 

  21.                    (block
    22. 

  22.                     (lambda ()
    23. 

  23.                       (white)
    24. 

  24.                       (black)))))))))
    25. 

  25. 

  26. (define (white)
    27. 

  27.   (when (iterate?)
    28. 

  28.         (call-random-weighted
    29. 

  29.          (vec
    30. 

  30.           (vec 60 (lambda ()
    31. 

  31.                     (block
    32. 

  32.                      (lambda ()
    33. 

  33.                        (size 0.6)
    34. 

  34.                        (circle)))
    35. 

  35.                     (block
    36. 

  36.                      (lambda ()
    37. 

  37.                        (x 0.1)
    38. 

  38.                        (rotate -5)
    39. 

  39.                        (size 0.99)
    40. 

  40.                        (brightness 0.01)
    41. 

  41.                        (alpha -0.01)
    42. 

  42.                        (white)))))
    43. 

  43.           (vec 1 (lambda ()
    44. 

  44.                    (block
    45. 

  45.                     (lambda ()
    46. 

  46.                       (black)
    47. 

  47.                       (white)))))))))
    48. 

  48. 

  49. (define (chiaroscuro)
    50. 

  50.   (when (iterate?)
    51. 

  51.         (block
    52. 

  52.          (lambda ()
    53. 

  53.            (brightness 0.5)
    54. 

  54.            (black)))))
    55. 

  55. 

  56. (set! *background* (lambda () (brightness -0.5)))
    57. 

  57. 

  58. (set! *viewport* (vec -3 6 -2 6))
    59. 

  59. 

  60. (set! *threshold* 0.03)
    61. 

  61. 

  62. (set! *start-shape* (lambda () (chiaroscuro)))
    63. 

  63. 

  64. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    65. 

  65. 

  66. (run-model)
    67.