Artist's commentary
レトロな牛さん(プログラムつき)
■1982年に発売されたエプソンのHC-20というハンドヘルドコンピュータの
120×32ピクセルモノクロ液晶で描いてみました。これもCGですよね、一応。
■Microsoft系のBASICならばCLSとPSETの方言に気をつければたぶんそのまま動くはず。
ドットが正方形じゃないマシン(PC88とか)はPSETのX座標を2倍してください。
■CHECKER FLAG
(Dr.D)レトロPCを持っている人は実行結果を投稿してみるといいぞ!
60行の様に論理式を使って短くまとめるのはいいことだな。
(影)えーとプログラムってどうやって打ち込むんだっけ?ピー!SyntaxError!
(編)あーまた影さんがマイコン壊した!・・・いろんな方がやってみてくれました!
(編集長)今年こそ中日優勝!
(CASIO Z1-GR)pixiv #1677608 »
(SHARP PC-E650)pixiv #1799642 »
(SHARP PC-1350)pixiv #2035217 »
(CASIO VX-4)→pixiv #3551137 »
(SHARP PC-G850VS)→pixiv #33883929 »
■プログラム付きシリーズ→pixiv #26970660 »
10 DEFINT A-Z:CLS:Y=0
20 READ A$
30 IF A$="END" THEN 90
40 FOR X=0 TO 14
50 FOR B=0 TO 7
60 IF (2^(7-B)) AND VAL("&H"+MID$(A$,X*2+1,2)) THEN PSET(X*8+B,Y)
70 NEXT B:NEXT X
80 Y=Y+1:GOTO 20
90 GOTO 90
100 DATA "FFFF80095E001FA81F0F83FFC01BFF"
110 DATA "F9FFFFFE07007FFD55FFCFFE00FFFF"
120 DATA "E1FFFFF800F03FFABBFFC3FC0007FF"
130 DATA "C0FFFFF0003C1FF56FFFE0003001FF"
140 DATA "C07FFFE0000F1FCFFFF070006800FF"
150 DATA "C07FFFC0000FCF3FFFC0380054007F"
160 DATA "C07FFFC00007E6FFFF000C006C003F"
170 DATA "E03FFF800003FDFFFC000E0052001F"
180 DATA "E01FFF8000018BFFF8180703C2000F"
190 DATA "E00FFF80000193FFF860038C41E00F"
200 DATA "F001FF000001A1FFBC8003F0209807"
210 DATA "F000FF00000080FF3D0001C01145C7"
220 DATA "F000FF000000C07E1E03E187FAA647"
230 DATA "F800FF000000C61C1E1C1118075887"
240 DATA "FC01FF000000C1003E2001203FB187"
250 DATA "FE01FF000000C080DE400141C86347"
260 DATA "FE03FE000000C07F1E800182041A47"
270 DATA "FF02FE000000C0001E80018422464F"
280 DATA "FF047E000000C0001E00010831624F"
290 DATA "FF803E000000C0001E00011031224F"
300 DATA "FFC01E00000180001C02022038A15F"
310 DATA "FFC00E00020180001C0C024018417F"
320 DATA "FFE0067F810100001C3002900020FF"
330 DATA "FFE00380710300001FC002A03C10FF"
340 DATA "FFF0020009060000190003201310FF"
350 DATA "FFF8010005FC00006080032008F1FF"
360 DATA "FFF82880038F0001C08003880401FF"
370 DATA "FFFC54800205C00600400780E201FF"
380 DATA "FFFC2A400202B00C00400F40C1C3FF"
390 DATA "FFFE142286015FF8084078318E03FF"
400 DATA "FFFE00114600BFE0144FF00FF207FF"
410 DATA "FFFF0012AE001FD00AF3C0FF840BFF","END"