Hey guys, I have this scale2x code:
sub scale_2x(image as ubyte ptr)
const wid = 320
const hei = 240
dim x as integer, y as integer
dim x2 as integer, y2 as integer
'Scale2x stuff
dim E as ubyte, E0 as ubyte, E1 as ubyte, E2 as ubyte, E3 as ubyte
dim B as ubyte, D as ubyte, F as ubyte, H as ubyte
dim offset as ubyte ptr
offset = image
offset = image + 4
dim voff as ubyte ptr
voff = screenptr
screenlock
for y = 0 to hei - 1
for x = 0 to wid - 1
B= *(offset - wid)
D= *(offset - 1)
E= *(offset)
F= *(offset + 1)
H= *(offset + wid)
if B <> H and D <> F then
if D = B then E0 = D else E0 = E
'e0 = iif(d=b,d, e)
if B = F then E1 = F else E1 = E
'e1 = iif(b=f,f, e)
if D = H then E2 = D else E2 = E
'e2 = iif(d=h,d, e)
if H = F then E3 = F else E3 = E
'e3 = iif(h=f,f, e)
else
E0 = E
E1 = E
E2 = E
E3 = E
end if
*voff = e0
*(voff+1) = e1
*(voff+640) = e2
*(voff+641) = e3
offset += 1
voff += 2
next y
voff += 640
next x
screenunlock
end sub
How would I convert this to BMAX?
I don't have Bmax though.
This is for a person coding an 8 bit shmup.
Thanks!!!
