FrontPage
?plugin=code

ホ网ィ、ミ
、ホ、隍ヲ、ヒ、ハ、
・ラ・鬣ー・、・、サネ、ヲセケ遑、
、ネス、ュ、゙、ケ。・
、ウ、ホ、隍ヲ、ヒ
・、・・鬣、・、ヒ、篏ネ、ィ、
a
1
2
3
4
5
| | begin
Randomize;
WriteLn ('Demo of the Trap unit of GPC');
WriteLn;
TrapExec (Test)
end.
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| | 100 CLS 3
110 R=150:G1=320:G2=200:N=5:C=5
120 GOSUB *STAR
130 END
9000 *STAR:S=3.14/180:R1=R:Q=360/(N*2)
9010 IF N=5 THEN K=(SQR(5)-1)/(SQR(5)+1) ELSE IF N=8 THEN K=SQR(2-SQR(2)) ELSE IF N=6 THEN K=1/SQR(3) ELSE K=1/2
9020 R2=R*K
9030 LINE (G1+R1*COS(A*S),G2+R1*SIN(A*S))-(G1+R2*COS((Q*1+A)*S),G2+R2*SIN((Q*1+A)*S)),C
9040 FOR I=2 TO (N-1)*2 STEP 2:J=I+1
9050 LINE -(G1+R1*COS((Q*I+A)*S),G2+R1*SIN((Q*I+A)*S)),C
9060 LINE -(G1+R2*COS((Q*J+A)*S),G2+R2*SIN((Q*J+A)*S)),C
9070 NEXT I
9080 LINE -(G1+R1*COS(A*S),G2+R1*SIN(A*S)),C
9090 PAINT (G1,G2),C
9100 RETURN
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| | 100 CLS 3
110 R=150:G1=320:G2=200:N=5:C=5
120 GOSUB *STAR
130 END
9000 *STAR:S=3.14/180:R1=R:Q=360/(N*2)
9010 IF N=5 THEN K=(SQR(5)-1)/(SQR(5)+1) ELSE IF N=8 THEN K=SQR(2-SQR(2)) ELSE IF N=6 THEN K=1/SQR(3) ELSE K=1/2
9020 R2=R*K
9030 LINE (G1+R1*COS(A*S),G2+R1*SIN(A*S))-(G1+R2*COS((Q*1+A)*S),G2+R2*SIN((Q*1+A)*S)),C
9040 FOR I=2 TO (N-1)*2 STEP 2:J=I+1
9050 LINE -(G1+R1*COS((Q*I+A)*S),G2+R1*SIN((Q*I+A)*S)),C
9060 LINE -(G1+R2*COS((Q*J+A)*S),G2+R2*SIN((Q*J+A)*S)),C
9070 NEXT I
9080 LINE -(G1+R1*COS(A*S),G2+R1*SIN(A*S)),C
9090 PAINT (G1,G2),C
9100 RETURN
|