TO CASCADE
MAKE "SQR2 SQRT 2
SETBG 0 FULLSCREEN
CS HT PU SETPOS [-70 -85] PD
MAKE "X XCOR MAKE "Y YCOR
REPEAT 5 [SIDE] PU SETX :X SETY :Y + 20 SETH 45
REPEAT 5 [TOP] PU SETX :X SETY :Y + 20 SETH 45 FD 20 SETH 0
MAKE "X XCOR MAKE "Y YCOR
REPEAT 4 [SIDE] PU SETX :X SETY :Y + 20 SETH 45
REPEAT 4 [TOP] PU SETX :X SETY :Y + 20 SETH 45 FD 20 SETH 0
MAKE "X XCOR MAKE "Y YCOR
REPEAT 3 [SIDE] PU SETX :X SETY :Y + 20 SETH 45
REPEAT 3 [TOP] PU SETX :X SETY :Y + 20 SETH 45 FD 20 SETH 0
MAKE "X XCOR MAKE "Y YCOR
SIDE SIDE PU SETX :X SETY :Y + 20 SETH 45
TOP TOP PU SETX :X SETY :Y + 20 SETH 45 FD 20 SETH 0
MAKE "X XCOR MAKE "Y YCOR
SIDE PU SETX :X SETY :Y + 20 SETH 45
TOP
END

TO TOP
SETPC 2
REPEAT 7 [
 PD FD 20 SETH 135 FD :SQR2 SETH 45 
 BK 20 PU SETH 135 FD :SQR2 SETH 45]
FD 20
END

TO SIDE
SETPC 1
REPEAT 6 [
 PD FD 20 SETH 135 FD :SQR2 SETH 0 
 BK 20 SETH 135 PU FD :SQR2 SETH 0]
PD FD 20 SETH 135 FD :SQR2 SETH 0 BK 20 PU
SETX XCOR + 1
SETPC 3
REPEAT 6 [
 PD FD 20 SETH 45 FD :SQR2 SETH 0 
 BK 20 PU SETH 45 FD :SQR2 SETH 0]
PD FD 20 SETH 45 FD :SQR2 SETH 0 BK 20 PU
SETX XCOR + 1
END

MAKEY -85
MAKEX -70
MAKESQR2 1.4142135623731