こんにちはー、ちーでーす。(*^_^*)
ひきこもり君(札幌)さんが、三角形を２個書いてみたの。(*^_^*)
書き方は下に掲載しているので、
良かったら、やってみてね。
＊書き方(作り方)＊
下記のプログラムを十進BASICインタプリターに入力し、
プログラム実行中に
インプットボックスの表示で、
"個数:2以上の数を入れて下さい"と出たら数字の2(半角)を入れ、
"角数:3以上の数を入れて下さい"と出たら数字の3(半角)を入れ、
"中心線よりxxﾄﾞｯﾄ離れている 調整? OK(999入力)?"と出たら
調整したい場合はタテのドット数、そのままの場合には、999(半角)
を入れてください
*誤差の関係で、インプットボックスに表示されている中心線との差のドット数
が±１ドットの差が出る場合があります。
10 PICTURE zou
20 LET E=0
30 LET F=PI*2*E/360
40 LET X=150*COS(F)
50 LET Y=150*SIN(F)
60 LET X1=X
70 LET Y1=Y
80 LET J=X
90 FOR E=0 TO 361 STEP G
100 LET F=PI*2*E/360
110 LET X=150*COS(F)
120 LET Y=150*SIN(F)
130 PLOT LINES:X1,Y1;X,Y
140 LET X1=X
150 LET Y1=Y
160 IF J>X THEN
165 LET J=X
170 END IF
180 NEXT E
190 END PICTURE
200 PICTURE zou2
210 DRAW zou WITH ROTATE(H)*SHIFT(0,O)
220 END PICTURE
230 SET WINDOW -350,350,-350,350
240 SET POINT STYLE 1
250 INPUT PROMPT "個数:2以上の数を入れて下さい":A
260 INPUT PROMPT "角数:3以上の数を入れて下さい":D
270 LET G=360/D
280 LET H=PI*2*90/360
300 LET M=150
305 LET O=M
355 SET LINE COLOR 15
360 PLOT LINES:-350,0;350,0
365 PLOT LINES:0,-350;0,350
370 SET LINE COLOR 1
372 DRAW zou2
374 LET L=INT(J)
376 LET N=150+L
378 LET P=N
380 INPUT PROMPT "中心線より" & STR$(P) & "ﾄﾞｯﾄ離れている 調整? OK(999入力)?":K
385 IF K=999 THEN
390 GOTO 470
400 ELSE
410 LET M=150-K
420 LET O=M
430 LET P=N-K
440 CLEAR
442 SET LINE COLOR 15
444 PLOT LINES:-350,0;350,0
446 PLOT LINES:0,-350;0,350
447 SET LINE COLOR 1
448 DRAW zou2
450 GOTO 380
460 END IF
470 CLEAR
480 DRAW zou2
490 FOR I=2 TO A
500 LET C=C+PI*2/A
510 DRAW zou2 WITH ROTATE(C)
520 NEXT I
END
*参考*
・三角形２個
閲覧ありがとうございまーす。(*^_^*)
今日はこれで、失礼いたしまーす。ヽ(^o^)丿