100 ' G39 T.WAKAMATSU
110 CLS:Z=0:CL(1)=7:CL(2)=4:CL(3)=6:CL(4)=5:CL(5)=1:C(6)=0
120 FOR D=1 TO 2000:NEXT D
130 FOR C=1 TO 6
140   RESTORE 360:Z=Z+1
150   FOR I=1 TO 3
160     READ X(I),Y(I)
170   NEXT I
180   T=15/180*3.14159!:T1=30/180*3.14159!
190   FOR K=1 TO 24
200     SX=0:SY=0
210     FOR J=1 TO 3
220       M1=(X(J)-320)*COS(T)-(Y(J)-240)*SIN(T)+320
230       N1=(X(J)-320)*SIN(T)+(Y(J)-240)*COS(T)+240
240       X(J)=M1:Y(J)=N1:SX=SX+M1:SY=SY+N1
250     NEXT J
260     GX=SX/3:GY=SY/3
270     FOR J=1 TO 3
280       M=(X(J)-GX)*COS(T1)-(Y(J)-GY)*SIN(T1)+GX
290       N=(X(J)-GX)*SIN(T1)+(Y(J)-GY)*COS(T1)+GY
300       X(J)=M:Y(J)=N
310     NEXT J
320     GOSUB *TRIANGLE
330   NEXT K
340   FOR Q=1 TO 5800:NEXT Q
350 NEXT C
360 DATA 240,220,120,210,200,40
370 GOTO 470
380 *TRIANGLE
390 PSET(X(3),Y(3))
400 IF INT((K+Z)/3)*3=K+Z THEN F=7 ELSE F=CL(C)
410 IF CL(C)=0 THEN F=0
420 FOR I=1 TO 3
430   LINE-(X(I),Y(I)),PSET,F
440 NEXT I
450 FOR D=1 TO 40:NEXT D
460 RETURN
470 CLS