1532041006


色を作る。10,10,10 のように赤、緑、青の数値を入力する。


SET WINDOW  0 , 310 , 300 , 0

 

10 INPUT x1,x2,x3

 

PRINT x1,x2,x3   

   

   LET r=x1

   LET g=x2

   LET b=x3

   

   SET COLOR MIX(80) r,g,b

   

   SET AREA COLOR 80

   PLOT AREA:0,0;0,310;310,310;310,0

   

2200 GOTO 10

     

  END

  

 

1531432153

団子くしざしゲーム


5 SET WINDOW 0,300,300,0

  

50

   

   

   

   LET a=30

   LET b=0

   LET i1=4

   

   LET c=60

   LET d=0

   LET i2=5

   

   LET e=90

   LET f=0

   LET i3=6

   

   LET g=120

   LET h=0

   LET i4=7

   

   LET i=180

   LET j=0

   LET i5=8

   

   LET k=210

   LET l=0

   LET i6=9

   

   LET m=240

   LET n=0

   LET i7=10

   

   LET o=270

   LET p=0

   LET i8=11

   

   LET c1=5

   LET c2=13

   LET c3=24

   LET c7=43

   LET c9=240

   LET c10=52

   LET c13=56

   LET c14=206

   LET c4=0

   LET c5=0

   LET c6=0

   LET c8=0

   LET c11=0

   LET c12=0

   LET c15=0

   LET c16=0

   

   LET d4=0

   LET d5=0

   LET d6=0

   LET d8=0

   LET d11=0

   LET d12=0

   LET d15=0

   LET d16=0

   

   

60 FOR ti=1 TO 10000

   NEXT ti

   

   SET AREA COLOR 0

   PLOT AREA : 0,0;300,0;300,300;0,300;0,0

   

   LET co=co+1

   

70 LET b=b+i1

   

   LET d=d+i2

   

   LET f=f+i3

   

   LET h=h+i4

   

   LET j=j+i5

   

   LET l=l+i6

   

   LET n=n+i7

   

   LET p=p+i8

   

80 SET AREA COLOR c1

   

   DRAW disk WITH SCALE(8)*SHIFT(b,a)

   

   SET AREA COLOR c2

   

   DRAW disk WITH SCALE(8)*SHIFT(d,c)

   

   SET AREA COLOR c3

   

   DRAW disk WITH SCALE(8)*SHIFT(f,e)

   

   SET AREA COLOR c7

   

   DRAW disk WITH SCALE(8)*SHIFT(h,g)

   

   SET AREA COLOR c9

   

   DRAW disk WITH SCALE(8)*SHIFT(j,i)

   

   SET AREA COLOR c10

   

   DRAW disk WITH SCALE(8)*SHIFT(l,k)

   

   SET AREA COLOR c13

   

   DRAW disk WITH SCALE(8)*SHIFT(n,m)

   

   SET AREA COLOR c14

   

   DRAW disk WITH SCALE(8)*SHIFT(p,o)

   

90 CHARACTER INPUT NOWAIT: a$

   IF a$ = "i" THEN LET y = y-2

   IF a$ = "j" THEN LET x = x-2

   IF a$ = "l" THEN LET x = x+2

   IF a$ = "m" THEN LET y = y+2

   

   SET LINE COLOR 27

   SET LINE WIDTH 5

   PLOT LINES : 150+x,150+y;150+x,250+y

   

   

   SET COLOR c4

   DRAW disk WITH SCALE(d4)*SHIFT(150+x,150+y)

   

   SET COLOR c5

   DRAW disk WITH SCALE(d5)*SHIFT(150+x,160+y)

   

   SET COLOR c6

   DRAW disk WITH SCALE(d6)*SHIFT(150+x,170+y)

   

   SET COLOR c8

   DRAW disk WITH SCALE(d8)*SHIFT(150+x,180+y)

   

   SET COLOR c11

   DRAW disk WITH SCALE(d11)*SHIFT(150+x,190+y)

   

   SET COLOR c12

   DRAW disk WITH SCALE(d12)*SHIFT(150+x,200+y)

   

   SET COLOR c15

   DRAW disk WITH SCALE(d15)*SHIFT(150+x,210+y)

   

   SET COLOR c16

   DRAW disk WITH SCALE(d16)*SHIFT(150+x,220+y)

   

   

   FOR ti=1 TO 100000

   NEXT ti

   

   IF 150+x<b+5 THEN GOTO 91  ELSE GOTO 92

91 IF 150+x>b-5 THEN GOTO 110

92 IF 150+x<d+5 THEN GOTO 93  ELSE GOTO 94

93 IF 150+x>d-5 THEN GOTO 120

94 IF 150+x<f+5 THEN GOTO 95  ELSE GOTO 96

95 IF 150+x>f-5 THEN GOTO 130

96 IF 150+x<h+5 THEN GOTO 97  ELSE GOTO 98

97 IF 150+x>h-5 THEN GOTO 140

98 IF 150+x<j+5 THEN GOTO 99  ELSE GOTO 100

99 IF 150+x>j-5 THEN GOTO 150

100 IF 150+x<l+5 THEN GOTO 101 ELSE GOTO 102

101 IF 150+x>l-5 THEN GOTO 200

102 IF 150+x<n+5 THEN GOTO 103 ELSE GOTO 104

103 IF 150+x>n-5 THEN GOTO 210

104 IF 150+x<p+5 THEN GOTO 105 ELSE GOTO 106

105 IF 150+x>p-5 THEN GOTO 220

    

106 GOTO 2160

    

110 IF 150+y<a+5 THEN GOTO 111 ELSE GOTO 2160

111 IF 150+y>a-5 THEN GOTO 1130

120 IF 150+y<c+5 THEN GOTO 121 ELSE GOTO 2160

121 IF 150+y>c-5 THEN GOTO 1140

130 IF 150+y<e+5 THEN GOTO 131 ELSE GOTO 2160

131 IF 150+y>e-5 THEN GOTO 1150

140 IF 150+y<g+5 THEN GOTO 141 ELSE GOTO 2160

141 IF 150+y>g-5 THEN GOTO 1180

150 IF 150+y<i+5 THEN GOTO 151 ELSE GOTO 2160

151 IF 150+y>i-5 THEN GOTO 1230

200 IF 150+y<k+5 THEN GOTO 201 ELSE GOTO 2160

201 IF 150+y>k-5 THEN GOTO 1240

210 IF 150+y<m+5 THEN GOTO 211 ELSE GOTO 2160

211 IF 150+y>m-5 THEN GOTO 1250

220 IF 150+y<o+5 THEN GOTO 221 ELSE GOTO 2160

221 IF 150+y>o-5 THEN GOTO 1260

    

    GOTO 2160

    

1130 LET c1=0

     LET c4=5

     LET d4=8

     GOTO 2160

     

1140 LET c2=0

     LET c5=13

     LET d5=8

     GOTO 2160

     

1150 LET c3=0

     LET c6=24

     LET d6=8

     GOTO 2160

     

1180 LET c7=0

     LET c8=43

     LET d8=8

     GOTO 2160

     

1230 LET c9=0

     LET c11=240

     LET d11=8

     GOTO 2160

     

1240 LET c10=0

     LET c12=52

     LET d12=8

     GOTO 2160

     

1250 LET c13=0

     LET c15=56

     LET d15=8

     GOTO 2160

     

1260 LET c14=0

     LET c16=206

     LET d16=8

     GOTO 2160

     

2160 IF b>300 THEN GOTO 2300

     

     IF d>300 THEN GOTO 2400

     

     IF f>300 THEN GOTO 2500

     

     IF h>300 THEN GOTO 2700

     

     IF j>300 THEN GOTO 2800

     

     IF l>300 THEN GOTO 2900

     

     IF n>300 THEN GOTO 21000

     

     IF p>300 THEN GOTO 21100

     

2270 GOTO 60

     

2300 RANDOMIZE

     

     LET i1=1+INT(4*RND)

     

     LET b=0

     LET a=INT(100*RND)

     

     GOTO 80

     

2400 RANDOMIZE

     

     LET i2=1+INT(4*RND)

     

     LET d=0

     LET c=INT(200*RND)

     

     GOTO 80

     

2500 RANDOMIZE

     

     LET i3=1+INT(4*RND)

     

     LET f=0

     LET e=INT(280*RND)

     

     GOTO 80

     

2700 RANDOMIZE

     

     LET i4=1+INT(4*RND)

     

     LET h=0

     LET g=INT(280*RND)

     

     GOTO 80

     

2800 RANDOMIZE

     

     LET i5=1+INT(4*RND)

     

     LET j=0

     LET i=INT(280*RND)

     

     GOTO 80

     

2900 RANDOMIZE

      

     LET i6=1+INT(4*RND)

     

     LET l=0

     LET k=INT(280*RND)

     

     GOTO 80

     

21000 RANDOMIZE

      

      LET i7=1+INT(4*RND)

      

      LET n=0

      LET m=INT(280*RND)

      

      GOTO 80

      

21100 RANDOMIZE

      

      LET i8=1+INT(4*RND)

      

      LET p=0

      LET o=INT(280*RND)

      

      GOTO 80

      

22600 SET TEXT COLOR 1

      PLOT TEXT,AT 200,200:"point"

      

      

      GOTO 60

      

      

      

      

      END

1531432033


ビッグバン

 

5 SET WINDOW 0,300,300,0

  

  LET t = 50

  LET count = 100

  LET num = 0

  DIM POSX(count)

  DIM POSY(count)

  DIM SCALE(count)

  DIM COLOR(count)

  

10 FOR i=1 TO count

   

      LET POSX(i) = INT(300*RND)

      LET POSY(i) = INT(300*RND)

      LET SCALE(i) = INT(5*RND+1)

      

   NEXT i

   

20 FOR i=1 TO 10000

   NEXT i

   

   SET AREA COLOR 0

   PLOT AREA : 0,0;300,0;300,300;0,300;0,0

   

30 FOR ti=1 TO count

   

40    IF POSX(ti) = 150 THEN

      

      ELSE

         IF POSX(ti) < 150 THEN

            LET POSX(ti) = POSX(ti) + (150 - POSX(ti)) / t

         ELSE

            LET POSX(ti) = POSX(ti) - (POSX(ti) - 150) / t

         END IF

      END IF

      

      

50    IF POSY(ti) = 150 THEN

      

      ELSE

         IF POSY(ti) < 150 THEN

            LET POSY(ti) = POSY(ti) + (150 - POSY(ti)) / t

         ELSE

            LET POSY(ti) = POSY(ti) - (POSY(ti) - 150) / t

         END IF

      END IF

      

       

60    SET AREA COLOR 1

      DRAW disk WITH SCALE(SCALE(ti))*SHIFT(POSX(ti),POSY(ti))

      

70    IF POSX(ti) > 149.5 AND POSX(ti) < 150.5 THEN

         IF POSY(ti) > 149.5 AND POSY(ti) < 150.5 THEN

            LET num = num + 1

         END IF

      END IF

      

80 NEXT ti

   

90 IF num = count THEN

      GOTO 110

   ELSE

      LET num = 0

   END IF

   

100 GOTO 20

    

110 FOR i=1 TO 1000000

    NEXT i

    

120 FOR i=1 TO count

    

       LET POSX(i) = INT(300*RND)

       LET POSY(i) = INT(300*RND)

       LET SCALE(i) = INT(5*RND+1)

       LET COLOR(i) = INT(14*RND+2)

       

    NEXT i

    

130 SET AREA COLOR 0

    PLOT AREA : 0,0;300,0;300,300;0,300;0,0

    

140 FOR ti=1 TO count

    

       SET AREA COLOR COLOR(ti)

       DRAW disk WITH SCALE(SCALE(ti))*SHIFT(POSX(ti),POSY(ti))

       

    NEXT ti

    

150 FOR i=1 TO 5000000

    NEXT i

    

160 LET num = 0

    GOTO 20

    

    END

1531431873

魔法陣


 

10 DECLARE EXTERNAL PICTURE tri

   

   OPTION ANGLE DEGREES

   

   

   SET WINDOW -1.5,1.5,1.5,-1.5

   

   SET AREA COLOR 1

   REM FOR r=0 TO 1

   SET AREA COLOR 1

   PLOT AREA:-1.5,1.5;1.5,1.5;1.5,-1.5;-1.5,-1.5

   

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(1.25)*SHIFT(0,0)

   

   

   FOR ti=0 TO 1000000

   NEXT ti

   

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(1.22)*SHIFT(0,0)

   

   FOR ti=0 TO 1000000

   NEXT ti

   

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(1.03)*SHIFT(0,0)

   

   FOR ti=0 TO 1000000

   NEXT ti

   

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(0.90)*SHIFT(0,0)

   

   FOR ti=0 TO 1000000

   NEXT ti

   

   SET AREA COLOR 1

   DRAW circle WITH SCALE(1)*SHIFT(0,0)

   PLOT LINES:SIN (60),COS (60);SIN (180),COS(180);SIN(300),COS(300);sin(60),cos(60)

   

   

   

   FOR ti=0 TO 1000000

   NEXT ti

   

   SET AREA COLOR 1

   DRAW circle WITH SCALE(1)*SHIFT(0,0)

   PLOT LINES:SIN (0),COS (0);SIN (120),COS(120);SIN(240),COS(240);sin(0),cos(0)

   

   FOR ti=0 TO 1000000

   NEXT ti

   

   PLOT LINES:(SIN (30))/2,(COS (30))/2;(SIN (150))/2,(COS(150))/2;(SIN(270))/2,(COS(270))/2;(SIN(30))/2,(COS(30))/2

   plot LINES:(SIN (30))/2.2,(COS (30))/2.2;(SIN (150))/2.2,(COS(150))/2.2;(SIN(270))/2.2,(COS(270))/2.2;(SIN(30))/2.2,(COS(30))/2.2

   

   FOR ti=0 TO 1000000

   NEXT ti

   

   

   PLOT LINES:(SIN (90))/2,(COS (90))/2;(SIN (210))/2,(COS(210))/2;(SIN(330))/2,(COS(330))/2;(sin(90))/2,(cos(90))/2

   PLOT LINES:(SIN (90))/2.2,(COS (90))/2.2;(SIN (210))/2.2,(COS(210))/2.2;(SIN(330))/2.2,(COS(330))/2.2;(SIN(90))/2.2,(COS(90))/2.2

   

   

   

   

   FOR ti=0 TO 1000000

   NEXT ti

   

   

   

   

   

   

   

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(0.5)*SHIFT(0,0)

   

   FOR ti=0 TO 1000000

   NEXT ti

   

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(0.47)*SHIFT(0,0)

   

   FOR ti=0 TO 1000000

   NEXT ti

   

   

   

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(0.165)*SHIFT(0,-0.67)

   DRAW circle WITH SCALE(0.145)*SHIFT(0,-0.67)

   

   FOR ti=0 TO 1000000

   NEXT ti

   

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(0.165)*SHIFT(0.58,-0.33)

   DRAW circle WITH SCALE(0.145)*SHIFT(0.58,-0.33)

   

   FOR ti=0 TO 1000000

   NEXT ti

   

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(0.165)*SHIFT(0.58,0.33)

   DRAW circle WITH SCALE(0.145)*SHIFT(0.58,0.33)

   

   FOR ti=0 TO 1000000

   NEXT ti

   

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(0.165)*SHIFT(0,0.67)

   DRAW circle WITH SCALE(0.145)*SHIFT(0,0.67)

   

   FOR ti=0 TO 1000000

   NEXT ti

   

   

   

   

   

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(0.165)*SHIFT(-0.58,0.33)

   DRAW circle WITH SCALE(0.145)*SHIFT(-0.58,0.33)

   

   FOR ti=0 TO 1000000

   NEXT ti

   

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(0.165)*SHIFT(0.58,-0.33)

   DRAW circle WITH SCALE(0.145)*SHIFT(0.58,-0.33)

   

   FOR ti=0 TO 100000

   NEXT ti

   

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(0.165)*SHIFT(-0.58,-0.33)

   DRAW circle WITH SCALE(0.145)*SHIFT(-0.58,-0.33)

   

   FOR ti=0 TO 2000000

   NEXT ti

   

   

   FOR th=0 TO 360 STEP 30

   

      DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*sin(th)+0.02,1.12*cos(th)+0.9)

      

   NEXT th

   

   

   FOR ti=0 TO 2000000

   NEXT ti

   

   

50 FOR rt=0 TO 360

   

      SET AREA COLOR 1

      

      PLOT AREA:-1.5,1.5;1.5,1.5;1.5,-1.5;-1.5,-1.5

      

      

      SET LINE COLOR 5

      SET LINE STYLE 1

      

      DRAW circle WITH SCALE(1.25)*SHIFT(0,0)

      

      

      SET LINE COLOR 5

      SET LINE STYLE 1

      

      DRAW circle WITH SCALE(1.22)*SHIFT(0,0)

      

      

      SET LINE COLOR 5

      SET LINE STYLE 1

      

      DRAW circle WITH SCALE(1.03)*SHIFT(0,0)

      DRAW circle WITH SCALE(0.90)*SHIFT(0,0)

      

      

      SET AREA COLOR 1

      DRAW circle WITH SCALE(1)*SHIFT(0,0)

      

      PLOT LINES:SIN (60+rt),COS (60+rt);SIN (180+rt),COS(180+rt);SIN(300+rt),COS(300+rt);SIN(60+rt),COS(60+rt)

      

      PLOT LINES:(SIN (90+rt))/2,(COS (90+rt))/2;(SIN (210+rt))/2,(COS(210+rt))/2;(SIN(330+rt))/2,(COS(330+rt))/2;(sin(90+rt))/2,(cos(90+rt))/2

      PLOT LINES:(SIN (90+rt))/2.2,(COS (90+rt))/2.2;(SIN (210+rt))/2.2,(COS(210+rt))/2.2;(SIN(330+rt))/2.2,(COS(330+rt))/2.2;(SIN(90+rt))/2.2,(COS(90+rt))/2.2

      

      

      

      SET AREA COLOR 1

      DRAW circle WITH SCALE(1)*SHIFT(0,0)

      

      PLOT LINES:SIN (0+rt),COS (0+rt);SIN (120+rt),COS(120+rt);SIN(240+rt),COS(240+rt);SIN(0+rt),COS(0+rt)

      

      PLOT LINES:(SIN (30+rt))/2,(COS (30+rt))/2;(SIN (150+rt))/2,(COS(150+rt))/2;(SIN(270+rt))/2,(COS(270+rt))/2;(SIN(30+rt))/2,(COS(30+rt))/2

      plot LINES:(SIN (30+rt))/2.2,(COS (30+rt))/2.2;(SIN (150+rt))/2.2,(COS(150+rt))/2.2;(SIN(270+rt))/2.2,(COS(270+rt))/2.2;(SIN(30+rt))/2.2,(COS(30+rt))/2.2

      

      

      

      

      SET LINE COLOR 5

      SET LINE STYLE 1

      DRAW circle WITH SCALE(0.5)*SHIFT(0,0)

      

      

      SET LINE COLOR 5

      SET LINE STYLE 1

      DRAW circle WITH SCALE(0.47)*SHIFT(0,0)

      

      

      

      SET LINE COLOR 5

      SET LINE STYLE 1

55    REM DRAW circle WITH SCALE(0.165)*SHIFT(0,-0.67)

      

60    DRAW circle WITH SCALE(0.165)*SHIFT(0.67*SIN(180+rt),0.67*COS(180+rt))

      DRAW circle WITH SCALE(0.145)*SHIFT(0.67*SIN(180+rt),0.67*COS(180+rt))

      

      

      SET LINE COLOR 5

      SET LINE STYLE 1

      REM DRAW circle WITH SCALE(0.165)*SHIFT(0.58,-0.33)

      DRAW circle WITH SCALE(0.165)*SHIFT(0.67*SIN(240+rt) ,0.67*COS(240+rt))

      DRAW circle WITH SCALE(0.145)*SHIFT(0.67*SIN(240+rt) ,0.67*COS(240+rt))

      

      

      

      SET LINE COLOR 5

      SET LINE STYLE 1

      REM DRAW circle WITH SCALE(0.165)*SHIFT(0.58,0.33)

      DRAW circle WITH SCALE(0.165)*SHIFT(0.67*SIN(300+rt),0.67*COS(300+rt))

      DRAW circle WITH SCALE(0.145)*SHIFT(0.67*SIN(300+rt),0.67*COS(300+rt))

      

      

       

      SET LINE COLOR 5

      SET LINE STYLE 1

      REM DRAW circle WITH SCALE(0.165)*SHIFT(0,0.67)

      DRAW circle WITH SCALE(0.165)*SHIFT(-0.67*SIN(180+rt),-0.67*COS(180+rt))

      DRAW circle WITH SCALE(0.145)*SHIFT(-0.67*SIN(180+rt),-0.67*COS(180+rt))

      

      

      

      

      SET LINE COLOR 5

      SET LINE STYLE 1

      REM DRAW circle WITH SCALE(0.165)*SHIFT(-0.58,0.33)

      DRAW circle WITH SCALE(0.165)*SHIFT(0.67*SIN(420+rt),0.67*COS(420+rt))

      DRAW circle WITH SCALE(0.145)*SHIFT(0.67*SIN(420+rt),0.67*COS(420+rt))

      

      

      

      SET LINE COLOR 5

      SET LINE STYLE 1

      REM DRAW circle WITH SCALE(0.165)*SHIFT(0.58,-0.33)

      DRAW circle WITH SCALE(0.165)*SHIFT(0.67*SIN(480+rt),0.67*COS(480+rt))

      DRAW circle WITH SCALE(0.145)*SHIFT(0.67*SIN(480+rt),0.67*COS(480+rt))

      

      

      

      SET LINE COLOR 5

      SET LINE STYLE 1

      REM DRAW circle WITH SCALE(0.165)*SHIFT(-0.58,-0.33)

      DRAW circle WITH SCALE(0.165)*SHIFT(0.67*SIN(180+rt),0.67*COS(180+rt))

      DRAW circle WITH SCALE(0.145)*SHIFT(0.67*SIN(180+rt),0.67*COS(180+rt))

      

      

      FOR th=0 TO 0 STEP 30

      

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*sin(180+rt)+0.02,1.12*cos(180+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*SIN(210+rt)+0.02,1.12*COS(210+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*SIN(240+rt)+0.02,1.12*COS(240+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*SIN(270+rt)+0.02,1.12*COS(270+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*SIN(300+rt)+0.02,1.12*COS(300+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*SIN(330+rt)+0.02,1.12*COS(330+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*sin(360+rt)+0.02,1.12*cos(360+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*SIN(390+rt)+0.02,1.12*COS(390+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*SIN(420+rt)+0.02,1.12*COS(420+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*SIN(450+rt)+0.02,1.12*COS(450+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*SIN(480+rt)+0.02,1.12*COS(480+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*SIN(510+rt)+0.02,1.12*COS(510+rt)+0.9)

         

         

         

         

         

         

         

         

      NEXT th

      

      FOR ti=0 TO 200000

      NEXT ti

      

      

   NEXT rt

   

   END

100 EXTERNAL PICTURE tri(n)

    

    PLOT LINES: 0,-1.19;0.1,-1.05;-0.1,-1.05;0,-1.19;

    PLOT LINES: 0,-1.05;0.1,-1.19;-0.1,-1.19;0,-1.05;

    

    

    

    END PICTURE

   

    

1531431671

生き方さがし


 10 CLEAR

   SET AREA COLOR 24

   SET TEXT COLOR 25

   SET WINDOW 0 , 300 , 300 ,0

   SET TEXT FONT "MS ゴシック",15

   PLOT TEXT ,AT 60,100 :"?独り身でいる"

   PLOT TEXT ,AT 60,140 :"?女友達と遊ぶ"

   SET TEXT FONT "MS ゴシック",20

   PLOT TEXT ,AT 61,180 :"??イケメンとの出会いを探しにいく"

   SET TEXT FONT "MS ゴシック",10

   PLOT TEXT ,AT 200,220 :"Sキーで進む"

   

100 CHARACTER INPUT CLEAR: s$

    

    IF s$ = "s" THEN GOTO 200

    

200 CLEAR

300 RANDOMIZE

500 LET ikmn=INT(RND*14+1)

600 IF ikmn=1 THEN

       SET TEXT FONT "MS 明朝",35

       SET TEXT COLOR 16

       PLOT TEXT ,AT 120,150 :"イケメン"

       SET TEXT FONT "MS ゴシック",30

       SET TEXT COLOR 29

       PLOT TEXT ,AT 120,200 :"やったね!"

    ELSEIF ikmn=2 THEN

       SET TEXT FONT "MS ゴシック",35

       SET TEXT COLOR 25

       PLOT TEXT ,AT 130,150 :"モブ顔"

       SET TEXT FONT "MS ゴシック",30

       SET TEXT COLOR 10

       PLOT TEXT ,AT 130,200 :"ぼちぼち"

    ELSEIF ikmn=3 THEN

       SET TEXT FONT "MS ゴシック",35

       SET TEXT COLOR 38

       PLOT TEXT ,AT 110,150 :"犬顔男子"

       SET TEXT FONT "MS ゴシック",30

       SET TEXT COLOR 24

       PLOT TEXT ,AT 130,200 :"可愛い"

    ELSEIF ikmn=4 THEN

       SET TEXT FONT "MS ゴシック",35

       SET TEXT COLOR 69

       PLOT TEXT ,AT 100,150 :"雰囲気イケメン"

       SET TEXT FONT "MS ゴシック",30

       SET TEXT COLOR 8

       PLOT TEXT ,AT 130,200 :"おしい…"

    ELSEIF ikmn=5 THEN

       SET TEXT FONT "MS ゴシック",35

       SET TEXT COLOR 54

       PLOT TEXT ,AT 90,100 :"超どストライク"

       PLOT TEXT ,AT 135,140 :"イケメン"

       SET TEXT FONT "MS 明朝",30

       SET TEXT COLOR 29

       PLOT TEXT ,AT 100,190 :"神様ありがとう!"

    ELSEIF ikmn=6 THEN

       SET TEXT FONT "MS ゴシック",35

       SET TEXT COLOR 70

       PLOT TEXT ,AT 130,150 :"キモオタ"

       SET TEXT FONT "MS ゴシック",30

       SET TEXT COLOR 13

       PLOT TEXT ,AT 90,200 :"デュフフじゃねえよ"

    ELSEIF ikmn=7 THEN

       SET TEXT FONT "MS 明朝",35

       SET TEXT COLOR 27

       PLOT TEXT ,AT 90,110 :"インテリ眼鏡"

       PLOT TEXT ,AT 100,150 :"(ブス)"

       SET TEXT FONT "MS ゴシック",30

       SET TEXT COLOR 2

       PLOT TEXT ,AT 130,200 :"残念"

    ELSEIF ikmn=8 THEN

       SET TEXT FONT "MS 明朝",35

       SET TEXT COLOR 56

       PLOT TEXT ,AT 90,110 :"インテリ眼鏡"

       PLOT TEXT ,AT 100,150 :"(イケメン)"

       SET TEXT FONT "MS ゴシック",30

       SET TEXT COLOR 29

       PLOT TEXT ,AT 130,200 :"最高!"

    ELSEIF ikmn=9 THEN

       SET TEXT FONT "MS ゴシック",35

       SET TEXT COLOR 15

       PLOT TEXT ,AT 150,150 :"ハゲ"

       SET TEXT FONT "MS ゴシック",30

       SET TEXT COLOR 59

       PLOT TEXT ,AT 120,200 :"ザビエルwww"

    ELSEIF ikmn=10 THEN

       SET TEXT FONT "MS ゴシック",35

       SET TEXT COLOR 72

       PLOT TEXT ,AT 100,110 :"ゴリマッチョ"

       PLOT TEXT ,AT 105,150 :"(イケメン)"

       SET TEXT FONT "MS ゴシック",30

       SET TEXT COLOR 24

       PLOT TEXT ,AT 100,200 :"抱きしめられたい"

    ELSEIF ikmn=11 THEN

       SET TEXT FONT "MS ゴシック",35

       SET TEXT COLOR 70

       PLOT TEXT ,AT 100,110 :"ゴリマッチョ"

       PLOT TEXT ,AT 120,150 :"(ゴリラ)"

       SET TEXT FONT "MS ゴシック",30

       SET TEXT COLOR 1

       PLOT TEXT ,AT 90,200 :"バナナをあげよう"

    ELSEIF ikmn=12 THEN

       SET TEXT FONT "MS ゴシック",35

       SET TEXT COLOR 80

       PLOT TEXT ,AT 130,110 :"塩顔男子"

       PLOT TEXT ,AT 115,150 :"(イケメン)"

       SET TEXT FONT "MS ゴシック",30

       SET TEXT COLOR 17

       PLOT TEXT ,AT 110,200 :"カムサハムニダ"

    ELSEIF ikmn=13 THEN

       SET TEXT FONT "MS ゴシック",35

       SET TEXT COLOR 72

       PLOT TEXT ,AT 110,110 :"塩顔男子"

       PLOT TEXT ,AT 115,150 :"(微妙)"

       SET TEXT FONT "MS ゴシック",30

       SET TEXT COLOR 72

       PLOT TEXT ,AT 120,200 :"うん。。。"

    ELSE

       SET TEXT FONT "MS ゴシック",35

       SET TEXT COLOR 12

       PLOT TEXT ,AT 120,130 :"ブサイク"

       SET TEXT FONT "MS ゴシック",30

       SET TEXT COLOR 1

       PLOT TEXT ,AT 120,180 :"ドンマイ"

       

    END IF

    

900 CHARACTER INPUT CLEAR: s$

    

    IF s$ = "s" THEN GOTO 10

    

1000 END

1531431508

桃太郎を捕まえろ


5 SET WINDOW 0,300,300,0

 

50 LET a=30

   LET b=0

   LET i=5

  

   LET c=0

   LET d=0

   LET m=4

  

   LET e=230

   LET f=0

   LET k=7

  

   LET c1=1

   LET c2=1

   LET c3=1

   LET c4=0

   LET c5=0

   LET c6=0

  

   REM FOR ti=1 TO 50000

   rem NEXT ti

  

60 SET AREA COLOR 0

   PLOT AREA : 0,0;300,0;300,300;0,300;0,0

  

   FOR j=1 TO 300

      SET POINT COLOR "blue"

     

      LET xa=150+(j/2)*SIN(j*5)

      LET ya=j

     

      PLOT POINTS: xa-j/10 , ya

      PLOT POINTS: xa+j/10 , ya

     

   NEXT j

  

  

  

70 REM LET b=b+i

  

   REM LET d=d+1

  

   rem LET c=c+1

  

  

  

80 SET AREA COLOR c1

  

   SET AREA COLOR 124

   PLOT AREA:a-3,b+3;a+3,b+3;a+3,b+18;a-3,b+18

   SET AREA COLOR 52

   PLOT AREA:a-8,b+5;a-3,b+5;a-3,b+3;a-8,b+3

   PLOT AREA:a-8,b+8;a-3,b+8;a-3,b+6;a-8,b+6

   PLOT AREA:a-3,b+18;a-1,b+18;a-1,b+20;a-3,b+20

   PLOT AREA:a+1,b+18;a+3,b+18;a+3,b+20;a+1,b+20

   SET AREA COLOR 205

   PLOT AREA:a-3,b+8.5;a+3,b+8.5;a+3,b+11.5;a-3,b+11.5

  

   SET AREA COLOR 15

  

   SET AREA COLOR 124

   PLOT AREA:a-3,b+3;a+3,b+3;a+3,b+18;a-3,b+18

   SET AREA COLOR 52

   PLOT AREA:a-8,b+5;a-3,b+5;a-3,b+3;a-8,b+3

   PLOT AREA:a-8,b+8;a-3,b+8;a-3,b+6;a-8,b+6

   PLOT AREA:a-3,b+18;a-1,b+18;a-1,b+20;a-3,b+20

   PLOT AREA:a+1,b+18;a+3,b+18;a+3,b+20;a+1,b+20

   SET AREA COLOR 205

   PLOT AREA:a-3,b+8.5;a+3,b+8.5;a+3,b+11.5;a-3,b+11.5

  

   SET AREA COLOR 15

  

   DRAW disk WITH SCALE(5)*SHIFT(a,b)

   DRAW disk WITH SCALE(3)*SHIFT(a+3,b-3)

   SET AREA COLOR 52

  

   DRAW disk WITH SCALE(5)*SHIFT(a-1,b+1)

   DRAW disk WITH SCALE(1.5)*SHIFT(a+4,b+1.2)

  

   SET AREA COLOR 1

  

   DRAW disk WITH SCALE(0.5)*SHIFT(a+1,b)

   DRAW disk WITH SCALE(0.5)*SHIFT(a-3,b)

   SET AREA COLOR 0

  

   DRAW disk WITH SCALE(0.25)*SHIFT(a+1,b)

   DRAW disk WITH SCALE(0.25)*SHIFT(a-3,b)

  

   SET AREA COLOR 115

   PLOT AREA:a-2.5,b+3;a,b+3;a,b+3.5;a-2.5,b+3.5

  

   SET AREA COLOR 130

   PLOT AREA:a-3,b+5;a-3,b+4;a-2.5,b+2;a-2.5,b+3

  

   SET AREA COLOR 130

   PLOT AREA:a,b+2;a+0.5,b+4;a+0.5,b+5;a,b+3

   DRAW disk WITH SCALE(3)*SHIFT(a+3,b-3)

   SET AREA COLOR 52

  

   DRAW disk WITH SCALE(5)*SHIFT(a-1,b+1)

   DRAW disk WITH SCALE(1.5)*SHIFT(a+4,b+1.2)

  

   SET AREA COLOR 1

  

   DRAW disk WITH SCALE(0.5)*SHIFT(a+1,b)

   DRAW disk WITH SCALE(0.5)*SHIFT(a-3,b)

   SET AREA COLOR 0

  

   DRAW disk WITH SCALE(0.25)*SHIFT(a+1,b)

   DRAW disk WITH SCALE(0.25)*SHIFT(a-3,b)

  

   SET AREA COLOR 115

   PLOT AREA:a-2.5,b+3;a,b+3;a,b+3.5;a-2.5,b+3.5

  

   SET AREA COLOR 130

   PLOT AREA:a-3,b+5;a-3,b+4;a-2.5,b+2;a-2.5,b+3

  

   SET AREA COLOR 130

   PLOT AREA:a,b+2;a+0.5,b+4;a+0.5,b+5;a,b+3

   SET AREA COLOR c2

  

   SET AREA COLOR 124

   PLOT AREA:a-3,b+3;a+3,b+3;a+3,b+18;a-3,b+18

   SET AREA COLOR 52

   PLOT AREA:a-8,b+5;a-3,b+5;a-3,b+3;a-8,b+3

   PLOT AREA:a-8,b+8;a-3,b+8;a-3,b+6;a-8,b+6

   PLOT AREA:a-3,b+18;a-1,b+18;a-1,b+20;a-3,b+20

   PLOT AREA:a+1,b+18;a+3,b+18;a+3,b+20;a+1,b+20

   SET AREA COLOR 205

   PLOT AREA:a-3,b+8.5;a+3,b+8.5;a+3,b+11.5;a-3,b+11.5

  

   SET AREA COLOR 15

  

   DRAW disk WITH SCALE(5)*SHIFT(a,b)

   DRAW disk WITH SCALE(3)*SHIFT(a+3,b-3)

   SET AREA COLOR 52

  

   DRAW disk WITH SCALE(5)*SHIFT(a-1,b+1)

   DRAW disk WITH SCALE(1.5)*SHIFT(a+4,b+1.2)

  

   SET AREA COLOR 1

  

   DRAW disk WITH SCALE(0.5)*SHIFT(a+1,b)

   DRAW disk WITH SCALE(0.5)*SHIFT(a-3,b)

   SET AREA COLOR 0

  

   DRAW disk WITH SCALE(0.25)*SHIFT(a+1,b)

   DRAW disk WITH SCALE(0.25)*SHIFT(a-3,b)

  

   SET AREA COLOR 115

   PLOT AREA:a-2.5,b+3;a,b+3;a,b+3.5;a-2.5,b+3.5

  

   SET AREA COLOR 130

   PLOT AREA:a-3,b+5;a-3,b+4;a-2.5,b+2;a-2.5,b+3

  

   SET AREA COLOR 130

   PLOT AREA:a,b+2;a+0.5,b+4;a+0.5,b+5;a,b+3

   SET AREA COLOR c3

  

   SET AREA COLOR 124

   PLOT AREA:a-3,b+3;a+3,b+3;a+3,b+18;a-3,b+18

   SET AREA COLOR 52

   PLOT AREA:a-8,b+5;a-3,b+5;a-3,b+3;a-8,b+3

   PLOT AREA:a-8,b+8;a-3,b+8;a-3,b+6;a-8,b+6

   PLOT AREA:a-3,b+18;a-1,b+18;a-1,b+20;a-3,b+20

   PLOT AREA:a+1,b+18;a+3,b+18;a+3,b+20;a+1,b+20

   SET AREA COLOR 205

   PLOT AREA:a-3,b+8.5;a+3,b+8.5;a+3,b+11.5;a-3,b+11.5

  

   SET AREA COLOR 15

  

   DRAW disk WITH SCALE(5)*SHIFT(a,b)

   DRAW disk WITH SCALE(3)*SHIFT(a+3,b-3)

   SET AREA COLOR 52

  

   DRAW disk WITH SCALE(5)*SHIFT(a-1,b+1)

   DRAW disk WITH SCALE(1.5)*SHIFT(a+4,b+1.2)

  

   SET AREA COLOR 1

  

   DRAW disk WITH SCALE(0.5)*SHIFT(a+1,b)

   DRAW disk WITH SCALE(0.5)*SHIFT(a-3,b)

   SET AREA COLOR 0

  

   DRAW disk WITH SCALE(0.25)*SHIFT(a+1,b)

   DRAW disk WITH SCALE(0.25)*SHIFT(a-3,b)

  

   SET AREA COLOR 115

   PLOT AREA:a-2.5,b+3;a,b+3;a,b+3.5;a-2.5,b+3.5

  

   SET AREA COLOR 130

   PLOT AREA:a-3,b+5;a-3,b+4;a-2.5,b+2;a-2.5,b+3

  

   SET AREA COLOR 130

   PLOT AREA:a,b+2;a+0.5,b+4;a+0.5,b+5;a,b+3

  

  

  

90 CHARACTER INPUT NOWAIT: a$

   IF a$ = "i" THEN LET b = b-2

   IF a$ = "j" THEN LET a = a-2

   IF a$ = "k" THEN LET b = b

   IF a$ = "k" THEN LET a = a

   IF a$ = "l" THEN LET a = a+2

   IF a$ = "m" THEN LET b = b+2

  

   SET COLOR c4

   DRAW disk WITH SCALE(5)*SHIFT(150+x,150+y)

   SET COLOR c5

   DRAW disk WITH SCALE(8)*SHIFT(150+x,170+y)

   SET COLOR c6

   DRAW disk WITH SCALE(10)*SHIFT(150+x,200+y)

  

   SET LINE COLOR 4

   SET LINE WIDTH 10

  

   REM PLOT LINES : 150+x,150+y;150+x,250+y

  

  

   SET AREA COLOR 124

   PLOT AREA:a-3,b+3;a+3,b+3;a+3,b+18;a-3,b+18

   SET AREA COLOR 52

   PLOT AREA:a-8,b+5;a-3,b+5;a-3,b+3;a-8,b+3

   PLOT AREA:a-8,b+8;a-3,b+8;a-3,b+6;a-8,b+6

   PLOT AREA:a-3,b+18;a-1,b+18;a-1,b+20;a-3,b+20

   PLOT AREA:a+1,b+18;a+3,b+18;a+3,b+20;a+1,b+20

   SET AREA COLOR 205

   PLOT AREA:a-3,b+8.5;a+3,b+8.5;a+3,b+11.5;a-3,b+11.5

  

   SET AREA COLOR 15

  

   DRAW disk WITH SCALE(5)*SHIFT(a,b)

   DRAW disk WITH SCALE(3)*SHIFT(a+3,b-3)

   SET AREA COLOR 52

  

   DRAW disk WITH SCALE(5)*SHIFT(a-1,b+1)

   DRAW disk WITH SCALE(1.5)*SHIFT(a+4,b+1.2)

  

   SET AREA COLOR 1

  

   DRAW disk WITH SCALE(0.5)*SHIFT(a+1,b)

   DRAW disk WITH SCALE(0.5)*SHIFT(a-3,b)

   SET AREA COLOR 0

  

   DRAW disk WITH SCALE(0.25)*SHIFT(a+1,b)

   DRAW disk WITH SCALE(0.25)*SHIFT(a-3,b)

  

   SET AREA COLOR 115

   PLOT AREA:a-2.5,b+3;a,b+3;a,b+3.5;a-2.5,b+3.5

  

   SET AREA COLOR 130

   PLOT AREA:a-3,b+5;a-3,b+4;a-2.5,b+2;a-2.5,b+3

  

   SET AREA COLOR 130

   PLOT AREA:a,b+2;a+0.5,b+4;a+0.5,b+5;a,b+3

  

  

   REM " momo"

   LET i=i+0.5

   LET d=150+(i/2)*SIN(i*2)

   LET c=c+1

  

   SET AREA COLOR 11

  

   PLOT AREA:d+10,c+5;d+2,c;d+2,c+5;d+10,c+5

   REM PLOT AREA:d-10,c+5;d-2,c;d-2,c+5;d-10,c+5

   set COLOR 24

   DRAW disk WITH SCALE(5)*SHIFT(d-3,c)

   DRAW disk WITH SCALE(5)*SHIFT(d+3,c)

   SET AREA COLOR 24

   PLOT AREA:d-7,c-3.5;d,c-10;d+7,c-3.5;d-7,c-3.5

   SET AREA COLOR 11

   PLOT AREA:d-10,c+5;d-2,c;d-2,c+5;d-10,c+5

  

  

   FOR ti=1 TO 500000

   NEXT ti

  

91 IF a<d+10 THEN GOTO 92 ELSE GOTO 160

92 IF a>d-10 THEN GOTO 110 ELSE GOTO 160

  

110 IF b<c+10 THEN GOTO 111 ELSE GOTO 160

111 IF b>c-10 THEN GOTO 140 ELSE GOTO 160

   

   

   

   

   

140 LET d=150

    LET c=0

    LET i=0

    GOTO 60

   

   

   

   

   

160 DRAW disk WITH SCALE(5)*SHIFT(a,b)

    IF c>300 THEN GOTO 400

   

   

   

270 GOTO 60

   

300 RANDOMIZE

   

    LET i=1+INT(4*RND)

   

    LET b=0

    LET a=INT(100*RND)

   

    GOTO 80

   

400 RANDOMIZE

   

    LET m=1+INT(4*RND)

   

    LET c=0

    LET d=150

    LET i=0

   

    GOTO 80

   

500 RANDOMIZE

   

    LET k=1+INT(4*RND)

    LET f=0

    LET e=INT(280*RND)

   

    GOTO 80

   

600 GOTO 60

   

    END

    

1531431313

螺旋の運動



 20 LET n=2                    ! INPUT n

30 SET WINDOW -1,1,-1,1

40 DRAW axes

45 LET r=0.1

   LET r1=0.12

   LET r2=0.14

   LET r3=0.16

   LET r4=0.18

   LET r5=0.20

   LET r6=0.22

   LET r7=0.24

   LET r8=0.26

   LET r9=0.28

   LET r10=0.30

   LET r11=0.32

   LET r12=0.34

   LET r13=0.36

   LET r14=0.38

   LET r15=0.40

   LET r16=0.42

   LET r17=0.44

   LET r18=0.46

   LET r19=0.48

   LET r20=0.50

   LET r21=0.52

   LET r22=0.54

   LET r23=0.56

   LET r24=0.58

   LET r25=0.60

   LET r26=0.62

   LET r27=0.64

   LET r28=0.66

   LET r29=0.68

   LET r30=0.70

   LET r31=0.72

   LET r32=0.74

   LET r33=0.76

   LET r34=0.78

   LET r35=0.80

   LET r36=0.82

   LET r37=0.84

   LET r38=0.86

   LET r39=0.88

   LET r40=0.90

   LET r41=0.92

   LET r42=0.94

   LET r43=0.96

   LET r44=0.98

   LET r45=1.0

   LET r46=1.02

   LET r47=1.04

   LET r48=1.06

   LET r49=1.08

   LET r50=1.10

   

   

50 LET t=t+4*PI/720

   

   REM CLEAR

   

   SET COLOR 15

   

   PLOT AREA: -1,1 ; 1 ,1 ; 1,-1; -1,-1

   

   

   

   

   

   DRAW disk WITH SCALE(2.00)*SHIFT(0,0)

   

   SET COLOR 0

   

   SET POINT STYLE 7

   

   PLOT POINTS: r*COS(t*1),r*SIN(t*1)

   

   PLOT POINTS: r1*COS(t*1.2),r1*SIN(t*1.2)

   

   PLOT POINTS: r2*COS(t*1.4),r2*SIN(t*1.4)

   

   PLOT POINTS: r3*COS(t*1.6),r3*SIN(t*1.6)

   

   PLOT POINTS: r4*COS(t*1.8),r4*SIN(t*1.8)

   

   PLOT POINTS: r5*COS(t*2),r5*SIN(t*2)

   

   PLOT POINTS: r6*COS(t*2.2),r6*SIN(t*2.2)

   

   PLOT POINTS: r7*COS(t*2.4),r7*SIN(t*2.4)

   

   PLOT POINTS: r8*COS(t*2.6),r8*SIN(t*2.6)

   

   PLOT POINTS: r9*COS(t*2.8),r9*SIN(t*2.8)

   

   PLOT POINTS: r10*COS(t*3),r10*SIN(t*3)

   

   PLOT POINTS: r11*COS(t*3.2),r11*SIN(t*3.2)

   

   PLOT POINTS: r12*COS(t*3.4),r12*SIN(t*3.4)

   

   PLOT POINTS: r13*COS(t*3.6),r13*SIN(t*3.6)

   

   PLOT POINTS: r14*COS(t*3.8),r14*SIN(t*3.8)

   

   PLOT POINTS: r15*COS(t*4.0),r15*SIN(t*4.0)

   

   PLOT POINTS: r16*COS(t*4.2),r16*SIN(t*4.2)

   

   PLOT POINTS: r17*COS(t*4.4),r17*SIN(t*4.4)

   

   PLOT POINTS: r18*COS(t*4.6),r18*SIN(t*4.6)

   

   PLOT POINTS: r19*COS(t*4.8),r19*SIN(t*4.8)

   

   PLOT POINTS: r20*COS(t*5.0),r20*SIN(t*5.0)

   

   PLOT POINTS: r21*COS(t*5.2),r21*SIN(t*5.2)

   

   PLOT POINTS: r22*COS(t*5.4),r22*SIN(t*5.4)

   

   PLOT POINTS: r23*COS(t*5.6),r23*SIN(t*5.6)

   

   PLOT POINTS: r24*COS(t*5.8),r24*SIN(t*5.8)

   

   PLOT POINTS: r25*COS(t*6.0),r25*SIN(t*6.0)

   

   PLOT POINTS: r26*COS(t*6.2),r26*SIN(t*6.2)

   

   PLOT POINTS: r27*COS(t*6.4),r27*SIN(t*6.4)

   

   PLOT POINTS: r28*COS(t*6.6),r28*SIN(t*6.6)

   

   PLOT POINTS: r29*COS(t*6.8),r29*SIN(t*6.8)

   

   PLOT POINTS: r30*COS(t*7.0),r30*SIN(t*7.0)

   

   PLOT POINTS: r31*COS(t*7.2),r31*SIN(t*7.2)

   

   PLOT POINTS: r32*COS(t*7.4),r32*SIN(t*7.4)

   

   PLOT POINTS: r33*COS(t*7.6),r33*SIN(t*7.6)

   

   PLOT POINTS: r34*COS(t*7.8),r34*SIN(t*7.8)

   

   PLOT POINTS: r35*COS(t*8.0),r35*SIN(t*8.0)

   

   PLOT POINTS: r36*COS(t*8.2),r36*SIN(t*8.2)

   

   PLOT POINTS: r37*COS(t*8.4),r37*SIN(t*8.4)

   

   PLOT POINTS: r38*COS(t*8.6),r38*SIN(t*8.6)

   

   PLOT POINTS: r39*COS(t*8.8),r39*SIN(t*8.8)

   

   PLOT POINTS: r40*COS(t*9.0),r40*SIN(t*9.0)

   

   PLOT POINTS: r41*COS(t*9.2),r41*SIN(t*9.2)

   

   PLOT POINTS: r42*COS(t*9.4),r42*SIN(t*9.4)

   

   PLOT POINTS: r43*COS(t*9.6),r43*SIN(t*9.6)

   

   PLOT POINTS: r44*COS(t*9.8),r44*SIN(t*9.8)

   

   PLOT POINTS: r45*COS(t*10),r45*SIN(t*10)

   

   PLOT POINTS: r46*COS(t*10.2),r46*SIN(t*10.2)

   

   PLOT POINTS: r47*COS(t*10.4),r47*SIN(t*10.4)

   

   

70

   

   FOR v=1 TO 100000

   NEXT v

   

   REM 80 NEXT t

   

90 GOTO 50

   

190 END

1531431050

落ちてくる球を消す


 5 SET WINDOW 0,300,300,0

  

50 LET a=30

   LET b=0

   LET i=5

   

   LET c=130

   LET d=0

   LET m=4

   

   LET e=230

   LET f=0

   LET k=7

   

   RANDOMIZE

   

   LET c1=INT(60*RND)

   LET c2=INT(60*RND)

   LET c3=INT(60*RND)

   

60 FOR ti=1 TO 90000

   

   NEXT ti

   

   REM CLEAR

   

   SET AREA COLOR 0

   

   PLOT AREA :0,0;300,0;300,300;0,300;0,0

   

70 LET b=b+i

   

   LET d=d+m

   

   LET f=f+k

   

   

80 SET AREA COLOR c1

   

   DRAW disk WITH SCALE(5)*SHIFT(a,b)

   

   SET AREA COLOR c2

   

   DRAW disk WITH SCALE(8)*SHIFT(c,d)

   

   SET AREA COLOR c3

   

   DRAW disk WITH SCALE(10)*SHIFT(e,f)

   

90 CHARACTER INPUT NOWAIT: a$

   

   IF a$ = "i" THEN LET y = y-5

   IF a$ = "j" THEN LET x = x-5

   IF a$ = "l" THEN LET x = x+5

   IF a$ = "m" THEN LET y = y+5

   

   SET AREA COLOR 1

   

   REM DRAW disk WITH SCALE(5)*SHIFT(150+x,150+y)

   

   PLOT AREA: 120+x,150+y ; 170+x ,150+y ; 170+x,170+y ; 120+x,170+y

   

   IF a<170+x THEN GOTO 92

92 IF a>120+x THEN GOTO 100

   

   IF c<170+x THEN GOTO 95

95 IF c>120+x THEN GOTO 110

   

   IF e<170+x THEN GOTO 97

97 IF e>120+x THEN GOTO 120

   

   GOTO 160

   

100 IF b<170+y THEN GOTO 102

102 IF b>150+y THEN GOTO 130

    

110 IF d<170+y THEN GOTO 112

112 IF d>150+y THEN GOTO 140

    

120 IF f<170+y THEN GOTO 122

122 IF f>150+y THEN GOTO 150

    

    GOTO 160

    

130 LET c1=0

    GOTO 160

    

140 LET c2=0

    GOTO 160

    

150 LET c3=0

    GOTO 160

    

160 IF b>300 THEN GOTO 300

    

    IF d>300 THEN GOTO 400

    

    IF f>300 THEN GOTO 500

    

    

    

270 GOTO 60

    

    

300 RANDOMIZE

    

    LET i=1+INT(4*RND)

    

    LET b=0

    LET a=INT(100*RND)

    

    LET c1=INT(60*RND)

    

    GOTO 80

    

    

400 RANDOMIZE

    

    LET m=1+INT(4*RND)

    

    LET d=0

    LET c=INT(200*RND)

    

    LET c2=INT(60*RND)

    GOTO 80

    

500 RANDOMIZE

    

    LET k=1+INT(4*RND)

    LET f=0

    LET e=INT(280*RND)

    

    LET c3=INT(60*RND)

    

    GOTO 80

    

    

600 GOTO 60

    

    END

     

- 1 - - 2 - - 3 - - 4 - - 5 - - 6 - - 7 - - 8 -