TO TRIO
	REPEAT 3 [RECT 40 15 RTFILL 4 RT 90 FD 15 PU FD 15 LT 90 PD]
	LT 90 PU FD 90 RT 90 FD 55 PD
	REPEAT 3 [PARLL 35 15]
	
	
	
END

TO CIRCLE S
	REPEAT 360 [FD S RT 5 FD S RT 5]
END

TO OPPTRIO
	REPEAT 3 [RECT 40 15 RTFILL 4 RT 90 FD 15 PU FD 15 LT 90 PD]
	PU FD 55 RT 90 BK 15 LT 90 PD
	REPEAT 3 [PARLL2 35 15]
	
	
	
	
END

TO HEX
	RT 90 FD 80 RT 40 FD 90 RT 100 FD 90 RT 40 FD 80 RT 40 FD 90 RT 100 FD 90 RT 40
	RTFILL 4
	
END

TO RTTRI S
	FD S RT 90 FD S * SQRT (3) RT 150 FD 2 * S RT 120
END

TO HEXMOVE
	FD 80 RT 40 FD 90 PU FD 15 RT 7 PD
	
	
END

TO BUBBLES
	PU FD 200 RTFILL 1 PD CIRCLE 0.5 RT 90
	FD 2 RTFILL 9 PU FD 75 PD CIRCLE 1 FILLBUB PU LT 30 FD 75 PD
	CIRCLE 1 FILLBUB RT 20 PU FD 90 PD CIRCLE 0.75 FILLBUB
	PU FD 275 PD CIRCLE 0.6 FILLBUB RT 190 PU FD 375 PD
	CIRCLE 1 FILLBUB LT 150 PU FD 75 PD CIRCLE 0.5 FILLBUB
	RT 100 PU FD 50 PD CIRCLE 0.4 FILLBUB RT 170 PU FD 75 PD
	CIRCLE 0.75 FILLBUB RT 180 PU FD 65 PD CIRCLE 1 FILLBUB
	LT 125 PU FD 85 PD CIRCLE 0.75 FILLBUB
END

TO RTFILL C
	PU RT 10 FD 5 PD SETPC :C PD FILL
	PU BK 5 LT 10 PD SETPC 0
END

TO CRAB
	PU FD 30 PD HEX HEXMOVE TRIO HEXMOVE2 OPPTRIO EYES
	RTPINCH LTPINCH BUBBLES
END

TO RTPINCH
	RT 90 PU FD 65 RT 90 FD 35 LT 145 PD RECT 40 25
	RTFILL 4 PU FD 50 PD LT 30 RECT 35 18 RTFILL 4
	PU FD 50 LT 30 PD RTTRI 20 RTFILL 4 RT 110 PU FD 15
	LT 40 PD RTTRI2 40 RT 120 RTFILL 4
END

TO LTPINCH
	PU RT 140 FD 100 RT 90 LT 10 FD 210 RT 45 PD RECT 40 25
	FD 10 RTFILL 4 PU FD 30 RT 90 FD 25 LT 50 FD 10 LT 90
	FD 25 RT 90 PD RECT 35 18 FD 10 RTFILL 4 PU FD 40 LT 100
	PD RTTRI 40 RTFILL 4 RT 180 PU FD 15 LT 115 PD RTTRI2 20
	BK 10 RTFILL 4
END

TO FILLBUB
	RT 90 FD 2 RTFILL 9
END

TO EYES
	PU LT 220 FD 205 RT 90 FD 50 LT 90 PD STAMPOVAL 8 16 PU RT 90 FD 30 LT 90 PD STAMPOVAL 8 16
END

TO RECT L W
	REPEAT 2 [FD L RT 90 FD W RT 90] RTFILL 4
END

TO PARLL2 L W
	REPEAT 2 [LT 40 FD L LT 50 FD W LT 90] LT 90 RTFILL 4
	PU FD 2 * W RT 90 PD
END

TO PARLL L W
	REPEAT 2 [RT 40 FD L RT 50 FD W RT 90] RT 40 RTFILL 4
	RT 50 PU FD 2 * W LT 90 PD
END

TO RTTRI2 S
	FD 2 * S RT 150 FD S * SQRT (3) RT 90 FD S
END

TO MOVE S
	PU LT 90 FD 2.5 * S LT 90 FD 1.5 * S RT 180 PD
END

TO MOVE2 S
	PU FD 1.5 * S LT 90 FD 2 * S RT 180 PD
END

TO HEXMOVE2
	PU BK 50 RT 135 FD 108 LT 50 PD
	
	
	
END