TO SPRIT1
PD
REPEAT 4 [FD 5 BK 5 LT 90 FD 5 BK 15 FD 5 RT 90 FD 5 BK 20 RT 90 FD 17.500000000476 BK 5 LT 90 FD 5 BK 20 RT 90 FD 20 BK 5 LT 90 FD 5 BK 17.500000000476 RT 90 FD 15]
END
TO CENTER
PU
HOME
PD
PC WHITE
FD 10
RT 90
FD 4
RT 90
FD 3
LT 90
FD 2
LT 90
FD 3
RT 90
FD 4
RT 90
FD 10
RT 90
FD 4
RT 90
FD 3
LT 90
FD 2
LT 90
FD 3
RT 90
FD 4
END
TO MOVE5
PU
FD 20
LT 90
FD 5
RT 180
END
TO MOVE4
RT 180
PU
FD 40
RT 90
FD 85
PD
END
TO RING1
PD
PC YELLOW
FD 20
RT 90
FD 15
REPEAT 3 [LT 90 FD 15 RT 90 FD 20 RT 90 FD 15]
LT 90
FD 15
END
TO MOVE7
PU
RT 90
FD 12.500000000238
LT 90
FD 15
PD
END
TO RING2
PD
PC PURPLE
FD 12.500000000238
LT 90
FD 15
RT 90
FD 5
RT 90
FD 15
LT 90
FD 12.500000000238
RT 90
FD 15
LT 90
FD 15
RT 90
FD 12.500000000238
LT 90
FD 15
RT 90
FD 5
RT 90
FD 15
LT 90
FD 12.500000000238
RT 90
FD 15
LT 90
FD 15
RT 90
FD 12.500000000238
LT 90
FD 15
RT 90
FD 5
RT 90
FD 15
LT 90
FD 12.500000000238
RT 90
FD 15
LT 90
FD 15
RT 90
FD 12.500000000238
LT 90
FD 15
RT 90
FD 5
RT 90
FD 15
LT 90
FD 12.500000000238
RT 90
FD 15
LT 90
FD 15
END
TO MOVE6
PU
LT 90
FD 5
RT 90
FD 5
RT 90
END
TO CORNER4
PD
FD 45
RT 90
FD 10
REPEAT 3 [RT 90 FD 5 LT 90 FD 5 LT 90 FD 5 RT 90 FD 5]
RT 90
FD 10
REPEAT 7 [RT 90 FD 5 LT 90 FD 5]
RT 90
FD 5
END
TO MOVE1
PU
RT 45
FD 15
LT 45
PD
END
TO CORNER3
PD
RT 90
FD 10
REPEAT 7 [LT 90 FD 5 RT 90 FD 5]
LT 90
FD 5
LT 90
FD 45
LT 90
FD 10
REPEAT 3 [LT 90 FD 5 RT 90 FD 5 RT 90 FD 5 LT 90 FD 5]
END
TO CORNER2
PD
FD 45
RT 90
FD 10
REPEAT 3 [RT 90 FD 5 LT 90 FD 5 LT 90 FD 5 RT 90 FD 5]
RT 90
FD 10
REPEAT 7 [RT 90 FD 5 LT 90 FD 5]
RT 90
FD 5
END
TO MOVE3
PU
RT 90
FD 45
RT 90
FD 90
END
TO CORNER1
PD
PC WHITE
FD 45
RT 90
REPEAT 7 [FD 5 RT 90 FD 5 LT 90]
FD 5
RT 90
FD 10
RT 90
REPEAT 3 [FD 5 RT 90 FD 5 LT 90 FD 5 LT 90 FD 5 RT 90]
FD 10
END
TO MOVE2
PU
RT 90
FD 85
PD
END
TO STEP1
HT
BG RED
SHELL
MOVE1
CORNER1
MOVE2
CORNER2
MOVE3
CORNER3
MOVE4
CORNER4
CENTER
MOVE5
RING1
MOVE6
RING2
MOVE7
SPRIT1
HUG_THE_RUG
END
TO HUG_THE_RUG
PU
HOME
FD 100
LT 90
FD 45
RT 90
PD
BOLD
BOLD
SHADOW
BOLD
SHADOW
PC BLUE
LABEL `HUG THE RUG`
END
TO SHELL
PU
LT 90
FD 70
LT 90
FD 70
RT 180
PD
PC BLACK
REPEAT 4 [FD 150 RT 90]
END