2012年10月10日投稿 / 投稿者 : バイカウントメルビル / タグ : 投稿プログラム 鑑賞プログラム QRコード 数行プログラム mkII専用 / 検索用→【メルビル】
例のドーナツがグルグル回ります。
プチコンmkII 向けの QR コードです。
#basic{run}
- ACLS:CLEAR:PNLTYPE”PNL”:A=32
- GPAGE 1GCIRCLE A,A,A,43
- GPAINT A,A,43B=16C=64P=PI()
- GCIRCLE B,B,4,15GPAINT B,B,15
- GPAGE 0FOR I=0TO 1GCLS 0
- FOR J=TX TO 2*P+TX STEP P/4
- X=COS(J)*80+96Y=SIN(J)*40+C
- GCOPY 1,0,0,C,C,X,Y,0NEXT
- FOR J=TX TO 2*P+TX STEP P/4
- X=COS(J)*80+108Y=SIN(J)*40+76
- GCOPY 1,12,12,20,20,X,Y,0
- NEXT:FOR J=0TO TX==−TCHX/C
- J=0NEXT:TX=−TCHX/C:I=0NEXT
- ACLS:CLEAR:A=32B=16GPAGE 1
- GCIRCLE A,A,A,43GPAINT A,A,43
- P=PI()GCIRCLE B,B,4,15
- GPAINT B,B,15GPAGE 0
- R=RAD(45):Q=R/16FOR I=0 TO 1
- FOR J=0 TO R−Q STEP Q:GCLS 0
- FOR K=J TO 2*P+J STEP P/4
- X=COS(K)*80+96Y=SIN(K)*40+64
- GCOPY 1,0,0,64,64,X,Y,0NEXT
- FOR K=J TO 2*P+J STEP P/4
- X=COS(K)*80+108Y=SIN(K)*40+76
- GCOPY 1,12,12,20,20,X,Y,0
- NEXT:WAIT 1NEXT:I=0NEXT
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.150 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:07 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30