200 IF X<0 AND Y<0 THEN GOTO 170 210 IF X>500 AND Y>500 THEN GOTO 240 220 LINE-(FNX(X),FNY(Y)),PSET,CL 230 GOTO 190 240 RETURN 250 '-- PAINT SUB -- 260 READ Y,X,CL,B1,B2,B3,B4 270 IF X<0 THEN RETURN 280 PAINT(FNX(X),FNY(Y)),CL,B1,B2,B3,B4 290 GOTO 260 300 RETURN 310 '-- LINE BOX SUB -- 320 READ X,Y,X0,Y0,CL,S 330 IF (X<0) THEN 390 340 IF S=1 THEN LINE(FNX(X),FNY(Y))-(FNX(X0),FNY(Y0))PSET,CL,BF:GOTO 380 350 FOR I=FNX(X) TO FNX(X0) STEP S 360 LINE(I,FNY(Y))-(I,FNY(Y0)),PSET,CL 370 NEXT I 380 GOTO 320 390 RETURN 400 '-- circle sub -- 410 READ X,Y,CL,R,H 420 IF (XM1)+(Y<1) THEN 450 430 CIRCLE(FNX(X),FNY(Y)),FNX(R),CL,H 440 GOTO 410 450 RETURN
303 : ナイコンさん[sage] : 02/11/23 00:59
残りはデータです。それではまた明日
304 : ナイコンさん[sage] : 02/11/23 12:10
あぁん♪溶けちゃいそぅ~がんがってくだせえ~
305 : ナイコンさん[sage] : 02/11/24 00:34
1000 ' 1010 DATA 20,80,60,140,5,1,75,30,150,94,5,1,160,130,200,150,5,120,80,60,140,2,2,75,30,150,94,2,2,160,130,200,150,2,2,-1,-1,0,0,0,0 1020 DATA 7,53,87,58,88,68,89,71,90,72,89,69,87,66,85,63,84,59,83,-1,-1 1030 DATA 7,63,84,62,82,63,80266,79,69,79,72,81,77,85,79,89,79,90,78,92,-1,-1 1040 DATA 7,77,91,78,92,80,95,84,100,88,108,89,113,89,117,88,121,87,125,85,129,82,134,79,136,76,137,72,138,69,137,66,137,60,138,54,140,49,141,-1,-1 1050 DATA 7,69,87,69,85,70,84,71,85,74,88,-1,-1 1060 DATA 7,69,87,67,84,67,82,-1,-1 1070 DATA 7,56,142,60,140,66,137,70,137,-1,-1 1080 DATA 7,60,140,62,142,70,139,70,137,-1,-1 1090 DATA 7,84,100,85,100,86,99,-1,-1,7,88,121,902121,-1,-1,7,84,97,86,99,89,104,91,109,92,114,91,119,90,121,89,123,-1,-1
306 : ナイコンさん[sage] : 02/11/24 13:19
1100 DATA 7,33,146,36,148,40,148,43,148,46,147,49,145,50,143,50,142,48,142,49,141,49,140,47,139,49,137,49,136,47,134,49,132,47,131,37,132,43,131,46,129,45,127,46,125,40,125,34,123,38,124,44,123,46,122,46,120,47,118,47,116,45,114,48,111,48,109,47,107,45 1110 DATA 106,47,105,46,103,41,103,34,101,47,100,49,99,50,96,50,95,49,94,51,93,51,91,47,88,38,87,45,87,51,88,53,87,53,85,51,84,53,83,53,82,50,80,46,79,44,79,-1,-1 1120 DATA 3,94,65,93,63,91,6391,61,89,58,87,54,85,51,83,49,80,47,75,45,73,45,70,46,69,45,67,45,66,43,63,41,60,40,55,39,52,40,50,42,48,41,46,41,45,39,43,38,39,37,33,38,30,40,59,41,28,40,27,40,26,41,25,40,23,40,20,41,19,43,19,50,19,60,18,64,-1,-1 1130 DATA 3,13,82,10,85,7,91,5,96,4,101,3,107,3,115,4,122,8,130,11,136,14,141,16,147,17,155,17,166,18,169,20,170,23,170,28,168,31,171,34,172,37,172,42,171,47,169,48,168,50,169,51,169,53,167,55,168,57,168,57,168,62,165,66,161,68,158,69,159,70,459,71,157 1140 DATA 72,158,76,157,80,154,82,151,83,148,84,149,89,144,-1,-1
1150 DATA 7,80,95,80,93,81,92,83,92,84,93,83,82,84,90,85,89,87,89,91,91,95,94,99,100,102,105,104,110,105,114,105,115,103,120,101,124,95,129,93,130,91,131,89,132,88,131,89,129,87,130,85,129,-1,-1 1160 DATA 1,89,129,86,132,86,135,87,140,89,144,91,147,92,148,96,147,109,142,-1,-1,7,96,147,104,152,109,156,114,164,118,173,120,176,125,180,128,181,131,181,134,180,139,187,143,173,144,173,150,166,-1,-1 1170 DATA 7,134,180,136,182,140,188,144,192,150,198,-1,-1,1,100,140,109,142,125,146,136,148,140,148,143,147,148,143,150,140,-1,-1,7,143,147,146,150,150,156,-1,-1 1180 DATA 1,87,89,86,87,85,86,85,81,86,75,87,70,88,67,89,66,91,65,94,65,-1,-1 1190 DATA 1,94,66,92,66,91,67,91,68,92,69,94,71,97,72,103,73,112,74,120,74,125,74,126,73,126,74,-1,-1,7,122,77,114,79,105,81,-1,-1
1200 DATA 1,126,71,129,72,133,74,134,75,-1,-1 1210 DATA 1,133,74,139,71,143,70,146,70,148,71,150,73,-1,-1 1220 DATA 7,94,,71,94,66,94,65,95,62,97,60,101,58,-1,-1 1230 DATA 7,97,64,100,60,101,58,102,55,102,52,-1,-1 1240 DATA 7,104,35,105,32,107,25,112,25,118,23,123,23,129,25,133,28,137,33,139,38,139,44,137,52,132,60,127,68,126,71,125,74,-1,-1 1250 DATA 7,104.35,106,34,111,30,114,28,116,27,121,27,125,28,128,31,129,35,129,39,128,43,125,46,120,48,115,49,113,48,111,50,113,52,117,54,121,53,125,52,127,50,-1,-1 1260 DATA 7,121,53,123,55,126,55,129,54,131,52,-1,-1 1270 DATA 7,114,44,114.,43,113,42,112,42,111,40,110,38,108,37,106,35,104,35,100,34,98,33,97,34,95,36,93,37,85,38,84,39,854,41,85,42,90,43,93,42,-1,-1 1280 DATA 7,95,36,93,42,92,45,92,48,94,49,95,48,96,47,99,41,-1,-1 1290 DATA 7,96,47,96,49,98,51,100,50,103,46,104,43,-1,-1
328 : ナイコンさん[sage] : 03/01/05 19:20
1300 DATA 7,100,50,101,51,102,52,104,51,106,49,108,45,-1,-1 1310 DATA 7,104,51,106,52,108,52,111,50,113,46,-1,-1 1320 DATA 1,91,91,94,91,100,93,109,97,114,100,120,104,125,108,130,114,133,118,127,123,120,127,113,129,100,131,93,130,98,132,105,133,110,133,121,130,133,1254,141,119,150,112,-1,-1 1330 DATA 1,91,131,91,133,96,135,100,135,105,136,114,136,121,135,132,130,141,125,148,120,150,118,-1,-1 1340 DATA 7,18,87,13,95,11,101,9,110,9,120,10,127,12,131,11,125,11,121,12,113,15,103,18,97,21,93,20,88,16,86,20,83,21,78,25,81,29,80,26,86,29,89,24,89,21,93,-1,-1
329 : ナイコンさん[sage] : 03/01/05 19:21
1350 DATA 7,27,84,35,80,45,77,47,76,47,75,45,74,46,73,45,71,43,70,-1,-1 1360 DATA 7,29,80,43,70,45,68,45,67,42,65,37,63,36,62,35,63,34,61,30,59,27,59,23,61,21,63,19,65,18,68,18,72,19,76,21,80,-1,-1 1370 DATA 7,25,81,23,78,23,75,24,73,27,69,-1,-1 1380 DATA 7,19,65,18,64,16,64,12,66,11,68,10,70,10,72,11,73,9,73,9,75,10,78,13,82,16,84,18,84,-1,-1 1390 DATA 7,59,94,59,96,57,99,56,98,53,100,51,103,51,106,52,108,53,108,52,107,52,105,55,100,57,99,-1,-1
330 : ナイコンさん[sage] : 03/01/05 19:21
1400 DATA 7,57,95,57,96,56,98,-1,-1,7,54,96,55,99,53,100,50,103,49,105,49,106,-1,-1 1410 DATA 7,57,137,56,134,53,133,52,131,52,129,53,127,51,127,50,129,50,132,51,133,53,134,55,135,56,134,55,135,54,137,-1,-1,7,53,134,52,136,-1,-1 1420 DATA 7,69,122,70,123,71,123,72,122,-1,-1 1430 DATA 7,77,110,74,115,76,120,76,124,77,124,81,122,82,120,81,120,80,118,80,115,81,114,78,110,77,110,-1,-1,3,82,120,83,119,83,118,82,116,81,114,-1,-1,7,86,116,85,119,-1,-1 1440 DATA 7,95,94,100,96,108,101,114,106,117,111,-1,-1,7,116,119,114,121,107,125,100,128,95,129,-1,-1 1450 DATA 6,115,116,118,114,119,110,121,113,125,113,123,116,124,120,120,119,118,120,118,117,115,116,-1,-1 1460 DATA 7,49,99,44,100,42,102,42,104,-1,-1,7,43,129,43,131,44,133,1000,1000 1470 DATA 116,120,3,8,.4495,104,61,3,5.2,.7,129,61,3,5.4,.7,105.5,61.5,4,3.8,.7,128.5,62,4,3.4,.7,106.5,62.5,7,2.3,.7,128,62,7,1,.8,.7,-1,-1,-1,-1,-1 1480 DATA 115,78,7,7,3,3,3,118,82,4,7,3,3,3,115,78,2,2,4,5,5,118,82,3,2,3,5,5,105,56,3,3,4,7,7,105,56,5,2,4,5,7,104,62,4,4,7,7,7,130,55,3,3,4,7,7,130,55,5,2,4,5,7,129.9,60.5,4,4,7,7,7 1490 DATA 106.5,62.5,7,7,4,4,4,1298,62,7,7,4,4,4,110,30,3,3,6,1,7,75,15,3,6,3,7,7,85,25,1,6,6,6,7,70,35,3,11,3,6,7,78,40,3,1,3,6,7,100,15,3,1,3,6,7,85,25,1,3,7,7,7,75,15,6,1,6,7,7,70,35,6,1,6,7,7,78,40,6,1,6,7,7,100,15,6,1,6,7,7
331 : ナイコンさん[sage] : 03/01/05 19:22
1500 DATA 133,52,7,7,7,7,7 1510 DATA 115,100,6,7,3,1,7,115,100,5,1,7,3,7,60,120,6,7,1,3,3,60,120,5,7,1,3,3,115,110,5,7,7,1,3,125,115,5,7,1,3,7,134,120,2,1,7,7,7,140,130,6,1,3,7,7,140,130,1,3,7,2,5,160,130,6,7,1,3,3,160,130,5,5,7,1,3,112,121,3,6,3,5,5,115,117,6,3,6,5,5,90,130,1,1,7 1520 DATA 3,3,10,10,4,3,7,1,6,145,148,4,7,1,3,5 1530 DATA -1,-1,-1,-1,-1,-1,-1 1010 DATA 20,80,60,140,5,1,75,30,150,94,5,1,160,130,200,150,5,1,20,80,60,140,2,2,75,30,150,94,2,2,160,130,200,150,2,2,-1,-1,0,0,0,0 1090 DATA 7,84,100,85,100,86,99,-1,-1,7,88,121,90,121,-1,-1,7,84,97,86,99,89,104,91,109,92,114,91,119,90,121,89,123,-1,-1
PCシリーズ:自民党 MZシリーズ:社会党 FMシリーズ:公明党 X1シリーズ:民社党 Apple :共産党
408 : ナイコンさん[sage] : 2006/04/02(日) 15:10:42
332さんではないですが、 図書館へ行ってデバッグしてきました。 -------- 90 GOSUB 310 260 READ X,Y,CL,B1,B2,B3,B4 340 IF S=1 THEN LINE(FNX(X),FNY(Y))-(FNX(X0),FNY(Y0)),PSET,CL,BF:GOTO 380 1020 DATA 7,53,87,58,88,63,88,68,89,71,90,72,89,69,87,66,85,63,84,59,83,-1,-1 1030 DATA 7,63,84,62,82,63,80,66,79,69,79,72,81,77,85,79,89,79,90,78,92,-1,-1 1120 DATA 3,94,65,93,63,91,63,91,61,89,58,87,54,85,51,83,49,80,47,75,45,73,45,70,46,69,45,67,45,66,43,63,41,60,40,55,39,52,40,50,42,48,41,46,41,45,39,43,38,39,37,33,38,30,40,29,41,28,40,27,40,26,41,25,40,23,40,20,41,19,43,19,50,19,60,18,64,-1,-1 1130 DATA 3,13,82,10,85,7,91,5,96,4,101,3,107,3,115,4,122,8,130,11,136,14,141,16,147,17,155,17,166,18,169,20,170,23,170,28,168,31,171,34,172,37,172,42,171,47,169,48,168,50,169,51,169,53,167,55,168,57,168,57,168,62,165,66,161,68,158,69,159,70,159,71,157 1140 DATA 72,158,76,157,80,154,82,151,83,148,84,149,89,144,-1,-1 1150 DATA 7,80,95,80,93,81,92,83,92,84,93,83,92,84,90,85,89,87,89,91,91,95,94,99,100,102,105,104,110,105,114,105,115,103,120,101,124,95,129,93,130,91,131,89,132,88,131,89,129,87,130,85,129,-1,-1 1160 DATA 1,89,129,86,132,86,135,87,140,89,144,91,147,92,148,96,147,109,142,-1,-1,7,96,147,104,152,109,156,114,164,118,173,120,176,125,180,128,181,131,181,134,180,139,177,143,173,144,173,150,166,-1,-1
409 : 408[sage] : 2006/04/02(日) 15:11:33
1220 DATA 7,94,71,94,66,94,65,95,62,97,60,101,58,-1,-1 1250 DATA 7,104,35,106,34,111,30,114,28,116,27,121,27,125,28,128,31,129,35,129,39,128,43,125,46,120,48,115,49,113,48,111,50,113,52,117,54,121,53,125,52,127,50,-1,-1 1270 DATA 7,114,44,114,43,113,42,112,42,111,40,110,38,108,37,106,35,104,35,100,34,98,33,97,34,95,36,93,37,85,38,84,39,84,41,85,42,90,43,93,42,-1,-1 1320 DATA 1,91,91,94,91,100,93,109,97,114,100,120,104,125,108,130,114,133,118,127,123,120,127,113,129,100,131,93,130,98,132,105,133,110,133,121,130,133,124,141,119,150,112,-1,-1 1470 DATA 116,120,3,8,.4495,104,61,3,5.2,.7,129,61,3,5.4,.7,105.5,61.5,4,3.8,.7,128.5,62,4,3.4,.7,106.5,62.5,7,2.3,.7,128,62,7,1.8,.7,-1,-1,-1,-1,-1 1490 DATA 106.5,62.5,7,7,4,4,4,128,62,7,7,4,4,4,110,30,3,3,6,1,7,75,15,3,6,3,7,7,85,25,1,6,6,6,7,70,35,3,11,3,6,7,78,40,3,1,3,6,7,100,15,3,1,3,6,7,85,25,1,3,7,7,7,75,15,6,1,6,7,7,70,35,6,1,6,7,7,78,40,6,1,6,7,7,100,15,6,1,6,7,7
410 : 408[sage] : 2006/04/02(日) 15:17:17
ついでですが、FM77AV(F-BASIC 3.3)で実行すると直線補間アルゴリズムの 違いからか若干絵が乱れるので補正してみました。 -------- 1320 DATA 1,91,91,94,91,100,93,109,97,114,100,120,104,125,107,130,114,133,118,127,123,120,127,113,129,100,131,93,130,98,132,105,133,110,133,121,130,133,124,141,119,150,112,-1,-1 1340 DATA 7,18,87,13,95,11,101,9,110,9,120,10,127,12,131,11.5,125,11,121,12,113,15,103,18,97,21,93,20,88,16,86,20,83,21,78,25,81,29,80,26,86,29,89,24,89,21,93,-1,-1