>>106419114
The OP image inspired me to try this.
#lang racket
(require 2htdp/image)
(require lang/posn)

(define (yin #:radius (radius 50)
#:color (color "black"))
(overlay/offset
(wedge radius
180
"solid"
color)
(- radius (/ radius 2)) (- radius (/ radius 4) 1)
(rotate 180
(wedge (/ radius 2)
180
"solid"
color))))

(define (yang #:radius (radius 50)
#:color (color "white"))
(rotate 180
(yin #:radius radius
#:color color)))

(define (yin-yang #:radius (radius 50)
#:yin-color (yin-color "black")
#:yang-color (yang-color "white"))
(overlay/offset
(rotate 180
(wedge (/ radius 2)
180
"solid"
yin-color))
(- (/ radius 2)) (+ (- (/ radius 4)) 1)
(underlay/offset
(yin #:radius radius #:color yin-color)
0 (- radius (/ radius 2))
(yang #:radius radius #:color yang-color))))