MSX Basic Pixel Art

Prophet (2415)

08-10-2007, 06:29

I remember being a young boy typing in listings from all sorts of books just to learn MSX Basic. One of the nicer programs I came accross was a program to create your own graphics in MSX basic. Anno 2007 I saw Yady's cake picture (from Bussum) and an old memory came back to me. And thus I programmed a litle program:

110 READ A$:Y%=Y%+1:IF A$<>"##" THEN FOR X%=1 TO LEN(A$) STEP 2:VPOKE (X%/2)+(Y%*128),(VAL("&h"+MID$(A$,X%,1))*16)+VAL("&h"+MID$(A$,X%+1,1)):NEXT:GOTO 110 ELSE 210
210 A$=INPUT$(1):SCREEN 0:PRINT TIME
220 END
230 DATA "777777777777777777777777"
240 DATA "777777777777777777777777"
250 DATA "7777777     777777777777"
260 DATA "777777 44444 77777777777"
270 DATA "77777 44 4 44 7777777777"
280 DATA "55555 4f0f0f4 5555555555"
290 DATA "77777 4faaff4 7777777777"
300 DATA "55555 4a88a44 5555555555"
310 DATA "5555 44faaff44 555555555"
320 DATA "555 444ffff4444 55555555"
330 DATA "555 44fff444444 55555555"
340 DATA "5555 4ffff44444 55555555"
350 DATA "5555 afffffff444 5555555"
360 DATA "555 aaafffffff4 55555555"
370 DATA "555 aaaaffffffa 55555555"
380 DATA "cccc aaafffffaa cccccccc"
390 DATA "22222 aa000aaa 222222222"
400 DATA "333333  333   3333333333"
410 DATA "bbbbbbbbbbbbbbbbbbbbbbbb"
420 DATA "aaaaaaaaaaaaaaaaaaaaaaaa"
430 DATA "##"

Here is a Picture of Yady's openMSX cake

Show your Graphical Skill with this litle program.

Just type in Hex Color Codes and the program does the rest.

By Vampier

Prophet (2415)

08-10-2007, 07:33

100 SCREEN  5
110 READ A$:IF A$<>"##" THEN FOR X%=1 TO LEN(A$) STEP 2:VPOKE (X%/2)+(Y%*128),(VAL("&h"+MID$(A$,X%,1))*16)+VAL("&h"+MID$(A$,X%+1,1)):NEXT:Y%=Y%+1:GOTO 110 ELSE 210
229 DATA "          5 5
230 DATA "   6      7 7      6
231 DATA "   8      E E      8 
232 DATA "          F F
233 DATA "   8     EF EF     6 
234 DATA "   8     EF EF     6 
235 DATA "   A    EFF EFF    9 
236 DATA "  98   EFFF EFFF   6A
237 DATA "  68  EFFFF EFFFF  69
238 DATA "  68 EFFFF 4 EFFF  69 
239 DATA "  6EFFFFF 475 EFFFFE8
241 DATA "  6EFFEFF 457 EFEFFE8
242 DATA "  68   EFF   EFF   69
243 DATA "  68 EFFF EFF EFFF 69
244 DATA "   b  EF EFFFF EF  a 
245 DATA "          EFF

2nd example (with slight adjustment in the generator code)

By Vampier

Prophet (2415)

10-10-2007, 03:40

clearly no pixel art lovers....

By Huey

Prophet (2696)

10-10-2007, 10:11

clearly no pixel art lovers....

patience.

I use to love this kinda stuff when I used MSX for the first times.....
must have been 11 year old orso.....
Only difference was we could not programm so we just drew ASCII characters on a screen using the graph key...
Spend literaly days doing this stuff.

I will make one asap

Perhaps Yadi will make a cake from the best entry????? Do I hear a great new challange????

By yady

Supporter (3)