Author
| MSX Basic Pixel Art
|
Vampier
msx addict
Posts: 492 |  Posted: October 08 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. |
|
Vampier
msx addict
Posts: 492 | Posted: October 08 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) |
|
Vampier
msx addict
Posts: 492 | Posted: October 10 2007, 03:40 |
clearly no pixel art lovers....  |
|
Huey
msx professional
Posts: 581 | Posted: October 10 2007, 10:11 |
Quote:
| 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????
|
|
yady
msx friend
Posts: 2 | Posted: October 12 2007, 22:56 |
You gave me an idea there... Details will follow  |
|
dvik
msx master
Posts: 1302 | Posted: October 12 2007, 23:45 |
I did a lot of this too when I was young, but when I was young there were only four screen modes and 15 colors.
|
|
yady
msx friend
Posts: 2 | Posted: October 13 2007, 01:11 |
Well, M&Ms come in even fewer colours...  |
|
AuroraMSX
msx master
Posts: 1227 | Posted: October 13 2007, 16:12 |
Quote:
| Well, M&Ms come in even fewer colours...
|
And a slightly different palette
There's no chocolate brown on MSX1 |
|
Vampier
msx addict
Posts: 492 | Posted: December 24 2007, 17:32 |
Anyone feels like making some x-mas graphics?
|
|
wolf_
msx legend
Posts: 4629 | Posted: December 24 2007, 17:47 |
I made this, some week ago!
 |
|
ARTRAG
msx master
Posts: 1587 | Posted: December 24 2007, 17:49 |
|
|
|
|
|
