Dark Bit Factory & Gravity
PROGRAMMING => Other languages => Blitz => Topic started by: relsoft on September 19, 2006
-
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!!!
-
if it's just doing a straight scale of the image you can just use:
SetScale(2,2) ' double it
DrawImage image,x,y ' draw it
SetScale(1,1) ' go back to normal scale
-
if it's just doing a straight scale of the image you can just use:
SetScale(2,2) ' double it
DrawImage image,x,y ' draw it
SetScale(1,1) ' go back to normal scale
don't forget to cls before and flip after
-
Thanks guys!!!
-
Hope it works for your friend :) I'm glad that there are some Bmax guys around to help when stuff like this comes up. I never played with it at all myself.