Advertisement
Guest User

blessing.rkt

a guest
Jan 23rd, 2022
118
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scheme 1.02 KB | None
  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.  
  16.                     (make-posn 60 36)
  17.                     (make-posn 36 36)
  18.                     (make-posn 36 48)
  19.                     (make-posn 60 48)
  20.                     (make-posn 60 60)
  21.  
  22.                     (make-posn 24 60)
  23.                     (make-posn 24 36)
  24.                     (make-posn 12 36)
  25.                     (make-posn 12 60)
  26.                     (make-posn 0 60)
  27.  
  28.                     (make-posn 0 24)
  29.                     (make-posn 24 24)
  30.                     (make-posn 24 12)
  31.                     (make-posn 0 12))
  32.               "solid"
  33.               "black")))
  34.    (circle 45 "solid" "white")
  35.    (rectangle 200 120 "solid" "red")))
  36.  
  37. (blessing)
  38.  
Advertisement
RAW Paste Data Copied
Advertisement