/g/ - Technology

>>982 (OP) 
#lang racket
(require 2htdp/image)
(require lang/posn)
(require srfi/1)
 
(define (swastika #:bg (bg "white")
                  #:fg (fg "black"))
  (overlay
   (flip-horizontal
    (rotate
     45
     (polygon (map (lambda (xy) (apply make-posn xy))
                   '((0 0)
                     (36 0)
                     (36 24)
                     (48 24)
                     (48 0)
                     (60 0)
 
                     (60 36)
                     (36 36)
                     (36 48)
                     (60 48)
                     (60 60)
 
                     (24 60)
                     (24 36)
                     (12 36)
                     (12 60)
                     (0 60)
 
                     (0 24)
                     (24 24)
                     (24 12)
                     (0 12)))
              "solid"
              fg)))
   (circle 45 "solid" bg)))
 
 
(define (germany1935 #:bg (bg "red"))
  (overlay
   (swastika)
   (rectangle 200 120 "solid" bg))) ; 3:5 ratio (official)
 
(define heil (scale (/ 1488 200) (germany1935 #:bg (make-color #x88 #x0d #x14 255))))
 
heil ;; to our favorite Austrian Painter
http://pasterack.org/pastes/36733
https://racket-lang.org/