Logo Procedure

Logo Procedure. Procedure to draw a SQUARE: ? TO SQUARE > REPEAT 4 [FD 50 RT 90] > END

Procedure to draw a RECTANGLE: ? TO RECTANGLE > REPEAT 2 [FD 30 RT 90 FD 70 RT 90] > END

Procedure to draw a CIRCLE: ? TO CIRCLE > REPEAT 360 [FD 1 RT 1] > END

Procedure to draw a TRIANGLE: ? TO TRIANGLE > REPEAT 3 [FD 60 RT 120] > END

Procedure to draw a HEXAGON: ? TO HEXAGON > REPEAT 6 [FD 50 RT 60] > END

Logo procedure using variable. Procedure to draw SQUARE: ? TO VSQ :L > REPEAT 4 [FD :L RT 90] > END

Procedure to draw RECTANGLE: ? TO VRECT :L :B > REPEAT 2 [FD :L RT 90 FD :B RT 90] > END

Procedure to draw TRIANGLE: ? TO VTRI :L > REPEAT 3 [FD :L RT 120] > END

Procedure to draw CIRCLE: ? TO VCIRCLE :A > REPEAT 360 [FD :A RT 1] > END

Procedure to draw HEXAGON: ? TO VHEX :L > REPEAT 6 [FD :L RT60] > END