# 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 []

}