PasteRack.org
Paste # 36733
2026-04-20 20:52:15

Fork as a new paste.

Paste viewed 98 times.


Embed:

Happy Birthday 4/20

  1. #lang racket
  2. (require 2htdp/image)
  3. (require lang/posn)
  4. (require srfi/1)
  5.  
  6. (define (swastika #:bg (bg "white")
  7.                   #:fg (fg "black"))
  8.   (overlay
  9.    (flip-horizontal
  10.     (rotate
  11.      45
  12.      (polygon (map (lambda (xy) (apply make-posn xy))
  13.                    '((0 0)
  14.                      (36 0)
  15.                      (36 24)
  16.                      (48 24)
  17.                      (48 0)
  18.                      (60 0)
  19.  
  20.                      (60 36)
  21.                      (36 36)
  22.                      (36 48)
  23.                      (60 48)
  24.                      (60 60)
  25.  
  26.                      (24 60)
  27.                      (24 36)
  28.                      (12 36)
  29.                      (12 60)
  30.                      (0 60)
  31.  
  32.                      (0 24)
  33.                      (24 24)
  34.                      (24 12)
  35.                      (0 12)))
  36.               "solid"
  37.               fg)))
  38.    (circle 45 "solid" bg)))
  39.  
  40.  
  41. (define (germany1935 #:bg (bg "red"))
  42.   (overlay
  43.    (swastika)
  44.    (rectangle 200 120 "solid" bg))) ; 3:5 ratio (official)
  45.  
  46. (define s (scale (/ 1488 200) (germany1935 #:bg (make-color #x88 #x0d #x14 255))))
  47.  
  48. s ;; to our favorite Austrian Painter

=>

image