Posted By
George
on 2012-08-09
17:49:13
 |  Re: Combing Text and freely placeable bitmaps on screen
Ah, thats the way to make a nested for-loop. Tried it with next i : next k
Here the first Result:
http://www.patsos.de/plus4/Grag3.JPG
I had problems with caching in $0800 or $0C000. Wierd things on screen.
So I choosed $6000. The Sprite is 770 Bytes long.
I added Luminance and Color, but the colors except the pink nose are not right:
Background schould be white and the lines should be black. Nose is Pink and thats ok.
My Result-Code:
10 IF A = 1 THEN 30
20 A = 1 : graphic 4,1: color 0,1: color 3,2: color 4,1: LOAD "grag",8,1
30 r=8:d=4 : REM Position 8x right, 4x down
40 s = 24576: x=8*r: y=(8*40)*d: REM Statadress + Shift to right
50 for k = 0 to 10:for i = 0 to 55
60 p = s +(k*56)+i
70 poke (x+y+8192+(k*320)+i), (PEEK (p))
80 next i,k
90
100 rem Luminance $1800
110 for k = 0 to 10: for i = 0 to 6
120 p = p + 1
130 poke (r+(d*40)+DEC("1800")+i+(k*40)), peek(p)
140 next i,k
150
160 REMColor $1C00
170 for k = 0 to 10: for i = 0 to 6
180 p = p + 1
190 poke (r+(d*40)+DEC("1C00")+i+(k*40)), peek(p)
200 next i,k
The Code is of course very lame. But i am very happy about the result.
UPDATE: If you set this, color 0,1: color 3,2 the colors are right.
See here http://www.patsos.de/plus4/Grag4.JPG
@Gerliczer:
Any suggestions how to speed up the function? Even with Basic-Optimazation, it will be to slow.
I found your quick Rom routine, but i did not understand, how to fill the parameters right.
|
