PasteRack.org
Paste # 91104
2026-02-16 14:47:26

Fork as a new paste.

Paste viewed 271 times.


Embed:

blessing

  1. #lang racket
  2. (require 2htdp/image)
  3. (require lang/posn)
  4. (define (blessing)
  5.   (overlay
  6.    (flip-horizontal
  7.     (rotate
  8.      45
  9.      (polygon (list (make-posn 0 0)
  10.                     (make-posn 36 0)
  11.                     (make-posn 36 24)
  12.                     (make-posn 48 24)
  13.                     (make-posn 48 0)
  14.                     (make-posn 60 0);
  15.                     (make-posn 60 36)
  16.                     (make-posn 36 36)
  17.                     (make-posn 36 48)
  18.                     (make-posn 60 48)
  19.                     (make-posn 60 60);
  20.                     (make-posn 24 60)
  21.                     (make-posn 24 36)
  22.                     (make-posn 12 36)
  23.                     (make-posn 12 60)
  24.                     (make-posn 0 60);
  25.                     (make-posn 0 24)
  26.                     (make-posn 24 24)
  27.                     (make-posn 24 12)
  28.                     (make-posn 0 12))
  29.               "solid"
  30.               "black")))
  31.    (circle 45 "solid" "white")
  32.    (rectangle 200 120 "solid" "red")))
  33. (blessing)

=>

image