keep your friends close,
keep your enemies closer
#lang racket
(require 2htdp/image)
(require lang/posn)
(require srfi/1)

(define (swastika)
(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"
"black")))
(circle 45 "solid" "white")))

(define (germany1935 #:bg (bg "red"))
(overlay
(swastika)
(rectangle 200 120 "solid" bg))) ; 3:5 ratio (official)