2 October 2008 - Logo procedures (TEST)

RECTANGLE




? cs
? to varyrectangle :W :L
> repeat 2[fd :W rt 90 fd :L rt 90]
> end
VARYRECTANGLE defined.
________________________________________

SQUARE



? to varysquare :side
> repeat 4[fd :side rt 90]
> end
VARYSQUARE defined.
________________________________________

CIRCLE




? to varycircle :side
> repeat 360 [fd :side rt 1]
> end
VARYCIRCLE defined.
________________________________________

HEXAGON



? to varyhexagon :side
> REPEAT 6 [FD :side RT 60]
> end
VARYHEXAGON defined.
________________________________________

TRIANGLE




? to varytriangle :side
> repeat 3 [fd :side rt 120]
> end
VARYTRIANGLE defined.