27 lines
650 B
Plaintext
27 lines
650 B
Plaintext
100 PROGRAM "Pythagor.bas"
|
|
110 OPTION ANGLE DEGREES
|
|
120 LET SQ2=SQR(2)
|
|
130 SET VIDEO MODE 1:SET VIDEO COLOUR 0:SET VIDEO X 42:SET VIDEO Y 25
|
|
140 OPEN #101:"video:"
|
|
150 SET PALETTE 0,141
|
|
160 DISPLAY #101:AT 1 FROM 1 TO 25
|
|
170 PLOT 580,20;ANGLE 90;
|
|
180 CALL BROCCOLI(225,10)
|
|
190 DO
|
|
200 LOOP WHILE INKEY$=""
|
|
210 TEXT
|
|
220 DEF BROCCOLI(X,Y)
|
|
230 IF X<Y THEN EXIT DEF
|
|
240 CALL SQUARE(X)
|
|
250 PLOT FORWARD X,LEFT 45,
|
|
260 CALL BROCCOLI(X/SQ2,Y)
|
|
270 PLOT RIGHT 90,FORWARD X/SQ2,
|
|
280 CALL BROCCOLI(X/SQ2,Y)
|
|
290 PLOT BACK X/SQ2,LEFT 45,BACK X,
|
|
300 END DEF
|
|
310 DEF SQUARE(X)
|
|
320 FOR I=1 TO 4
|
|
330 PLOT FORWARD X;RIGHT 90;
|
|
340 NEXT
|
|
350 END DEF
|