SHIROのIchigoJam日記

マイコン「IchigoJam」(イチゴジャム)の電子工作とプログラミングをメインに

バーサライタRPi・地名編

先日作ったバーサライタRPiで、地名を表示してみました。動画はこちら。

プログラムは以下のとおりです。
データがわかりやすいプログラムにしたので、内容を見ればネタバレですが…(笑)

地名1「上田」

10 '*POV Ueda
11 VIDEO 0
12 W=20
13 [0] =`0100000
14 [1] =`0100000
15 [2] =`0111110
16 [3] =`0101000
17 [4] =`0100000
18 [5] =`0000000
19 [6] =`0111110
20 [7] =`0101010
21 [8] =`0111110
22 [9] =`0101010
23 [10]=`0111110
24 [11]=`0000000
25 [12]=`0000000
26 '@LOOP
27 FOR I=0 TO 12
28 OUT [I]
29 FOR T=1 TO W:NEXT
30 NEXT
31 GOTO 26

地名2「福井」

10 '*POV Fukui
11 VIDEO 0
12 W=20
13 [0] =`0100010
14 [1] =`0010010
15 [2] =`0001110
16 [3] =`0000000
17 [4] =`0100100
18 [5] =`0010010
19 [6] =`0001110
20 [7] =`0000000
21 [8] =`0001000
22 [9] =`0111100
23 [10]=`0000010
24 [11]=`0000000
25 [12]=`0000000
26 '@LOOP
27 FOR I=0 TO 12
28 OUT [I]
29 FOR T=1 TO W:NEXT
30 NEXT
31 GOTO 26

地名3「仙台」

10 '*POV Sendai
11 VIDEO 0
12 W=15
13 [0] =`0000100
14 [1] =`1111110
15 [2] =`0000001
16 [3] =`1111000
17 [4] =`1000000
18 [5] =`1111111
19 [6] =`1000000
20 [7] =`1111000
21 [8] =`0000000
22 [9] =`1110100
23 [10]=`1010110
24 [11]=`1010101
25 [12]=`1010100
26 [13]=`1110110
27 [14]=`0000000
28 [15]=`0000000
29 '@LOOP
30 FOR I=0 TO 15
31 OUT [I]
32 FOR T=1 TO W:NEXT
33 NEXT
34 GOTO 29

地名4「鯖江

10 '*POV Sabae
11 VIDEO 0
12 W=20
13 [0] =`0001100
14 [1] =`1011110
15 [2] =`1111101
16 [3] =`1011110
17 [4] =`0001100
18 [5] =`0000000
19 [6] =`1000001
20 [7] =`1000001
21 [8] =`1111111
22 [9] =`1000001
23 [10]=`1000001
24 [11]=`0000000
25 [12]=`0000000
26 '@LOOP
27 FOR I=0 TO 12
28 OUT [I]
29 FOR T=1 TO W:NEXT
30 NEXT
31 GOTO 26