9 October 2008 - Super Procedures

MONITOR

? cs
? to varyrectangle :W :L
> repeat 2[fd :W rt 90 fd :L rt 90]
> end
VARYRECTANGLE defined.
?
?
? to varysquare :side
> repeat 4[fd :side rt 90]
> end
VARYSQUARE defined.
?
?
? to varycircle :side
> repeat 360 [fd :side rt 1]
> end
VARYCIRCLE defined.
?
?
? to varyhexagon :side
> REPEAT 6 [FD :side RT 60]
> end
VARYHEXAGON defined.
?
?
? pu
? lt 90
? fd 300
? rt 90
? pd
? varysquare 100
? pu
? lt 90
? fd 20
? rt 90
? rt 180
? fd 20
? lt 180
? pd
? varysquare 140
? pu
? fd 10
? rt 90
? fd 30
? lt 90
? pd
? varycircle 0.05
? pu
? rt 90
? fd 10
? fd 10
? lt 90
? pd
? varycircle 0.05
? pu
? rt 90
? fd 20
? lt 90
? pd
? varycircle 0.05
? pu
? rt 90
? fd 20
? fd 20
? fd 10
? fd 5
? lt 90
? pd
? varyhexagon 5
? pu
? rt 180
? fd 10
? rt 90
? fd 55
? fd 20
? fd 20
? fd 10
? lt 90
? fd 10
? lt 180
? rt 90
? fd 50
? lt 90
? lt 90
? fd 25
? rt 90
? pd
? varyrectangle 10 50
? pu
? rt 90
? fd 25
? rt 90
? fd 5
? lt 180
? pd
? stampoval 50 5
?

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.

WEEK 4: 25 AUGUST 2008

Bagi Darjah 1B, kami tidak sempat mengajar kerana kesemua guru mengambil gambar bagi kemenangan penuntut dalam sukan. Manakala darjah Pra A, mereka membuat shape dan mewarna menggunakan paint program dan IWB.

Bagi Darjah 1A dan 1C, mereka membuat shape dan menggunakan text dalam paint program.

My Students @ SR Rimba 1 (PRA 'A', DH 1A, 1B & 1C)