PasteRack.org
Paste # 75063
2022-06-16 14:48:57

Fork as a new paste.

Paste viewed 906 times.


Embed:

Вопрос

  1. #lang racket
  2. (require 2htdp/image)
  3.  
  4. (define R 100)
  5.  
  7. (define (ring-color x)
  8.   [case x
  9.     ['b 'blue]
  10.     ['r 'red]
  11.     ['g 'green]
  12.     ['y 'yellow]
  13.     ])
  14. (define (draw-ring xs)
  15.   (let ([r (/ (* 2 R) (length xs))]
  16.         [step (/ 360 (length xs))])
  17.  
  18.   (foldr (λ (x s)
  19.            (rotate step (if (not x) s
  20.                           (overlay/offset
  21.                            (circle r 'outline (ring-color x))
  22.                            0 R
  23.                            s))))
  24.          (circle R 'outline 'black)
  25.          xs)))
  26.  
  28. (define (draw-game-telega commands rings)
  29.     (foldl
  30.      (λ (x y)
  31.        (if (not x) y
  32.            (case (car x)
  33.              [':draw (draw-ring (hash-ref rings (second x)))]
  34.              [':to-right  (overlay/offset
  35.                            (draw-ring  (hash-ref rings (third x)))
  36.                            (second x) 0
  37.                            y)])))
  38.  
  39.      (square R 0 'black)
  40.      commands))
  41.  
  43. (draw-game-telega (list (list ':draw 'circle1) (list ':to-right R 'circle2))
  44.                    (make-hash
  45.                (list
  46.                 (cons 'circle1 '(b b b g y y y y y y y y y y y b b b b g b b b))
  47.                 (cons 'circle2 '(b b b g b b b b b b b b b b b b b b b g b b b)))))

=>

image