Crab

by kelsey.masserant@hope.edu

This project was used to demonstrate the formula creation relating to the geometric shapes being drawn. The image of the crab uses many different procedures all connecting together in one very large string of formulas. Everything including the specific size, number, and color of shapes used were precisely done and chosen to create the most symmetrical drawing possible.

This project illustrates

• creativity
• mastery of formulas
• organized shapes
• complex image

Crab.lgo

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 RTFILL C
    PU RT 10 FD 5 PD SETPC :C PD FILL
    PU BK 5 LT 10 PD SETPC 0
END

TO RTPINCH
    RT 90 PU FD 65 RT 90 FD 35 LT 145 PD RTFILL 4 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 SETPC "WHITE (STAMPOVAL 8 16 "TRUE) 	setpc 4 PU RT 90 FD 30 LT 90 PD SETPC "WHITE (STAMPOVAL 8 16 "TRUE) setpc 4
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

TO CRAB
    DRAW
    PU FD 30 PD 
    HEX 
    HEXMOVE 
    TRIO 
    HEXMOVE2 
    OPPTRIO 
    EYES 
    RTPINCH 
    LTPINCH 
    BUBBLES
    HT
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 RT 150 FD 100 fd 65 PD CIRCLE 0.6 FILLBUB RT 190 PU FD 725 PD
    RT 200
    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

CRAB

---

Procedure	CRAB
Description	Create geometric shapes
Level	Beginner
Tags	Formulae, Shapes, Complex images