# See: www.contextfreeart.org/gallery/view.php?id=4016
startshape PIC []
CF::Size = [ s 3 ]
d = 0.6
shape PIC {
T [] GRAD [s 3 z -10000]
}
shape GRAD {
SQUARE [] GRAD [s 0.8 b 0.1 ]
}
shape T {
SWIRL [] SWIRL [[flip 90 flip 180 b 1 ]] CIRCLE [ s 0.15 y -0.25 b 1] CIRCLE [ s 0.15 y 0.25 ] T [ x d y d s 0.5 z -1 flip 180 ] T [ x -d y d s 0.5 z -1 flip 90 ] T [[ x d y -d s 0.5 z -1 flip 180 flip 90 ]] T [[ x -d y -d s 0.5 z -1 flip 90 flip 90]]
}
path SWIRL {
MOVETO( 0, 0.5) ARCTO( 0, -0.5, 0.5) ARCTO( 0, 0, 0.25) ARCTO( 0, 0.5, 0.25, CF::ArcCW) CLOSEPOLY() FILL []
}