Pixel Art Scaling Algorithms? - GameCreators Forum

Author

Message

CSGames94

18

Years of Service

User Offline

Joined: 27th Dec 2007

Location:

Posted: 8th Aug 2011 22:11 Edited at: 8th Aug 2011 22:12

Link

http://en.wikipedia.org/wiki/Super_Eagle#Super_2xSaI_and_Super_Eagle
A couple of people have been begging me to add one of these algorithms (primarily super eagle), and so I'm wondering how you would implement these in DBPro?

Back to top

Profile PM Email Website

Dr Tank

17

Years of Service

User Offline

Joined: 1st Apr 2009

Location: Southampton, UK

Posted: 8th Aug 2011 23:26 Edited at: 8th Aug 2011 23:30

Link

I made a 3x and a 2x scaling algorithm like these for upscaling levels in my game. Speed wasn't a big issue for me (only runs when loading) so I didn't bother with using pointers. You might want to though.

Here's the 2x version. I can dig out the 3x if you want, but bascially it's the same type of thing.

Beware of misleading comments here!

function _load_and_upscale_image2x_sm(fname$,im)

`smoother upscale function - see prior to main dba 1.3.9 for replaced upscale func.
`scale 2x. an algorithm to make smoother scaled up images.
`not quite as nice as scale3x, but
`1) twice width levels seem nice scale (althogh could rescale level relative to spaceships etc)
`2) 2x fits just inside a power of 2
`3) simpler loading function
`4) presumably faster loading

_output_debug_check("begin upscale func for "+fname$+",im="+str$(im))

load image fname$,temp_image,1

make memblock from image temp_mb1,temp_image
xsize= memblock dword(temp_mb1,0)
ysize= memblock dword(temp_mb1,4)

_output_debug_check("made mb from image")

mbpos=12
dim image_array(xsize,ysize)     `perhaps should declare before func. not sure if tidies up after itself.

for b=0 to ysize-1
   for a=0 to xsize-1
      image_array(a,b)= memblock dword(temp_mb1,mbpos) && 0x00FFFFFF
      inc mbpos,4
   next a
next b

_output_debug_check("converted memblock to array") `this maybe unnecessary - a memblock basically is an array

`simple upscaling by 2x
xsize2=xsize*2 + 2:ysize2=ysize*2 + 2
make memblock temp_mb2, 12+4*xsize2*ysize2

_output_debug_check("made 2nd memblock")

`start by writing stuff to an array, then after this copy it into the memblock.
dim image_array_2x(xsize2, ysize2)     `perhaps should declare before func. not sure if tidies up after itself.

`1st do simple 3x upscale
for a=0 to xsize-1:for b=0 to ysize-1
  x2=a*2 +1
  y2=b*2 +1
  `c=image_array(a,b)
  for p=0 to 1:for q=0 to 1
      image_array_2x(x2+p,y2+q)=image_array(a,b)
  next q:next p
next b:next a

b1 as boolean
b2 as boolean
b3 as boolean
b4 as boolean

`do corner "chopping"
for a=1 to xsize-2:for b=1 to ysize-2

adouble=a*2 +1
   bdouble=b*2 +1

c1=image_array(a+1,b)
   c2=image_array(a,b+1)
   c3=image_array(a-1,b)
   c4=image_array(a,b-1)

b1= ( c1 <> 0 )
   b2= ( c2 <> 0 )
   b3= ( c3 <> 0 )
   b4= ( c4 <> 0 )

if ( b1 xor b3) and (b2 xor b4)
      if b1 and b2: image_array_2x(adouble+1, bdouble+1) = c1: endif `these lines can maybe be more efficient - since c1<>c3 and c2<>c4, they cannot all be true
      if b2 and b3: image_array_2x(adouble,   bdouble+1) = c2: endif `however this is neat. if fast don't bother optimising further yet.
      if b3 and b4: image_array_2x(adouble,   bdouble  ) = c3: endif
      if b4 and b1: image_array_2x(adouble+1, bdouble  ) = c4: endif
   endif

next b:next a

`output image
write memblock dword temp_mb2,0,xsize2
write memblock dword temp_mb2,4,ysize2
write memblock dword temp_mb2,8,32
mbpos=12

for b=0 to ysize2-1:for a=0 to xsize2-1
      write memblock dword temp_mb2,mbpos,image_array_2x(a,b)
      inc mbpos,4
next a:next b

if image exist(im)
   delete image im   `below line seems to cause crash on win 7 alone!
   _output_debug_check("deleted image im")
else
   _output_debug_check("im did not exist")
endif
make image from memblock im,temp_mb2

delete memblock temp_mb1
delete memblock temp_mb2

_output_debug_check("end upscale func")

endfunction

+ Code Snippet


function _load_and_upscale_image2x_sm(fname$,im)

`smoother upscale function - see prior to main dba 1.3.9 for replaced upscale func.
`scale 2x. an algorithm to make smoother scaled up images.
`not quite as nice as scale3x, but
`1) twice width levels seem nice scale (althogh could rescale level relative to spaceships etc)
`2) 2x fits just inside a power of 2
`3) simpler loading function
`4) presumably faster loading

_output_debug_check("begin upscale func for "+fname$+",im="+str$(im))

load image fname$,temp_image,1

make memblock from image temp_mb1,temp_image
xsize= memblock dword(temp_mb1,0)
ysize= memblock dword(temp_mb1,4)

_output_debug_check("made mb from image")

mbpos=12
dim image_array(xsize,ysize)     `perhaps should declare before func. not sure if tidies up after itself.

for b=0 to ysize-1
   for a=0 to xsize-1
      image_array(a,b)= memblock dword(temp_mb1,mbpos) && 0x00FFFFFF
      inc mbpos,4
   next a
next b

_output_debug_check("converted memblock to array") `this maybe unnecessary - a memblock basically is an array

`simple upscaling by 2x
xsize2=xsize*2 + 2:ysize2=ysize*2 + 2
make memblock temp_mb2, 12+4*xsize2*ysize2

_output_debug_check("made 2nd memblock")

`start by writing stuff to an array, then after this copy it into the memblock.
dim image_array_2x(xsize2, ysize2)     `perhaps should declare before func. not sure if tidies up after itself.

`1st do simple 3x upscale
for a=0 to xsize-1:for b=0 to ysize-1
  x2=a*2 +1
  y2=b*2 +1
  `c=image_array(a,b)
  for p=0 to 1:for q=0 to 1
      image_array_2x(x2+p,y2+q)=image_array(a,b)
  next q:next p
next b:next a


b1 as boolean
b2 as boolean
b3 as boolean
b4 as boolean

`do corner "chopping"
for a=1 to xsize-2:for b=1 to ysize-2

   adouble=a*2 +1
   bdouble=b*2 +1

   c1=image_array(a+1,b)
   c2=image_array(a,b+1)
   c3=image_array(a-1,b)
   c4=image_array(a,b-1)

   b1= ( c1 <> 0 )
   b2= ( c2 <> 0 )
   b3= ( c3 <> 0 )
   b4= ( c4 <> 0 )

   if ( b1 xor b3) and (b2 xor b4)
      if b1 and b2: image_array_2x(adouble+1, bdouble+1) = c1: endif `these lines can maybe be more efficient - since c1<>c3 and c2<>c4, they cannot all be true
      if b2 and b3: image_array_2x(adouble,   bdouble+1) = c2: endif `however this is neat. if fast don't bother optimising further yet.
      if b3 and b4: image_array_2x(adouble,   bdouble  ) = c3: endif
      if b4 and b1: image_array_2x(adouble+1, bdouble  ) = c4: endif
   endif

next b:next a


`output image
write memblock dword temp_mb2,0,xsize2
write memblock dword temp_mb2,4,ysize2
write memblock dword temp_mb2,8,32
mbpos=12

for b=0 to ysize2-1:for a=0 to xsize2-1
      write memblock dword temp_mb2,mbpos,image_array_2x(a,b)
      inc mbpos,4
next a:next b

if image exist(im)
   delete image im   `below line seems to cause crash on win 7 alone!
   _output_debug_check("deleted image im")
else
   _output_debug_check("im did not exist")
endif
make image from memblock im,temp_mb2

delete memblock temp_mb1
delete memblock temp_mb2

_output_debug_check("end upscale func")

endfunction

Back to top

Profile PM

CSGames94

18

Years of Service

User Offline

Joined: 27th Dec 2007

Location:

Posted: 9th Aug 2011 01:08

Link

Okay thanks!, I'm not worried about speed so I would like to see 3x.

Back to top

Profile PM Email Website

Dr Tank

17

Years of Service

User Offline

Joined: 1st Apr 2009

Location: Southampton, UK

Posted: 9th Aug 2011 01:25

Link

I just remembered/realised - all my upscaling code is only upscaling/smoothing between pixlels that are black, and pixels that are non-black.

I have a whole load of versions and can't be bothered to work out which one is best. Here's one though. Take it with a pinch of salt.

Note that, counterintuitively, while the 3x algorithm is intuitive, the 2x one is not. I needed to look up how to do it. Will try tro find the webpage in a bit.

Here's my code that's mostly a load of balls. Maybe ignore the bit towards the end about blocks and stars. Think they were specific fixes for how I wanted the upscaler to work for my special case.

REM Project: pixel upscaler
REM Created: 22/05/2011 16:15:46
REM
REM ***** Main Source File *****
REM

`something i can use to upscale gravity force 2 levels 3x, and not have them look so pixellated.

`a number of things i can try.
`do i want to just smooth between different collision types (empty, destructible, indestructible), or do i want to smooth everything?
`do i want to maintain the palette, or use anti aliasing?

`simplest thing to try 1st would be some kind of corner cutting off thing - either for matching colour, or for empty/non-empty
`rule like- if all squares touching that corner are the same colour, cut off the corner, put its colour to that colour.
` next step might be to add rule - for "edge" square, if square touching that edge, the 2 next to it, and 1 of the squares touching those squares are the same, change it.

`should have exceptions for special cases- for thin lines etc.

`simplest thing to test: monochrome image upsizing.

`myimagename$ = "combo_final2destr.bmp"
`myimagename$ = "joined_destr.bmp"
myimagename$ = "test.bmp"

load image myimagename$,1,1

`extract image information and put it into an array
make memblock from image 1,1

`extract image size variables

xsize= memblock dword(1,0)
ysize= memblock dword(1,4)

depth=memblock dword(1,8)

mbpos=12
dim image_array(xsize,ysize)

for b=0 to ysize-1
   for a=0 to xsize-1
      image_array(a,b)= ( (memblock dword(1,mbpos)&&0x00FFFFFF) = 0 )   `zero if black, else nonzero (1?)
      inc mbpos,4
   next b
next a

`check can render it out as a black/white image
make memblock 2,get memblock size(1)
copy memblock 1,2,0,0,get memblock size(1)

mbpos=12

for b=0 to ysize-1
   for a=0 to xsize-1
      if image_array(a,b)
         write memblock dword 2,mbpos,0xFFFFFFFF
      else
         write memblock dword 2,mbpos,0x00000000
      endif
      inc mbpos,4
   next b
next a
make image from memblock 2,2
save image "mono_1x.bmp",2

`now try simple upscaling by 3x
xsize3=xsize*3:ysize3=ysize*3
make memblock 3, 12+4*xsize3*ysize3

`start by writing stuff to an array, then after this copy it into the memblock.
dim image_array_3x(xsize3, ysize3)

`1st do simple 3x upscale
for a=0 to xsize-1:for b=0 to ysize-1
  x3=a*3
  y3=b*3
  `c=image_array(a,b)
  for p=0 to 2:for q=0 to 2
      image_array_3x(x3+p,y3+q)=image_array(a,b)
  next q:next p
next b:next a

`do corner "chopping"
`written in a long, inelegant way, but no matter.
`for a=0 to xsize-2:for b=0 to ysize-2
for a=1 to xsize-2:for b=1 to ysize-2

c0=image_array(a,b)
c1 as dword
c2 as dword
c3 as dword
c1=image_array(a+1,b)
c2=image_array(a,b+1)
c3=image_array(a+1,b+1)

c4=image_array(a+1,b-1)
c5=image_array(a-1,b+1)

`if c0<>c1 and c1=c2 and c1=c3

`if c1=c2 and c1=c3
if (c1=c2)  ` and ( c0<>c4 or c0<>c5 )
   image_array_3x(a*3+2, b*3+2) = c1
endif
next b:next a

`for a=1 to xsize-1:for b=0 to ysize-2
for a=1 to xsize-2:for b=1 to ysize-2
c0=image_array(a,b)
c1 as dword
c2 as dword
c3 as dword
c1=image_array(a-1,b)
c2=image_array(a,b+1)
c3=image_array(a-1,b+1)

c4=image_array(a+1,b+1)
c5=image_array(a-1,b-1)

`if c0<>c1 and c1=c2 and c1=c3
`if c1=c2 and ( c1=c3 or
if (c1=c2)  ` and ( c0<>c4 or c0<>c5 )
   `image_array_3x(a*3, b*3+2) = (c1 && 0xFF00FFFF) || 0x00FF0000
   image_array_3x(a*3, b*3+2) = c1
endif
next b:next a

`for a=0 to xsize-2:for b=1 to ysize-1
for a=1 to xsize-2:for b=1 to ysize-2
c0=image_array(a,b)
c1=image_array(a+1,b)
c2=image_array(a,b-1)
c3=image_array(a+1,b-1)

c4=image_array(a+1,b-1)
c5=image_array(a-1,b+1)

`if c1=c2 and c1=c3
if (c1=c2)  ` and ( c0<>c4 or c0<>c5 )
   image_array_3x(a*3+2, b*3) = c1
endif
next b:next a

`for a=1 to xsize-1:for b=1 to ysize-1
for a=1 to xsize-2:for b=1 to ysize-2
c0=image_array(a,b)
c1=image_array(a-1,b)
c2=image_array(a,b-1)
c3=image_array(a-1,b-1)

c4=image_array(a+1,b+1)
c5=image_array(a-1,b-1)

`if c1=c2 and c1=c3
if (c1=c2)  ` and ( c0<>c4 or c0<>c5 )
   image_array_3x(a*3, b*3) = c1
endif
next b:next a

`output image
write memblock dword 3,0,xsize3
write memblock dword 3,4,ysize3
write memblock dword 3,8,depth
mbpos=12

for b=0 to ysize3-1
   for a=0 to xsize3-1
      if image_array_3x(a,b)
         write memblock dword 3,mbpos,0xFFFFFFFF
      else
         write memblock dword 3,mbpos,0x00000000
      endif
      inc mbpos,4
   next b
next a
make image from memblock 3,3
save image "mono_3x.bmp",3

`now do "edge" squares as well
for a=0 to xsize-2:for b=1 to ysize-2
c1=image_array(a+1,b)
c2=image_array(a+1,b-1)
c3=image_array(a+1,b+1)
c4=image_array(a,b-1)
c5=image_array(a,b+1)

if c1=c2 and c1=c3
if c1=c4 or c1=c5
   image_array_3x(a*3+2, b*3+1) = c1
endif
endif
next b:next a

for a=1 to xsize-1:for b=1 to ysize-2
c1=image_array(a-1,b)
c2=image_array(a-1,b-1)
c3=image_array(a-1,b+1)
c4=image_array(a,b-1)
c5=image_array(a,b+1)

if c1=c2 and c1=c3
if c1=c4 or c1=c5
   image_array_3x(a*3, b*3+1) = c1
endif
endif
next b:next a

for a=1 to xsize-2:for b=0 to ysize-2
c1=image_array(a,b+1)
c2=image_array(a-1,b+1)
c3=image_array(a+1,b+1)
c4=image_array(a-1,b)
c5=image_array(a+1,b)

if c1=c2 and c1=c3
if c1=c4 or c1=c5
   image_array_3x(a*3+1, b*3+2) = c1
endif
endif
next b:next a

for a=1 to xsize-2:for b=1 to ysize-1
c1=image_array(a,b-1)
c2=image_array(a-1,b-1)
c3=image_array(a+1,b-1)
c4=image_array(a-1,b)
c5=image_array(a+1,b)

if c1=c2 and c1=c3
if c1=c4 or c1=c5
   image_array_3x(a*3+1, b*3) = c1
endif
endif
next b:next a

`add another rule: make 3x3 block if is "isolated" pixel
`REMSTART
for a=1 to xsize-2
for b=1 to ysize-2
isol_x= ( (image_array(a-1,b)-image_array(a+1,b) ) =0 )
isol_y= ( (image_array(a,b-1)-image_array(a,b+1) ) =0 )
if isol_x and isol_y
`if isol_x or isol_y
  x3=a*3
  y3=b*3
  `c=image_array(a,b)
  for p=0 to 2:for q=0 to 2
      image_array_3x(x3+p,y3+q)=image_array(a,b)
  next q:next p

endif
next b
next a
`REMEND

`make a `star` if isolated in either direction.
for a=1 to xsize-2
for b=1 to ysize-2
isol_x= ( (image_array(a-1,b)-image_array(a+1,b) ) =0 )
isol_y= ( (image_array(a,b-1)-image_array(a,b+1) ) =0 )
`if isol_x and isol_y
if isol_x or isol_y
  x3=a*3
  y3=b*3
  `c=image_array(a,b)
  for p=0 to 2 step 2
      image_array_3x(x3+1,y3+p)=image_array(a,b)
      image_array_3x(x3+p,y3+1)=image_array(a,b)
  next p

endif
next b
next a

`write again to memblock to export another image

`output image
write memblock dword 3,0,xsize3
write memblock dword 3,4,ysize3
write memblock dword 3,8,depth
mbpos=12

for b=0 to ysize3-1
   for a=0 to xsize3-1
      if image_array_3x(a,b)
         write memblock dword 3,mbpos,0xFFFFFFFF
      else
         write memblock dword 3,mbpos,0x00000000
      endif
      inc mbpos,4
   next b
next a
make image from memblock 4,3
save image "mono_3xa.bmp",4

sync on

do
text 0,0,str$(depth)
sync
loop

end

+ Code Snippet

REM Project: pixel upscaler
REM Created: 22/05/2011 16:15:46
REM
REM ***** Main Source File *****
REM


`something i can use to upscale gravity force 2 levels 3x, and not have them look so pixellated.

`a number of things i can try.
`do i want to just smooth between different collision types (empty, destructible, indestructible), or do i want to smooth everything?
`do i want to maintain the palette, or use anti aliasing?

`simplest thing to try 1st would be some kind of corner cutting off thing - either for matching colour, or for empty/non-empty
`rule like- if all squares touching that corner are the same colour, cut off the corner, put its colour to that colour.
` next step might be to add rule - for "edge" square, if square touching that edge, the 2 next to it, and 1 of the squares touching those squares are the same, change it.

`should have exceptions for special cases- for thin lines etc.


`simplest thing to test: monochrome image upsizing.


`myimagename$ = "combo_final2destr.bmp"
`myimagename$ = "joined_destr.bmp"
myimagename$ = "test.bmp"

load image myimagename$,1,1


`extract image information and put it into an array
make memblock from image 1,1

`extract image size variables

xsize= memblock dword(1,0)
ysize= memblock dword(1,4)

depth=memblock dword(1,8)

mbpos=12
dim image_array(xsize,ysize)


   for b=0 to ysize-1
   for a=0 to xsize-1
      image_array(a,b)= ( (memblock dword(1,mbpos)&&0x00FFFFFF) = 0 )   `zero if black, else nonzero (1?)
      inc mbpos,4
   next b
next a


`check can render it out as a black/white image
make memblock 2,get memblock size(1)
copy memblock 1,2,0,0,get memblock size(1)

mbpos=12

   for b=0 to ysize-1
   for a=0 to xsize-1
      if image_array(a,b)
         write memblock dword 2,mbpos,0xFFFFFFFF
      else
         write memblock dword 2,mbpos,0x00000000
      endif
      inc mbpos,4
   next b
next a
make image from memblock 2,2
save image "mono_1x.bmp",2


`now try simple upscaling by 3x
xsize3=xsize*3:ysize3=ysize*3
make memblock 3, 12+4*xsize3*ysize3

`start by writing stuff to an array, then after this copy it into the memblock.
dim image_array_3x(xsize3, ysize3)

`1st do simple 3x upscale
for a=0 to xsize-1:for b=0 to ysize-1
  x3=a*3
  y3=b*3
  `c=image_array(a,b)
  for p=0 to 2:for q=0 to 2
      image_array_3x(x3+p,y3+q)=image_array(a,b)
  next q:next p
next b:next a

`do corner "chopping"
`written in a long, inelegant way, but no matter.
`for a=0 to xsize-2:for b=0 to ysize-2
for a=1 to xsize-2:for b=1 to ysize-2

c0=image_array(a,b)
c1 as dword
c2 as dword
c3 as dword
c1=image_array(a+1,b)
c2=image_array(a,b+1)
c3=image_array(a+1,b+1)

c4=image_array(a+1,b-1)
c5=image_array(a-1,b+1)

`if c0<>c1 and c1=c2 and c1=c3

`if c1=c2 and c1=c3
if (c1=c2)  ` and ( c0<>c4 or c0<>c5 )
   image_array_3x(a*3+2, b*3+2) = c1
endif
next b:next a

`for a=1 to xsize-1:for b=0 to ysize-2
for a=1 to xsize-2:for b=1 to ysize-2
c0=image_array(a,b)
c1 as dword
c2 as dword
c3 as dword
c1=image_array(a-1,b)
c2=image_array(a,b+1)
c3=image_array(a-1,b+1)

c4=image_array(a+1,b+1)
c5=image_array(a-1,b-1)

`if c0<>c1 and c1=c2 and c1=c3
`if c1=c2 and ( c1=c3 or
if (c1=c2)  ` and ( c0<>c4 or c0<>c5 )
   `image_array_3x(a*3, b*3+2) = (c1 && 0xFF00FFFF) || 0x00FF0000
   image_array_3x(a*3, b*3+2) = c1
endif
next b:next a

`for a=0 to xsize-2:for b=1 to ysize-1
for a=1 to xsize-2:for b=1 to ysize-2
c0=image_array(a,b)
c1=image_array(a+1,b)
c2=image_array(a,b-1)
c3=image_array(a+1,b-1)

c4=image_array(a+1,b-1)
c5=image_array(a-1,b+1)

`if c1=c2 and c1=c3
if (c1=c2)  ` and ( c0<>c4 or c0<>c5 )
   image_array_3x(a*3+2, b*3) = c1
endif
next b:next a

`for a=1 to xsize-1:for b=1 to ysize-1
for a=1 to xsize-2:for b=1 to ysize-2
c0=image_array(a,b)
c1=image_array(a-1,b)
c2=image_array(a,b-1)
c3=image_array(a-1,b-1)

c4=image_array(a+1,b+1)
c5=image_array(a-1,b-1)

`if c1=c2 and c1=c3
if (c1=c2)  ` and ( c0<>c4 or c0<>c5 )
   image_array_3x(a*3, b*3) = c1
endif
next b:next a


`output image
write memblock dword 3,0,xsize3
write memblock dword 3,4,ysize3
write memblock dword 3,8,depth
mbpos=12

   for b=0 to ysize3-1
   for a=0 to xsize3-1
      if image_array_3x(a,b)
         write memblock dword 3,mbpos,0xFFFFFFFF
      else
         write memblock dword 3,mbpos,0x00000000
      endif
      inc mbpos,4
   next b
next a
make image from memblock 3,3
save image "mono_3x.bmp",3


`now do "edge" squares as well
for a=0 to xsize-2:for b=1 to ysize-2
c1=image_array(a+1,b)
c2=image_array(a+1,b-1)
c3=image_array(a+1,b+1)
c4=image_array(a,b-1)
c5=image_array(a,b+1)

if c1=c2 and c1=c3
if c1=c4 or c1=c5
   image_array_3x(a*3+2, b*3+1) = c1
endif
endif
next b:next a

for a=1 to xsize-1:for b=1 to ysize-2
c1=image_array(a-1,b)
c2=image_array(a-1,b-1)
c3=image_array(a-1,b+1)
c4=image_array(a,b-1)
c5=image_array(a,b+1)

if c1=c2 and c1=c3
if c1=c4 or c1=c5
   image_array_3x(a*3, b*3+1) = c1
endif
endif
next b:next a


for a=1 to xsize-2:for b=0 to ysize-2
c1=image_array(a,b+1)
c2=image_array(a-1,b+1)
c3=image_array(a+1,b+1)
c4=image_array(a-1,b)
c5=image_array(a+1,b)

if c1=c2 and c1=c3
if c1=c4 or c1=c5
   image_array_3x(a*3+1, b*3+2) = c1
endif
endif
next b:next a


for a=1 to xsize-2:for b=1 to ysize-1
c1=image_array(a,b-1)
c2=image_array(a-1,b-1)
c3=image_array(a+1,b-1)
c4=image_array(a-1,b)
c5=image_array(a+1,b)

if c1=c2 and c1=c3
if c1=c4 or c1=c5
   image_array_3x(a*3+1, b*3) = c1
endif
endif
next b:next a


`add another rule: make 3x3 block if is "isolated" pixel
`REMSTART
for a=1 to xsize-2
for b=1 to ysize-2
isol_x= ( (image_array(a-1,b)-image_array(a+1,b) ) =0 )
isol_y= ( (image_array(a,b-1)-image_array(a,b+1) ) =0 )
if isol_x and isol_y
`if isol_x or isol_y
  x3=a*3
  y3=b*3
  `c=image_array(a,b)
  for p=0 to 2:for q=0 to 2
      image_array_3x(x3+p,y3+q)=image_array(a,b)
  next q:next p

endif
next b
next a
`REMEND

`make a `star` if isolated in either direction.
for a=1 to xsize-2
for b=1 to ysize-2
isol_x= ( (image_array(a-1,b)-image_array(a+1,b) ) =0 )
isol_y= ( (image_array(a,b-1)-image_array(a,b+1) ) =0 )
`if isol_x and isol_y
if isol_x or isol_y
  x3=a*3
  y3=b*3
  `c=image_array(a,b)
  for p=0 to 2 step 2
      image_array_3x(x3+1,y3+p)=image_array(a,b)
      image_array_3x(x3+p,y3+1)=image_array(a,b)
  next p

endif
next b
next a






`write again to memblock to export another image

`output image
write memblock dword 3,0,xsize3
write memblock dword 3,4,ysize3
write memblock dword 3,8,depth
mbpos=12

   for b=0 to ysize3-1
   for a=0 to xsize3-1
      if image_array_3x(a,b)
         write memblock dword 3,mbpos,0xFFFFFFFF
      else
         write memblock dword 3,mbpos,0x00000000
      endif
      inc mbpos,4
   next b
next a
make image from memblock 4,3
save image "mono_3xa.bmp",4




sync on

do
text 0,0,str$(depth)
sync
loop



end

Back to top

Profile PM

Dr Tank

17

Years of Service

User Offline

Joined: 1st Apr 2009

Location: Southampton, UK

Posted: 9th Aug 2011 01:31

Link

check out this page:
http://scale2x.sourceforge.net/algorithm.html

The wiki article you posted is good too.

Back to top

Profile PM

CSGames94

18

Years of Service

User Offline

Joined: 27th Dec 2007

Location:

Posted: 9th Aug 2011 02:15

Link

Thanks for the help!

Back to top

Profile PM Email Website

CSGames94

18

Years of Service

User Offline

Joined: 27th Dec 2007

Location:

Posted: 10th Aug 2011 02:02

Link

Been trying to write my own with no success. The part I don't understand is when the pixels are being transferred over to the new memblock.

+ Code Snippet

`1st do simple 3x upscale
for a=0 to xsize-1:for b=0 to ysize-1
  x3=a*3
  y3=b*3
  `c=image_array(a,b)
  for p=0 to 2:for q=0 to 2
      image_array_3x(x3+p,y3+q)=image_array(a,b)
  next q:next p
next b:next a

That part is confusing me.

Btw, here is what yours looks like:

Original -

Resized Normally -

Using Your Resizing Method -

Back to top

Profile PM Email Website

Dr Tank

17

Years of Service

User Offline

Joined: 1st Apr 2009

Location: Southampton, UK

Posted: 10th Aug 2011 05:12

Link

Dude that looks really good! It does get confused by thin diagonal lines though.

All the snippet of code you posted above is doing is generating an image array that contains the "Resized Normally" image you posted above- for each pixel in the original, it has a 3x3 square of 9 pixels with the same colour. I think my thinking was to start with this image, and overwrite bits to get to the "smoothed" version. Not sure if this is the most efficient way to do it.

Here's the same code with some comments:

+ Code Snippet

`1st do simple 3x upscale
for a=0 to xsize-1:for b=0 to ysize-1    `this loops over original image dimensions
  x3=a*3     `(x3,y3) are co-ordinates of corner of 3x3 square equivalent to 1x1 square at (a,b) in original image
  y3=b*3
  `c=image_array(a,b)
  for p=0 to 2:for q=0 to 2    `this loops over the 3x3 square, setting each pixel as same colour as the 1x1 square in original image
      image_array_3x(x3+p,y3+q)=image_array(a,b)
  next q:next p
next b:next a

Back to top

Profile PM

CSGames94

18

Years of Service

User Offline

Joined: 27th Dec 2007

Location:

Posted: 10th Aug 2011 07:37

Link

Okay thanks, I understand it now!

But, I think it is better to smooth the image while your resizing it instead of after, that's what I was trying to come off from.

Back to top

Profile PM Email Website

CSGames94

18

Years of Service

User Offline

Joined: 27th Dec 2007

Location:

Posted: 10th Aug 2011 19:00

Link

Now I'm dealing with another problem, trying to use the Scale3X on the wiki.

Function Scale3XFilter(Image)
    
    Make Memblock From Image 1, Image
    Delete Image Image
    ImageWidth = Memblock Dword(1, 0)
    ImageHeight = Memblock Dword(1, 4)
    ImageDepth = Memblock Dword(1, 8)
    
    Dim Image1(ImageWidth, ImageHeight) 
    Position = 12
    For X = 0 To ImageWidth - 1
        For Y = 0 To ImageHeight - 1
            Image1(X, Y) = Memblock Dword(1, Position)
            Inc Position, 4
        Next Y
    Next X
    
    ImageWidth2 = ImageWidth * 3
    ImageHeight2 = ImageHeight * 3
    Make Memblock 2, 12 + 4 * ImageWidth2 * ImageHeight2
    
    Dim Image2(ImageWidth2, ImageHeight2)
    For X = 1 To ImageWidth - 2
        For Y = 1 To ImageHeight - 2
            PA = Image1(X - 1, Y - 1)
            PB = Image1(X, Y - 1)
            PC = Image1(X + 1, Y - 1)
            PD = Image1(X - 1, Y)
            PE = Image1(X, Y)
            PF = Image1(X + 1, Y)
            PG = Image1(X - 1, Y + 1)
            PH = Image1(X, Y + 1)
            PO = Image1(X + 1, Y + 1)
            
            NP1 = PE : NP2 = PE : NP3 = PE
            NP4 = PE : NP5 = PE : NP6 = PE
            NP7 = PE : NP8 = PE : NP9 = PE
            
            If PD = PB And PD <> PH And PB <> PF Then NP1 = PD
            If PD = PB And PD <> PH And PB <> PF And PE <> PC Or PB = PF And PB <> PD And PF <> PH And PE <> PA Then NP2 = PB
            If PB = PF And PB <> PD And PF <> PH Then NP3 = PF
            If PH = PD And PH <> PF And PD <> PB And PE <> PA Or PD = PB And PD <> PH And PB <> PF And PE <> PG Then NP4 = PD
            NP5 = PE
            If PB = PF And PB <> PD And PF <> PH And PE <> PO Or PF <> PH And PF <> PB And PH <> PD And PE <> PC Then NP6 = PF
            If PH = PD And PH <> PF And PD <> PB Then NP7 = PD
            If PF = PH And PF <> PB And PH <> PD And PE <> PG Or PH = PD And PH <> PF And PD <> PB And PE <> PO Then NP8 = PH
            If PF = PH And PF <> PB And PH <> PD Then NP9 = PF
                
            X2 = X * 3 : Y2 = Y * 3
            For A = 0 To 2
                For B = 0 To 2
                    Image2(X2 + A, Y2 + B) = Image1(X, Y)
                Next B
            Next A
            Image2(X2, Y2) = NP1
            Image2(X2 + 1, Y2) = NP2
            Image2(X2 + 2, Y2) = NP3
            Image2(X2, Y2 + 1) = NP4
            Image2(X2 + 1, Y2 + 1) = NP5
            Image2(X2 + 2, Y2 + 1) = NP6       
            Image2(X2, Y2 + 2) = NP7
            Image2(X2 + 1, Y2 + 2) = NP8
            Image2(X2 + 2, Y2 + 2) = NP9
        Next Y
    Next X
    
    Write Memblock Dword 2, 0, ImageWidth2
    Write Memblock Dword 2, 4, ImageHeight2
    Write Memblock Dword 2, 8, ImageDepth
    
    Position = 12
    For X = 0 To ImageWidth2 - 1
        For Y = 0 To ImageHeight2 - 1
            Write Memblock Dword 2, Position, Image2(X, Y)
            Inc Position, 4
        Next Y
    Next X

Make Image From Memblock Image, 2
    Save Image "EagleFilter.png", Image
    Paste Image Image, 0, 0, 1
    Delete Memblock 1
    Delete Memblock 2
    
EndFunction

+ Code Snippet

Function Scale3XFilter(Image)
    
    Make Memblock From Image 1, Image
    Delete Image Image
    ImageWidth = Memblock Dword(1, 0)
    ImageHeight = Memblock Dword(1, 4)
    ImageDepth = Memblock Dword(1, 8)
    
    Dim Image1(ImageWidth, ImageHeight) 
    Position = 12
    For X = 0 To ImageWidth - 1
        For Y = 0 To ImageHeight - 1
            Image1(X, Y) = Memblock Dword(1, Position)
            Inc Position, 4
        Next Y
    Next X
    
    ImageWidth2 = ImageWidth * 3
    ImageHeight2 = ImageHeight * 3
    Make Memblock 2, 12 + 4 * ImageWidth2 * ImageHeight2
    
    Dim Image2(ImageWidth2, ImageHeight2)
    For X = 1 To ImageWidth - 2
        For Y = 1 To ImageHeight - 2
            PA = Image1(X - 1, Y - 1)
            PB = Image1(X, Y - 1)
            PC = Image1(X + 1, Y - 1)
            PD = Image1(X - 1, Y)
            PE = Image1(X, Y)
            PF = Image1(X + 1, Y)
            PG = Image1(X - 1, Y + 1)
            PH = Image1(X, Y + 1)
            PO = Image1(X + 1, Y + 1)
            
            NP1 = PE : NP2 = PE : NP3 = PE
            NP4 = PE : NP5 = PE : NP6 = PE
            NP7 = PE : NP8 = PE : NP9 = PE
            
            If PD = PB And PD <> PH And PB <> PF Then NP1 = PD
            If PD = PB And PD <> PH And PB <> PF And PE <> PC Or PB = PF And PB <> PD And PF <> PH And PE <> PA Then NP2 = PB
            If PB = PF And PB <> PD And PF <> PH Then NP3 = PF
            If PH = PD And PH <> PF And PD <> PB And PE <> PA Or PD = PB And PD <> PH And PB <> PF And PE <> PG Then NP4 = PD
            NP5 = PE
            If PB = PF And PB <> PD And PF <> PH And PE <> PO Or PF <> PH And PF <> PB And PH <> PD And PE <> PC Then NP6 = PF
            If PH = PD And PH <> PF And PD <> PB Then NP7 = PD
            If PF = PH And PF <> PB And PH <> PD And PE <> PG Or PH = PD And PH <> PF And PD <> PB And PE <> PO Then NP8 = PH
            If PF = PH And PF <> PB And PH <> PD Then NP9 = PF
                
            X2 = X * 3 : Y2 = Y * 3
            For A = 0 To 2
                For B = 0 To 2
                    Image2(X2 + A, Y2 + B) = Image1(X, Y)
                Next B
            Next A
            Image2(X2, Y2) = NP1
            Image2(X2 + 1, Y2) = NP2
            Image2(X2 + 2, Y2) = NP3
            Image2(X2, Y2 + 1) = NP4
            Image2(X2 + 1, Y2 + 1) = NP5
            Image2(X2 + 2, Y2 + 1) = NP6       
            Image2(X2, Y2 + 2) = NP7
            Image2(X2 + 1, Y2 + 2) = NP8
            Image2(X2 + 2, Y2 + 2) = NP9
        Next Y
    Next X
    
    Write Memblock Dword 2, 0, ImageWidth2
    Write Memblock Dword 2, 4, ImageHeight2
    Write Memblock Dword 2, 8, ImageDepth
    
    Position = 12
    For X = 0 To ImageWidth2 - 1
        For Y = 0 To ImageHeight2 - 1
            Write Memblock Dword 2, Position, Image2(X, Y)
            Inc Position, 4
        Next Y
    Next X

    Make Image From Memblock Image, 2
    Save Image "EagleFilter.png", Image
    Paste Image Image, 0, 0, 1
    Delete Memblock 1
    Delete Memblock 2
    
EndFunction

Everytime I compile, the image always looks like the attached image. I don't understand what I have done wrong, and no matter what I change It always seems to come out like that.

Back to top

Profile PM Email Website

Dr Tank

17

Years of Service

User Offline

Joined: 1st Apr 2009

Location: Southampton, UK

Posted: 10th Aug 2011 21:37

Link

Probably because you're looping over y within the x loop, instead of the other way around.

where you've got

for x=0 to width-1
for y=0 to height-1

you should have

for y=0 to height-1
for x=0 to width-1

It's because of the way memblocks are ordered

Back to top

Profile PM

CSGames94

18

Years of Service

User Offline

Joined: 27th Dec 2007

Location:

Posted: 10th Aug 2011 22:19

Link

Okay, now its working. Thanks a lot!

Back to top

Profile PM Email Website

Dr Tank

17

Years of Service

User Offline

Joined: 1st Apr 2009

Location: Southampton, UK

Posted: 13th Aug 2011 02:05

Link

Well done dude. I look forward to seeing where you go with this.

Back to top

Profile PM

CSGames94

18

Years of Service

User Offline

Joined: 27th Dec 2007

Location:

Posted: 13th Aug 2011 14:01

Link

Well, I've added some sort of contrast adjustment to the image scaler. Really makes Dr. Doom look more metallic, but for some reason it creates this black box around the image:

Original -

Resized Using FC -

Resized Using FC with Contrast Adjustment -

Here is the code :

Function PixelScale3x(Image, Contrast#)
    
    Make Memblock From Image 1, Image
    Delete Image Image
    ImageWidth = Memblock Dword(1, 0)
    ImageHeight = Memblock Dword(1, 4)
    ImageDepth = Memblock Dword(1, 8)
    
    Dim Image1(ImageWidth, ImageHeight) 
    Position = 12
    For Y = 0 To ImageHeight - 1
        For X = 0 To ImageWidth - 1
            Image1(X, Y) = Memblock Dword(1, Position)
            Inc Position, 4
        Next Y
    Next X
    
    ImageWidth2 = ImageWidth * 3
    ImageHeight2 = ImageHeight * 3
    Make Memblock 2, 12 + 4 * ImageWidth2 * ImageHeight2
    
    Dim Image2(ImageWidth2, ImageHeight2)
    For Y = 1 To ImageHeight - 2
        For X = 1 To ImageWidth - 2
            CAL = Image1(X-1, Y-1) : CA = Image1(X, Y-1) : CAR = Image1(X+1, Y-1)
            CL  = Image1(X-1, Y)   : C  = Image1(X, Y)   : CR  = Image1(X+1, Y)
            CBL = Image1(X-1, Y+1) : CB = Image1(X, Y+1) : CBR = Image1(X+1, Y+1)
            
            NP1 = C : NP2 = C : NP3 = C
            NP4 = C : NP5 = C : NP6 = C
            NP7 = C : NP8 = C : NP9 = C
            
            If CL = CA And CL <> CB And CA <> CR Then NP1 = CL
            If CL = CA And CL <> CB And CA <> CR And C <> CAR Or CA = CR And CA <> CL And CR <> CB And C <> CAL Then NP2 = CA
            If CA = CR And CA <> CL And CR <> CB Then NP3 = CR
            If CB = CL And CB <> CR And CL <> CA And C <> CAL Or CL = CA And CL <> CB And CA <> CR And CR <> CBL Then NP4 = CL
            NP5 = C
            If CA = CR And CA <> CL And CR <> CB And C <> CBR Or CR = CB And CR <> CA And CB <> CL And CR <> CAR Then NP6 = CR
            If CB = CL And CB <> CR And CL <> CA Then NP7 = CL
            If CR = CB And CR <> CA And CB <> CL And C <> CBL Or CB = CL And CB <> CR And CL <> CA And C <> CBR Then NP8 = CB
            If CR = CB And CR <> CA And CB <> CL Then NP9 = CR
            
            If CAL = C : NP4 = CAL : NP2 = CAL : Endif
            If CAR = C : NP2 = CAR : NP6 = CAR : Endif
            If CBL = C : NP8 = CBL : NP4 = CBL : Endif
            If CBR = C : NP6 = CBR : NP8 = CBR : Endif
            If CA = C And CB = C : NP4 = C : NP6 = C : Endif
            If CL = C And CR = C : NP2 = C : NP8 = C : Endif
             
            X2 = X * 3 : Y2 = Y * 3
            Image2(X2-1, Y2-1) = NP1 : Image2(X2, Y2-1) = NP2 : Image2(X2+1, Y2-1) = NP3
            Image2(X2-1, Y2)   = NP4 : Image2(X2, Y2)   = NP5 : Image2(X2+1, Y2)   = NP6
            Image2(X2-1, Y2+1) = NP7 : Image2(X2, Y2+1) = NP8 : Image2(X2+1, Y2+1) = NP9
        Next Y
    Next X
    
    Write Memblock Dword 2, 0, ImageWidth2
    Write Memblock Dword 2, 4, ImageHeight2
    Write Memblock Dword 2, 8, ImageDepth
    
    Position = 12
    For Y = 0 To ImageHeight2 - 1
        For X = 0 To ImageWidth2 - 1
            If Contrast# > 0
                If RGBR(Image2(X, Y)) > 126 And RGBG(Image2(X, Y)) > 126 And RGBB(Image2(X, Y)) > 126
                    PR = RGBR(Image2(X, Y)) + Contrast# : If PR > 255 Then PR = 255
                    PG = RGBG(Image2(X, Y)) + Contrast# : If PG > 255 Then PG = 255
                    PB = RGBB(Image2(X, Y)) + Contrast# : If PB > 255 Then PB = 255
                    Image2(X, Y) = RGB(PR,PG,PB)
                Endif
                If RGBR(Image2(X, Y)) < 126 And RGBG(Image2(X, Y)) < 126 And RGBB(Image2(X, Y)) < 126
                    PR = RGBR(Image2(X, Y)) - Contrast# : If PR < 0 Then PR = 0
                    PG = RGBG(Image2(X, Y)) - Contrast# : If PG < 0 Then PG = 0
                    PB = RGBB(Image2(X, Y)) - Contrast# : If PB < 0 Then PB = 0
                    Image2(X, Y) = RGB(PR,PG,PB)
                Endif
            Endif
            Write Memblock Dword 2, Position, Image2(X, Y)
            Inc Position, 4
        Next Y
    Next X

Make Image From Memblock Image, 2
    Delete Memblock 1
    Delete Memblock 2
    UnDim Image1(0)
    UnDim Image2(0)
    
EndFunction

+ Code Snippet

Function PixelScale3x(Image, Contrast#)
    
    Make Memblock From Image 1, Image
    Delete Image Image
    ImageWidth = Memblock Dword(1, 0)
    ImageHeight = Memblock Dword(1, 4)
    ImageDepth = Memblock Dword(1, 8)
    
    Dim Image1(ImageWidth, ImageHeight) 
    Position = 12
    For Y = 0 To ImageHeight - 1
        For X = 0 To ImageWidth - 1
            Image1(X, Y) = Memblock Dword(1, Position)
            Inc Position, 4
        Next Y
    Next X
    
    ImageWidth2 = ImageWidth * 3
    ImageHeight2 = ImageHeight * 3
    Make Memblock 2, 12 + 4 * ImageWidth2 * ImageHeight2
    
    Dim Image2(ImageWidth2, ImageHeight2)
    For Y = 1 To ImageHeight - 2
        For X = 1 To ImageWidth - 2
            CAL = Image1(X-1, Y-1) : CA = Image1(X, Y-1) : CAR = Image1(X+1, Y-1)
            CL  = Image1(X-1, Y)   : C  = Image1(X, Y)   : CR  = Image1(X+1, Y)
            CBL = Image1(X-1, Y+1) : CB = Image1(X, Y+1) : CBR = Image1(X+1, Y+1)
            
            NP1 = C : NP2 = C : NP3 = C
            NP4 = C : NP5 = C : NP6 = C
            NP7 = C : NP8 = C : NP9 = C
            
            If CL = CA And CL <> CB And CA <> CR Then NP1 = CL
            If CL = CA And CL <> CB And CA <> CR And C <> CAR Or CA = CR And CA <> CL And CR <> CB And C <> CAL Then NP2 = CA
            If CA = CR And CA <> CL And CR <> CB Then NP3 = CR
            If CB = CL And CB <> CR And CL <> CA And C <> CAL Or CL = CA And CL <> CB And CA <> CR And CR <> CBL Then NP4 = CL
            NP5 = C
            If CA = CR And CA <> CL And CR <> CB And C <> CBR Or CR = CB And CR <> CA And CB <> CL And CR <> CAR Then NP6 = CR
            If CB = CL And CB <> CR And CL <> CA Then NP7 = CL
            If CR = CB And CR <> CA And CB <> CL And C <> CBL Or CB = CL And CB <> CR And CL <> CA And C <> CBR Then NP8 = CB
            If CR = CB And CR <> CA And CB <> CL Then NP9 = CR
            
            If CAL = C : NP4 = CAL : NP2 = CAL : Endif
            If CAR = C : NP2 = CAR : NP6 = CAR : Endif
            If CBL = C : NP8 = CBL : NP4 = CBL : Endif
            If CBR = C : NP6 = CBR : NP8 = CBR : Endif
            If CA = C And CB = C : NP4 = C : NP6 = C : Endif
            If CL = C And CR = C : NP2 = C : NP8 = C : Endif
             
            X2 = X * 3 : Y2 = Y * 3
            Image2(X2-1, Y2-1) = NP1 : Image2(X2, Y2-1) = NP2 : Image2(X2+1, Y2-1) = NP3
            Image2(X2-1, Y2)   = NP4 : Image2(X2, Y2)   = NP5 : Image2(X2+1, Y2)   = NP6
            Image2(X2-1, Y2+1) = NP7 : Image2(X2, Y2+1) = NP8 : Image2(X2+1, Y2+1) = NP9
        Next Y
    Next X
    
    Write Memblock Dword 2, 0, ImageWidth2
    Write Memblock Dword 2, 4, ImageHeight2
    Write Memblock Dword 2, 8, ImageDepth
    
    Position = 12
    For Y = 0 To ImageHeight2 - 1
        For X = 0 To ImageWidth2 - 1
            If Contrast# > 0
                If RGBR(Image2(X, Y)) > 126 And RGBG(Image2(X, Y)) > 126 And RGBB(Image2(X, Y)) > 126
                    PR = RGBR(Image2(X, Y)) + Contrast# : If PR > 255 Then PR = 255
                    PG = RGBG(Image2(X, Y)) + Contrast# : If PG > 255 Then PG = 255
                    PB = RGBB(Image2(X, Y)) + Contrast# : If PB > 255 Then PB = 255
                    Image2(X, Y) = RGB(PR,PG,PB)
                Endif
                If RGBR(Image2(X, Y)) < 126 And RGBG(Image2(X, Y)) < 126 And RGBB(Image2(X, Y)) < 126
                    PR = RGBR(Image2(X, Y)) - Contrast# : If PR < 0 Then PR = 0
                    PG = RGBG(Image2(X, Y)) - Contrast# : If PG < 0 Then PG = 0
                    PB = RGBB(Image2(X, Y)) - Contrast# : If PB < 0 Then PB = 0
                    Image2(X, Y) = RGB(PR,PG,PB)
                Endif
            Endif
            Write Memblock Dword 2, Position, Image2(X, Y)
            Inc Position, 4
        Next Y
    Next X

    Make Image From Memblock Image, 2
    Delete Memblock 1
    Delete Memblock 2
    UnDim Image1(0)
    UnDim Image2(0)
    
EndFunction

Back to top

Profile PM Email Website

Dr Tank

17

Years of Service

User Offline

Joined: 1st Apr 2009

Location: Southampton, UK

Posted: 13th Aug 2011 16:06 Edited at: 13th Aug 2011 16:09

Link

Looks nice. I imagine if you cut the "contrast" part out of the above snippet you will still see the black border.

You are looping over the 1st image with a 1 pixel border. Each of the pixels you are looping over in the 1st image maps to 3x3 pixels in the 2nd image. The reason you see a 2 pixel border on one side and a 4 pixel border on the other (instead of two 3 pixel borders) is that you are setting X2-1, X2, X2+1, where X2=3*X.

Really the "central" pixel of the equivalent 3x3 block on the second image is at 3*X +1

Basically you've got to handle the edge pixels. Perhaps the easiest/cleanest way to do this is to add a 1 pixel border to the input image (not the actual image - just the array)- otherwise you'd want separate loops for the edges, which makes the code longer. Maybe set the outside pixels to whatever colour you are using for the transparent parts.

Back to top

Profile PM

CSGames94

18

Years of Service

User Offline

Joined: 27th Dec 2007

Location:

Posted: 13th Aug 2011 23:49

Link

Okay I fixed it by giving the contrast code its own loop then changing up the for loop values.

+ Code Snippet

For X = 2 To ImageWidth2 - 5
        For Y = 2 To ImageHeight2 - 5
            If Contrast# > 0
                If RGBR(Image2(X, Y)) > 126 And RGBG(Image2(X, Y)) > 126 And RGBB(Image2(X, Y)) > 126
                    PR = RGBR(Image2(X, Y)) + Contrast# : If PR > 255 Then PR = 255
                    PG = RGBG(Image2(X, Y)) + Contrast# : If PG > 255 Then PG = 255
                    PB = RGBB(Image2(X, Y)) + Contrast# : If PB > 255 Then PB = 255
                    Image2(X, Y) = RGB(PR,PG,PB)
                Endif
                If RGBR(Image2(X, Y)) < 126 And RGBG(Image2(X, Y)) < 126 And RGBB(Image2(X, Y)) < 126
                    PR = RGBR(Image2(X, Y)) - Contrast# : If PR < 0 Then PR = 0
                    PG = RGBG(Image2(X, Y)) - Contrast# : If PG < 0 Then PG = 0
                    PB = RGBB(Image2(X, Y)) - Contrast# : If PB < 0 Then PB = 0
                    Image2(X, Y) = RGB(PR,PG,PB)
                Endif
            Endif
        Next Y
    Next X

Back to top

Profile PM Email Website

David Gervais

Retired Moderator

20

Years of Service

User Offline

Joined: 28th Sep 2005

Location: Montreal, Canada

Posted: 14th Aug 2011 13:43 Edited at: 14th Aug 2011 13:44

Link

hmmm, this looks interesting. I was wondering how your algorithm would do on a 32x32 sprite..

I'll follow this post with the original sprite.. brb

Cheers!

Back to top

Profile PM Email

David Gervais

Retired Moderator

20

Years of Service

User Offline

Joined: 28th Sep 2005

Location: Montreal, Canada

Posted: 14th Aug 2011 13:45 Edited at: 14th Aug 2011 13:46

Link

In the above post the scaled sprites are just done with my paint program, without and with AA turned on.

here is the original sprite..

can you test it please?

Cheers!

Back to top

Profile PM Email

CSGames94

18

Years of Service

User Offline

Joined: 27th Dec 2007

Location:

Posted: 14th Aug 2011 19:13

Link

Here it is, looks a lot better :

Scaled 3x -

I also did a 6x -

Back to top

Profile PM Email Website

David Gervais

Retired Moderator

20

Years of Service

User Offline

Joined: 28th Sep 2005

Location: Montreal, Canada

Posted: 14th Aug 2011 22:17

Link

Thanks, I like the style that gives. Kind of a modern comic book feel. Makes me think my old RPG tiles could be brought back to life.

If only I had the time to persue these types of things, oh well, it was nice to see that the algorithm works well on small tiles too.

Cheers!

Back to top

Profile PM Email

CSGames94

18

Years of Service

User Offline

Joined: 27th Dec 2007

Location:

Posted: 16th Aug 2011 02:38

Link

@Dr Tank,

Okay, I understand what you were talking about, I didn't fix it yet.

Back to top

Profile PM Email Website

CSGames94

18

Years of Service

User Offline

Joined: 27th Dec 2007

Location:

Posted: 17th Aug 2011 18:37 Edited at: 17th Aug 2011 20:49

Link

Finally fixed the problem I was having by taking the transparency color from the first image then coloring the second image with it.

Edit : Fixed another problem. Code updated.

Function PixelScale3x(Image, ContrastUp#, ContrastDown#, LightBlend)
    
    Make Memblock From Image 1, Image
    Delete Image Image
    ImageWidth = Memblock Dword(1, 0)
    ImageHeight = Memblock Dword(1, 4)
    ImageDepth = Memblock Dword(1, 8)
    
    Dim Image1(ImageWidth, ImageHeight) 
    Position = 12
    For Y = 0 To ImageHeight - 1
        For X = 0 To ImageWidth - 1
            Image1(X, Y) = Memblock Dword(1, Position)
            Inc Position, 4
        Next Y
    Next X
    
    ImageWidth2 = ImageWidth * 3
    ImageHeight2 = ImageHeight * 3
    Make Memblock 2, 12 + 4 * ImageWidth2 * ImageHeight2
    Dim Image2(ImageWidth2, ImageHeight2)
    TransparentColor As Dword
    TransparentColor = Image1(0,0)
    For Y = 0 To ImageHeight2 - 1
        For X = 0 To ImageWidth2 - 1
            Image2(X, Y) = TransparentColor
        Next Y
    Next X
    
    For Y = 1 To ImageHeight - 2
        For X = 1 To ImageWidth - 2
            CAL = Image1(X-1, Y-1) : CA = Image1(X, Y-1) : CAR = Image1(X+1, Y-1)
            CL  = Image1(X-1, Y)   : C  = Image1(X, Y)   : CR  = Image1(X+1, Y)
            CBL = Image1(X-1, Y+1) : CB = Image1(X, Y+1) : CBR = Image1(X+1, Y+1)
            
            NP1 = C : NP2 = C : NP3 = C
            NP4 = C : NP5 = C : NP6 = C
            NP7 = C : NP8 = C : NP9 = C
            
            If CL = CA And CL <> CB And CA <> CR Then NP1 = CL
            If CL = CA And CL <> CB And CA <> CR And C <> CAR Or CA = CR And CA <> CL And CR <> CB And C <> CAL Then NP2 = CA
            If CA = CR And CA <> CL And CR <> CB Then NP3 = CR
            If CB = CL And CB <> CR And CL <> CA And C <> CAL Or CL = CA And CL <> CB And CA <> CR And CR <> CBL Then NP4 = CL
            NP5 = C
            If CA = CR And CA <> CL And CR <> CB And C <> CBR Or CR = CB And CR <> CA And CB <> CL And CR <> CAR Then NP6 = CR
            If CB = CL And CB <> CR And CL <> CA Then NP7 = CL
            If CR = CB And CR <> CA And CB <> CL And C <> CBL Or CB = CL And CB <> CR And CL <> CA And C <> CBR Then NP8 = CB
            If CR = CB And CR <> CA And CB <> CL Then NP9 = CR
            
            If CAL = C : NP4 = CAL : NP2 = CAL : Endif
            If CAR = C : NP2 = CAR : NP6 = CAR : Endif
            If CBL = C : NP8 = CBL : NP4 = CBL : Endif
            If CBR = C : NP6 = CBR : NP8 = CBR : Endif
            If CA = C And CB = C : NP4 = C : NP6 = C : Endif
            If CL = C And CR = C : NP2 = C : NP8 = C : Endif
             
            X2 = X * 3 : Y2 = Y * 3
            Image2(X2-1, Y2-1) = NP1 : Image2(X2, Y2-1) = NP2 : Image2(X2+1, Y2-1) = NP3
            Image2(X2-1, Y2)   = NP4 : Image2(X2, Y2)   = NP5 : Image2(X2+1, Y2)   = NP6
            Image2(X2-1, Y2+1) = NP7 : Image2(X2, Y2+1) = NP8 : Image2(X2+1, Y2+1) = NP9
        Next Y
    Next X
    
    Write Memblock Dword 2, 0, ImageWidth2
    Write Memblock Dword 2, 4, ImageHeight2
    Write Memblock Dword 2, 8, ImageDepth
  
    If ContrastUp# > 0 And ContrastDown# > 0
    For Y = 0 To ImageHeight2 - 1
        For X = 0 To ImageWidth2 - 1
            If Image2(X, Y) <> TransparentColor
                If RGBR(Image2(X, Y)) > 127 And RGBG(Image2(X, Y)) > 127 And RGBB(Image2(X, Y)) > 127
                    PR = RGBR(Image2(X, Y)) + ContrastUp# : If PR > 255 Then PR = 255
                    PG = RGBG(Image2(X, Y)) + ContrastUp# : If PG > 255 Then PG = 255
                    PB = RGBB(Image2(X, Y)) + ContrastUp# : If PB > 255 Then PB = 255
                    Image2(X, Y) = RGB(PR,PG,PB)
                Endif
                If RGBR(Image2(X, Y)) < 127 And RGBG(Image2(X, Y)) < 127 And RGBB(Image2(X, Y)) < 127
                    PR = RGBR(Image2(X, Y)) - ContrastDown# : If PR < 0 Then PR = 0
                    PG = RGBG(Image2(X, Y)) - ContrastDown# : If PG < 0 Then PG = 0
                    PB = RGBB(Image2(X, Y)) - ContrastDown# : If PB < 0 Then PB = 0
                    Image2(X, Y) = RGB(PR,PG,PB)
                Endif
            Endif
        Next Y
    Next X
    Endif
  
    If LightBlend > 0
    For Y = 1 To ImageHeight2 - 2
        For X = 1 To ImageWidth2 - 2
            If Image2(X, Y) = TransparentColor
            If RGBR(Image2(X, Y)) > 210 And RGBG(Image2(X, Y)) > 210 And RGBB(Image2(X, Y)) > 210
                CAL = Image2(X-1, Y-1) : CA = Image2(X, Y-1) : CAR = Image2(X+1, Y-1)
                CL  = Image2(X-1, Y)   : C  = Image2(X, Y)   : CR  = Image2(X+1, Y)
                CBL = Image2(X-1, Y+1) : CB = Image2(X, Y+1) : CBR = Image2(X+1, Y+1)
                PR = ((RGBR(C)*LightBlend)+RGBR(CL)+RGBR(CR)+RGBR(CA)+RGBR(CB)+RGBR(CAL)+RGBR(CAR)+RGBR(CBL)+RGBR(CBR))/(8+LightBlend)
                PG = ((RGBG(C)*LightBlend)+RGBG(CL)+RGBG(CR)+RGBG(CA)+RGBG(CB)+RGBG(CAL)+RGBG(CAR)+RGBG(CBL)+RGBG(CBR))/(8+LightBlend)
                PB = ((RGBB(C)*LightBlend)+RGBB(CL)+RGBB(CR)+RGBB(CA)+RGBB(CB)+RGBB(CAL)+RGBB(CAR)+RGBB(CBL)+RGBB(CBR))/(8+LightBlend)
                Image2(X-1, Y-1) = RGB(PR,PG,PB) : Image2(X, Y-1) = RGB(PR,PG,PB) : Image2(X+1, Y-1) = RGB(PR,PG,PB)
                Image2(X-1, Y)   = RGB(PR,PG,PB) : Image2(X, Y)   = RGB(PR,PG,PB) : Image2(X+1, Y)   = RGB(PR,PG,PB)
                Image2(X-1, Y+1) = RGB(PR,PG,PB) : Image2(X, Y+1) = RGB(PR,PG,PB) : Image2(X+1, Y+1) = RGB(PR,PG,PB)
            Endif
            If RGBR(Image2(X, Y)) < 45 And RGBG(Image2(X, Y)) < 45 And RGBB(Image2(X, Y)) < 45
                CAL = Image2(X-1, Y-1) : CA = Image2(X, Y-1) : CAR = Image2(X+1, Y-1)
                CL  = Image2(X-1, Y)   : C  = Image2(X, Y)   : CR  = Image2(X+1, Y)
                CBL = Image2(X-1, Y+1) : CB = Image2(X, Y+1) : CBR = Image2(X+1, Y+1)
                PR = ((RGBR(C)*LightBlend)+RGBR(CL)+RGBR(CR)+RGBR(CA)+RGBR(CB)+RGBR(CAL)+RGBR(CAR)+RGBR(CBL)+RGBR(CBR))/(8+LightBlend)
                PG = ((RGBG(C)*LightBlend)+RGBG(CL)+RGBG(CR)+RGBG(CA)+RGBG(CB)+RGBG(CAL)+RGBG(CAR)+RGBG(CBL)+RGBG(CBR))/(8+LightBlend)
                PB = ((RGBB(C)*LightBlend)+RGBB(CL)+RGBB(CR)+RGBB(CA)+RGBB(CB)+RGBB(CAL)+RGBB(CAR)+RGBB(CBL)+RGBB(CBR))/(8+LightBlend)
                Image2(X-1, Y-1) = RGB(PR,PG,PB) : Image2(X, Y-1) = RGB(PR,PG,PB) : Image2(X+1, Y-1) = RGB(PR,PG,PB)
                Image2(X-1, Y)   = RGB(PR,PG,PB) : Image2(X, Y)   = RGB(PR,PG,PB) : Image2(X+1, Y)   = RGB(PR,PG,PB)
                Image2(X-1, Y+1) = RGB(PR,PG,PB) : Image2(X, Y+1) = RGB(PR,PG,PB) : Image2(X+1, Y+1) = RGB(PR,PG,PB)
            Endif
            Endif
        Next Y
    Next X
    Endif
    
    Position = 12
    For Y = 0 To ImageHeight2 - 1
        For X = 0 To ImageWidth2 - 1
            Write Memblock Dword 2, Position, Image2(X, Y)
            Inc Position, 4
        Next Y
    Next X

Make Image From Memblock Image, 2
    Delete Memblock 1
    Delete Memblock 2
    UnDim Image1(0)
    UnDim Image2(0)
    
EndFunction

+ Code Snippet

Function PixelScale3x(Image, ContrastUp#, ContrastDown#, LightBlend)
    
    Make Memblock From Image 1, Image
    Delete Image Image
    ImageWidth = Memblock Dword(1, 0)
    ImageHeight = Memblock Dword(1, 4)
    ImageDepth = Memblock Dword(1, 8)
    
    Dim Image1(ImageWidth, ImageHeight) 
    Position = 12
    For Y = 0 To ImageHeight - 1
        For X = 0 To ImageWidth - 1
            Image1(X, Y) = Memblock Dword(1, Position)
            Inc Position, 4
        Next Y
    Next X
    
    ImageWidth2 = ImageWidth * 3
    ImageHeight2 = ImageHeight * 3
    Make Memblock 2, 12 + 4 * ImageWidth2 * ImageHeight2
    Dim Image2(ImageWidth2, ImageHeight2)
    TransparentColor As Dword
    TransparentColor = Image1(0,0)
    For Y = 0 To ImageHeight2 - 1
        For X = 0 To ImageWidth2 - 1
            Image2(X, Y) = TransparentColor
        Next Y
    Next X
    
    For Y = 1 To ImageHeight - 2
        For X = 1 To ImageWidth - 2
            CAL = Image1(X-1, Y-1) : CA = Image1(X, Y-1) : CAR = Image1(X+1, Y-1)
            CL  = Image1(X-1, Y)   : C  = Image1(X, Y)   : CR  = Image1(X+1, Y)
            CBL = Image1(X-1, Y+1) : CB = Image1(X, Y+1) : CBR = Image1(X+1, Y+1)
            
            NP1 = C : NP2 = C : NP3 = C
            NP4 = C : NP5 = C : NP6 = C
            NP7 = C : NP8 = C : NP9 = C
            
            If CL = CA And CL <> CB And CA <> CR Then NP1 = CL
            If CL = CA And CL <> CB And CA <> CR And C <> CAR Or CA = CR And CA <> CL And CR <> CB And C <> CAL Then NP2 = CA
            If CA = CR And CA <> CL And CR <> CB Then NP3 = CR
            If CB = CL And CB <> CR And CL <> CA And C <> CAL Or CL = CA And CL <> CB And CA <> CR And CR <> CBL Then NP4 = CL
            NP5 = C
            If CA = CR And CA <> CL And CR <> CB And C <> CBR Or CR = CB And CR <> CA And CB <> CL And CR <> CAR Then NP6 = CR
            If CB = CL And CB <> CR And CL <> CA Then NP7 = CL
            If CR = CB And CR <> CA And CB <> CL And C <> CBL Or CB = CL And CB <> CR And CL <> CA And C <> CBR Then NP8 = CB
            If CR = CB And CR <> CA And CB <> CL Then NP9 = CR
            
            If CAL = C : NP4 = CAL : NP2 = CAL : Endif
            If CAR = C : NP2 = CAR : NP6 = CAR : Endif
            If CBL = C : NP8 = CBL : NP4 = CBL : Endif
            If CBR = C : NP6 = CBR : NP8 = CBR : Endif
            If CA = C And CB = C : NP4 = C : NP6 = C : Endif
            If CL = C And CR = C : NP2 = C : NP8 = C : Endif
             
            X2 = X * 3 : Y2 = Y * 3
            Image2(X2-1, Y2-1) = NP1 : Image2(X2, Y2-1) = NP2 : Image2(X2+1, Y2-1) = NP3
            Image2(X2-1, Y2)   = NP4 : Image2(X2, Y2)   = NP5 : Image2(X2+1, Y2)   = NP6
            Image2(X2-1, Y2+1) = NP7 : Image2(X2, Y2+1) = NP8 : Image2(X2+1, Y2+1) = NP9
        Next Y
    Next X
    
    Write Memblock Dword 2, 0, ImageWidth2
    Write Memblock Dword 2, 4, ImageHeight2
    Write Memblock Dword 2, 8, ImageDepth
  
    If ContrastUp# > 0 And ContrastDown# > 0
    For Y = 0 To ImageHeight2 - 1
        For X = 0 To ImageWidth2 - 1
            If Image2(X, Y) <> TransparentColor
                If RGBR(Image2(X, Y)) > 127 And RGBG(Image2(X, Y)) > 127 And RGBB(Image2(X, Y)) > 127
                    PR = RGBR(Image2(X, Y)) + ContrastUp# : If PR > 255 Then PR = 255
                    PG = RGBG(Image2(X, Y)) + ContrastUp# : If PG > 255 Then PG = 255
                    PB = RGBB(Image2(X, Y)) + ContrastUp# : If PB > 255 Then PB = 255
                    Image2(X, Y) = RGB(PR,PG,PB)
                Endif
                If RGBR(Image2(X, Y)) < 127 And RGBG(Image2(X, Y)) < 127 And RGBB(Image2(X, Y)) < 127
                    PR = RGBR(Image2(X, Y)) - ContrastDown# : If PR < 0 Then PR = 0
                    PG = RGBG(Image2(X, Y)) - ContrastDown# : If PG < 0 Then PG = 0
                    PB = RGBB(Image2(X, Y)) - ContrastDown# : If PB < 0 Then PB = 0
                    Image2(X, Y) = RGB(PR,PG,PB)
                Endif
            Endif
        Next Y
    Next X
    Endif
  
    If LightBlend > 0
    For Y = 1 To ImageHeight2 - 2
        For X = 1 To ImageWidth2 - 2
            If Image2(X, Y) = TransparentColor
            If RGBR(Image2(X, Y)) > 210 And RGBG(Image2(X, Y)) > 210 And RGBB(Image2(X, Y)) > 210
                CAL = Image2(X-1, Y-1) : CA = Image2(X, Y-1) : CAR = Image2(X+1, Y-1)
                CL  = Image2(X-1, Y)   : C  = Image2(X, Y)   : CR  = Image2(X+1, Y)
                CBL = Image2(X-1, Y+1) : CB = Image2(X, Y+1) : CBR = Image2(X+1, Y+1)
                PR = ((RGBR(C)*LightBlend)+RGBR(CL)+RGBR(CR)+RGBR(CA)+RGBR(CB)+RGBR(CAL)+RGBR(CAR)+RGBR(CBL)+RGBR(CBR))/(8+LightBlend)
                PG = ((RGBG(C)*LightBlend)+RGBG(CL)+RGBG(CR)+RGBG(CA)+RGBG(CB)+RGBG(CAL)+RGBG(CAR)+RGBG(CBL)+RGBG(CBR))/(8+LightBlend)
                PB = ((RGBB(C)*LightBlend)+RGBB(CL)+RGBB(CR)+RGBB(CA)+RGBB(CB)+RGBB(CAL)+RGBB(CAR)+RGBB(CBL)+RGBB(CBR))/(8+LightBlend)
                Image2(X-1, Y-1) = RGB(PR,PG,PB) : Image2(X, Y-1) = RGB(PR,PG,PB) : Image2(X+1, Y-1) = RGB(PR,PG,PB)
                Image2(X-1, Y)   = RGB(PR,PG,PB) : Image2(X, Y)   = RGB(PR,PG,PB) : Image2(X+1, Y)   = RGB(PR,PG,PB)
                Image2(X-1, Y+1) = RGB(PR,PG,PB) : Image2(X, Y+1) = RGB(PR,PG,PB) : Image2(X+1, Y+1) = RGB(PR,PG,PB)
            Endif
            If RGBR(Image2(X, Y)) < 45 And RGBG(Image2(X, Y)) < 45 And RGBB(Image2(X, Y)) < 45
                CAL = Image2(X-1, Y-1) : CA = Image2(X, Y-1) : CAR = Image2(X+1, Y-1)
                CL  = Image2(X-1, Y)   : C  = Image2(X, Y)   : CR  = Image2(X+1, Y)
                CBL = Image2(X-1, Y+1) : CB = Image2(X, Y+1) : CBR = Image2(X+1, Y+1)
                PR = ((RGBR(C)*LightBlend)+RGBR(CL)+RGBR(CR)+RGBR(CA)+RGBR(CB)+RGBR(CAL)+RGBR(CAR)+RGBR(CBL)+RGBR(CBR))/(8+LightBlend)
                PG = ((RGBG(C)*LightBlend)+RGBG(CL)+RGBG(CR)+RGBG(CA)+RGBG(CB)+RGBG(CAL)+RGBG(CAR)+RGBG(CBL)+RGBG(CBR))/(8+LightBlend)
                PB = ((RGBB(C)*LightBlend)+RGBB(CL)+RGBB(CR)+RGBB(CA)+RGBB(CB)+RGBB(CAL)+RGBB(CAR)+RGBB(CBL)+RGBB(CBR))/(8+LightBlend)
                Image2(X-1, Y-1) = RGB(PR,PG,PB) : Image2(X, Y-1) = RGB(PR,PG,PB) : Image2(X+1, Y-1) = RGB(PR,PG,PB)
                Image2(X-1, Y)   = RGB(PR,PG,PB) : Image2(X, Y)   = RGB(PR,PG,PB) : Image2(X+1, Y)   = RGB(PR,PG,PB)
                Image2(X-1, Y+1) = RGB(PR,PG,PB) : Image2(X, Y+1) = RGB(PR,PG,PB) : Image2(X+1, Y+1) = RGB(PR,PG,PB)
            Endif
            Endif
        Next Y
    Next X
    Endif
    
    Position = 12
    For Y = 0 To ImageHeight2 - 1
        For X = 0 To ImageWidth2 - 1
            Write Memblock Dword 2, Position, Image2(X, Y)
            Inc Position, 4
        Next Y
    Next X

    Make Image From Memblock Image, 2
    Delete Memblock 1
    Delete Memblock 2
    UnDim Image1(0)
    UnDim Image2(0)
    
EndFunction

Also added a new effect I call light blending

.
( Don't worry about the edges, transparency in the sprite I used was bad )

Light Blending Off :

Light Blending On :

Back to top

Profile PM Email Website

CSGames94

18

Years of Service

User Offline

Joined: 27th Dec 2007

Location:

Posted: 25th Aug 2011 18:12

Link

Okay, here is the final code for it:

Function PixelScale3x(Image, ContrastUp#, ContrastDown#, ColorEnhance#, LightBlend#, LightBlendMode)
    
    Make Memblock From Image 1, Image
    Delete Image Image
    ImageWidth = Memblock Dword(1, 0)
    ImageHeight = Memblock Dword(1, 4)
    ImageDepth = Memblock Dword(1, 8)
    
    Global TransparentColor As Dword
    Dim Image1(ImageWidth, ImageHeight) 
    Position = 12
    For Y = 0 To ImageHeight - 1
        For X = 0 To ImageWidth - 1
            If Memblock Byte(1, Position+3) = 0 Then TransparentColor = Memblock Dword(1, Position)
            Image1(X, Y) = Memblock Dword(1, Position)
            Inc Position, 4
        Next Y
    Next X
    
    ImageWidth2 = ImageWidth * 3
    ImageHeight2 = ImageHeight * 3
    Make Memblock 2, 12 + 4 * ImageWidth2 * ImageHeight2
    Dim Image2(ImageWidth2, ImageHeight2)   
    For Y = 0 To ImageHeight2 - 1
        For X = 0 To ImageWidth2 - 1
            Image2(X, Y) = TransparentColor
        Next Y
    Next X    
    For Y = 1 To ImageHeight - 2
        For X = 1 To ImageWidth - 2
            CAL = Image1(X-1, Y-1) : CA = Image1(X, Y-1) : CAR = Image1(X+1, Y-1)
            CL  = Image1(X-1, Y)   : C  = Image1(X, Y)   : CR  = Image1(X+1, Y)
            CBL = Image1(X-1, Y+1) : CB = Image1(X, Y+1) : CBR = Image1(X+1, Y+1)
            NP1 = C : NP2 = C : NP3 = C
            NP4 = C : NP5 = C : NP6 = C
            NP7 = C : NP8 = C : NP9 = C
            If CL = CA And CL <> CB And CA <> CR Then NP1 = CL
            If CL = CA And CL <> CB And CA <> CR And C <> CAR Or CA = CR And CA <> CL And CR <> CB And C <> CAL Then NP2 = CA
            If CA = CR And CA <> CL And CR <> CB Then NP3 = CR
            If CB = CL And CB <> CR And CL <> CA And C <> CAL Or CL = CA And CL <> CB And CA <> CR And CR <> CBL Then NP4 = CL
            NP5 = C
            If CA = CR And CA <> CL And CR <> CB And C <> CBR Or CR = CB And CR <> CA And CB <> CL And CR <> CAR Then NP6 = CR
            If CB = CL And CB <> CR And CL <> CA Then NP7 = CL
            If CR = CB And CR <> CA And CB <> CL And C <> CBL Or CB = CL And CB <> CR And CL <> CA And C <> CBR Then NP8 = CB
            If CR = CB And CR <> CA And CB <> CL Then NP9 = CR 
            If CAL = C : NP4 = CAL : NP2 = CAL : Endif
            If CAR = C : NP2 = CAR : NP6 = CAR : Endif
            If CBL = C : NP8 = CBL : NP4 = CBL : Endif
            If CBR = C : NP6 = CBR : NP8 = CBR : Endif
            If CA = C And CB = C : NP4 = C : NP6 = C : Endif
            If CL = C And CR = C : NP2 = C : NP8 = C : Endif   
            X2 = X * 3 : Y2 = Y * 3
            Image2(X2-1, Y2-1) = NP1 : Image2(X2, Y2-1) = NP2 : Image2(X2+1, Y2-1) = NP3
            Image2(X2-1, Y2)   = NP4 : Image2(X2, Y2)   = NP5 : Image2(X2+1, Y2)   = NP6
            Image2(X2-1, Y2+1) = NP7 : Image2(X2, Y2+1) = NP8 : Image2(X2+1, Y2+1) = NP9
        Next Y
    Next X
    
    Write Memblock Dword 2, 0, ImageWidth2
    Write Memblock Dword 2, 4, ImageHeight2
    Write Memblock Dword 2, 8, ImageDepth
  
    If ContrastUp# > 0 And ContrastDown# > 0
    For Y = 0 To ImageHeight2 - 1
        For X = 0 To ImageWidth2 - 1
            If Image2(X, Y) <> TransparentColor
                If RGBR(Image2(X, Y)) > 127 And RGBG(Image2(X, Y)) > 127 And RGBB(Image2(X, Y)) > 127
                    PR = RGBR(Image2(X, Y)) + ContrastUp# : If PR > 255 Then PR = 255
                    PG = RGBG(Image2(X, Y)) + ContrastUp# : If PG > 255 Then PG = 255
                    PB = RGBB(Image2(X, Y)) + ContrastUp# : If PB > 255 Then PB = 255
                    Image2(X, Y) = RGB(PR,PG,PB)
                Endif
                If RGBR(Image2(X, Y)) < 127 And RGBG(Image2(X, Y)) < 127 And RGBB(Image2(X, Y)) < 127
                    PR = RGBR(Image2(X, Y)) - ContrastDown# : If PR < 0 Then PR = 0
                    PG = RGBG(Image2(X, Y)) - ContrastDown# : If PG < 0 Then PG = 0
                    PB = RGBB(Image2(X, Y)) - ContrastDown# : If PB < 0 Then PB = 0
                    Image2(X, Y) = RGB(PR,PG,PB)
                Endif
            Endif
        Next Y
    Next X
    Endif
    
    If ColorEnhance# > 0
    For Y = 0 To ImageHeight2 - 1
        For X = 0 To ImageWidth2 - 1
            If Image2(X, Y) <> TransparentColor
                CR = RGBR(Image2(X, Y)) : CG = RGBG(Image2(X, Y)) : CB = RGBB(Image2(X, Y))
                If CR > 170 Or CR > 85 And CG > 170 Or CG > 85 And CB > 170 Or CB > 85
                    If CR > CG And CR > CB
                        PR = CR + ColorEnhance#
                        If PR > 255 Then PR = 255
                    Else
                        PR = CR
                    Endif
                    If CG > CB And CG > CR 
                        PG = CG + ColorEnhance#
                        If PG > 255 Then PG = 255
                    Else
                        PG = CG
                    Endif
                    If CB > CR And CB > CG 
                        PB = CB + ColorEnhance#
                        If PB > 255 Then PB = 255
                    Else
                        PB = CB
                    Endif
                    Image2(X, Y) = RGB(PR,PG,PB)
                Endif
            Endif
        Next Y
    Next X
    Endif
    
    If LightBlend# > 0
    For Z = 1 To LightBlend#
    For Y = 1 To ImageHeight2 - 2
        For X = 1 To ImageWidth2 - 2
            If Image2(X, Y) <> TransparentColor
                If LightBlendMode = 0
                    If RGBR(Image2(X, Y)) > 170 And RGBG(Image2(X, Y)) > 170 And RGBB(Image2(X, Y)) > 170
                        If Image2(X-1, Y-1) <> TransparentColor : CAL = Image2(X-1, Y-1) : Else : CAL = Image2(X, Y) : Endif
                        If Image2(X, Y-1)   <> TransparentColor : CA  = Image2(X, Y-1)   : Else : CA  = Image2(X, Y) : Endif
                        If Image2(X+1, Y-1) <> TransparentColor : CAR = Image2(X+1, Y-1) : Else : CAR = Image2(X, Y) : Endif
                        If Image2(X-1, Y)   <> TransparentColor : CL  = Image2(X-1, Y)   : Else : CL  = Image2(X, Y) : Endif
                        If Image2(X, Y)     <> TransparentColor : C   = Image2(X, Y)     : Else : C   = Image2(X, Y) : Endif
                        If Image2(X+1, Y)   <> TransparentColor : CR  = Image2(X+1, Y)   : Else : CR  = Image2(X, Y) : Endif
                        If Image2(X-1, Y+1) <> TransparentColor : CBL = Image2(X-1, Y+1) : Else : CBL = Image2(X, Y) : Endif
                        If Image2(X, Y+1)   <> TransparentColor : CB  = Image2(X, Y+1)   : Else : CB  = Image2(X, Y) : Endif
                        If Image2(X+1, Y+1) <> TransparentColor : CBR = Image2(X+1, Y+1) : Else : CBR = Image2(X, Y) : Endif
                        PR = ((RGBR(C)*LightBlend#)+RGBR(CL)+RGBR(CR)+RGBR(CA)+RGBR(CB)+RGBR(CAL)+RGBR(CAR)+RGBR(CBL)+RGBR(CBR))/(8+LightBlend#)
                        PG = ((RGBG(C)*LightBlend#)+RGBG(CL)+RGBG(CR)+RGBG(CA)+RGBG(CB)+RGBG(CAL)+RGBG(CAR)+RGBG(CBL)+RGBG(CBR))/(8+LightBlend#)
                        PB = ((RGBB(C)*LightBlend#)+RGBB(CL)+RGBB(CR)+RGBB(CA)+RGBB(CB)+RGBB(CAL)+RGBB(CAR)+RGBB(CBL)+RGBB(CBR))/(8+LightBlend#)
                        Image2(X, Y) = RGB(PR,PG,PB)
                    Endif
                    If RGBR(Image2(X, Y)) < 85 And RGBG(Image2(X, Y)) < 85 And RGBB(Image2(X, Y)) < 85
                        If Image2(X-1, Y-1) <> TransparentColor : CAL = Image2(X-1, Y-1) : Else : CAL = Image2(X, Y) : Endif
                        If Image2(X, Y-1)   <> TransparentColor : CA  = Image2(X, Y-1)   : Else : CA  = Image2(X, Y) : Endif
                        If Image2(X+1, Y-1) <> TransparentColor : CAR = Image2(X+1, Y-1) : Else : CAR = Image2(X, Y) : Endif
                        If Image2(X-1, Y)   <> TransparentColor : CL  = Image2(X-1, Y)   : Else : CL  = Image2(X, Y) : Endif
                        If Image2(X, Y)     <> TransparentColor : C   = Image2(X, Y)     : Else : C   = Image2(X, Y) : Endif
                        If Image2(X+1, Y)   <> TransparentColor : CR  = Image2(X+1, Y)   : Else : CR  = Image2(X, Y) : Endif
                        If Image2(X-1, Y+1) <> TransparentColor : CBL = Image2(X-1, Y+1) : Else : CBL = Image2(X, Y) : Endif
                        If Image2(X, Y+1)   <> TransparentColor : CB  = Image2(X, Y+1)   : Else : CB  = Image2(X, Y) : Endif
                        If Image2(X+1, Y+1) <> TransparentColor : CBR = Image2(X+1, Y+1) : Else : CBR = Image2(X, Y) : Endif
                        PR = ((RGBR(C)*LightBlend#)+RGBR(CL)+RGBR(CR)+RGBR(CA)+RGBR(CB)+RGBR(CAL)+RGBR(CAR)+RGBR(CBL)+RGBR(CBR))/(8+LightBlend#)
                        PG = ((RGBG(C)*LightBlend#)+RGBG(CL)+RGBG(CR)+RGBG(CA)+RGBG(CB)+RGBG(CAL)+RGBG(CAR)+RGBG(CBL)+RGBG(CBR))/(8+LightBlend#)
                        PB = ((RGBB(C)*LightBlend#)+RGBB(CL)+RGBB(CR)+RGBB(CA)+RGBB(CB)+RGBB(CAL)+RGBB(CAR)+RGBB(CBL)+RGBB(CBR))/(8+LightBlend#)
                        Image2(X, Y) = RGB(PR,PG,PB)
                    Endif
                Endif
                If LightBlendMode = 1
                    If RGBR(Image2(X, Y)) > 170 And RGBG(Image2(X, Y)) > 170 And RGBB(Image2(X, Y)) > 170
                        If Image2(X-1, Y-1) <> TransparentColor : CAL = Image2(X-1, Y-1) : Else : CAL = Image2(X, Y) : Endif
                        If Image2(X, Y-1)   <> TransparentColor : CA  = Image2(X, Y-1)   : Else : CA  = Image2(X, Y) : Endif
                        If Image2(X+1, Y-1) <> TransparentColor : CAR = Image2(X+1, Y-1) : Else : CAR = Image2(X, Y) : Endif
                        If Image2(X-1, Y)   <> TransparentColor : CL  = Image2(X-1, Y)   : Else : CL  = Image2(X, Y) : Endif
                        If Image2(X, Y)     <> TransparentColor : C   = Image2(X, Y)     : Else : C   = Image2(X, Y) : Endif
                        If Image2(X+1, Y)   <> TransparentColor : CR  = Image2(X+1, Y)   : Else : CR  = Image2(X, Y) : Endif
                        If Image2(X-1, Y+1) <> TransparentColor : CBL = Image2(X-1, Y+1) : Else : CBL = Image2(X, Y) : Endif
                        If Image2(X, Y+1)   <> TransparentColor : CB  = Image2(X, Y+1)   : Else : CB  = Image2(X, Y) : Endif
                        If Image2(X+1, Y+1) <> TransparentColor : CBR = Image2(X+1, Y+1) : Else : CBR = Image2(X, Y) : Endif
                        PR = ((RGBR(C)*LightBlend#)+RGBR(CL)+RGBR(CR)+RGBR(CA)+RGBR(CB)+RGBR(CAL)+RGBR(CAR)+RGBR(CBL)+RGBR(CBR))/(8+LightBlend#)
                        PG = ((RGBG(C)*LightBlend#)+RGBG(CL)+RGBG(CR)+RGBG(CA)+RGBG(CB)+RGBG(CAL)+RGBG(CAR)+RGBG(CBL)+RGBG(CBR))/(8+LightBlend#)
                        PB = ((RGBB(C)*LightBlend#)+RGBB(CL)+RGBB(CR)+RGBB(CA)+RGBB(CB)+RGBB(CAL)+RGBB(CAR)+RGBB(CBL)+RGBB(CBR))/(8+LightBlend#)
                        Image2(X, Y) = RGB(PR,PG,PB)
                    Endif
                Endif
                If LightBlendMode = 2
                    If RGBR(Image2(X, Y)) < 85 And RGBG(Image2(X, Y)) < 85 And RGBB(Image2(X, Y)) < 85
                        If Image2(X-1, Y-1) <> TransparentColor : CAL = Image2(X-1, Y-1) : Else : CAL = Image2(X, Y) : Endif
                        If Image2(X, Y-1)   <> TransparentColor : CA  = Image2(X, Y-1)   : Else : CA  = Image2(X, Y) : Endif
                        If Image2(X+1, Y-1) <> TransparentColor : CAR = Image2(X+1, Y-1) : Else : CAR = Image2(X, Y) : Endif
                        If Image2(X-1, Y)   <> TransparentColor : CL  = Image2(X-1, Y)   : Else : CL  = Image2(X, Y) : Endif
                        If Image2(X, Y)     <> TransparentColor : C   = Image2(X, Y)     : Else : C   = Image2(X, Y) : Endif
                        If Image2(X+1, Y)   <> TransparentColor : CR  = Image2(X+1, Y)   : Else : CR  = Image2(X, Y) : Endif
                        If Image2(X-1, Y+1) <> TransparentColor : CBL = Image2(X-1, Y+1) : Else : CBL = Image2(X, Y) : Endif
                        If Image2(X, Y+1)   <> TransparentColor : CB  = Image2(X, Y+1)   : Else : CB  = Image2(X, Y) : Endif
                        If Image2(X+1, Y+1) <> TransparentColor : CBR = Image2(X+1, Y+1) : Else : CBR = Image2(X, Y) : Endif
                        PR = ((RGBR(C)*LightBlend#)+RGBR(CL)+RGBR(CR)+RGBR(CA)+RGBR(CB)+RGBR(CAL)+RGBR(CAR)+RGBR(CBL)+RGBR(CBR))/(8+LightBlend#)
                        PG = ((RGBG(C)*LightBlend#)+RGBG(CL)+RGBG(CR)+RGBG(CA)+RGBG(CB)+RGBG(CAL)+RGBG(CAR)+RGBG(CBL)+RGBG(CBR))/(8+LightBlend#)
                        PB = ((RGBB(C)*LightBlend#)+RGBB(CL)+RGBB(CR)+RGBB(CA)+RGBB(CB)+RGBB(CAL)+RGBB(CAR)+RGBB(CBL)+RGBB(CBR))/(8+LightBlend#)
                        Image2(X, Y) = RGB(PR,PG,PB)
                    Endif
                Endif
            Endif
        Next Y
    Next X
    Next Z
    Endif
    
    Position = 12
    For Y = 0 To ImageHeight2 - 1
        For X = 0 To ImageWidth2 - 1
            Write Memblock Dword 2, Position, Image2(X, Y)
            Inc Position, 4
        Next Y
    Next X

Make Image From Memblock Image, 2
    Delete Memblock 1
    Delete Memblock 2
    UnDim Image1(0)
    UnDim Image2(0)
    
EndFunction

+ Code Snippet

Function PixelScale3x(Image, ContrastUp#, ContrastDown#, ColorEnhance#, LightBlend#, LightBlendMode)
    
    Make Memblock From Image 1, Image
    Delete Image Image
    ImageWidth = Memblock Dword(1, 0)
    ImageHeight = Memblock Dword(1, 4)
    ImageDepth = Memblock Dword(1, 8)
    
    Global TransparentColor As Dword
    Dim Image1(ImageWidth, ImageHeight) 
    Position = 12
    For Y = 0 To ImageHeight - 1
        For X = 0 To ImageWidth - 1
            If Memblock Byte(1, Position+3) = 0 Then TransparentColor = Memblock Dword(1, Position)
            Image1(X, Y) = Memblock Dword(1, Position)
            Inc Position, 4
        Next Y
    Next X
    
    ImageWidth2 = ImageWidth * 3
    ImageHeight2 = ImageHeight * 3
    Make Memblock 2, 12 + 4 * ImageWidth2 * ImageHeight2
    Dim Image2(ImageWidth2, ImageHeight2)   
    For Y = 0 To ImageHeight2 - 1
        For X = 0 To ImageWidth2 - 1
            Image2(X, Y) = TransparentColor
        Next Y
    Next X    
    For Y = 1 To ImageHeight - 2
        For X = 1 To ImageWidth - 2
            CAL = Image1(X-1, Y-1) : CA = Image1(X, Y-1) : CAR = Image1(X+1, Y-1)
            CL  = Image1(X-1, Y)   : C  = Image1(X, Y)   : CR  = Image1(X+1, Y)
            CBL = Image1(X-1, Y+1) : CB = Image1(X, Y+1) : CBR = Image1(X+1, Y+1)
            NP1 = C : NP2 = C : NP3 = C
            NP4 = C : NP5 = C : NP6 = C
            NP7 = C : NP8 = C : NP9 = C
            If CL = CA And CL <> CB And CA <> CR Then NP1 = CL
            If CL = CA And CL <> CB And CA <> CR And C <> CAR Or CA = CR And CA <> CL And CR <> CB And C <> CAL Then NP2 = CA
            If CA = CR And CA <> CL And CR <> CB Then NP3 = CR
            If CB = CL And CB <> CR And CL <> CA And C <> CAL Or CL = CA And CL <> CB And CA <> CR And CR <> CBL Then NP4 = CL
            NP5 = C
            If CA = CR And CA <> CL And CR <> CB And C <> CBR Or CR = CB And CR <> CA And CB <> CL And CR <> CAR Then NP6 = CR
            If CB = CL And CB <> CR And CL <> CA Then NP7 = CL
            If CR = CB And CR <> CA And CB <> CL And C <> CBL Or CB = CL And CB <> CR And CL <> CA And C <> CBR Then NP8 = CB
            If CR = CB And CR <> CA And CB <> CL Then NP9 = CR 
            If CAL = C : NP4 = CAL : NP2 = CAL : Endif
            If CAR = C : NP2 = CAR : NP6 = CAR : Endif
            If CBL = C : NP8 = CBL : NP4 = CBL : Endif
            If CBR = C : NP6 = CBR : NP8 = CBR : Endif
            If CA = C And CB = C : NP4 = C : NP6 = C : Endif
            If CL = C And CR = C : NP2 = C : NP8 = C : Endif   
            X2 = X * 3 : Y2 = Y * 3
            Image2(X2-1, Y2-1) = NP1 : Image2(X2, Y2-1) = NP2 : Image2(X2+1, Y2-1) = NP3
            Image2(X2-1, Y2)   = NP4 : Image2(X2, Y2)   = NP5 : Image2(X2+1, Y2)   = NP6
            Image2(X2-1, Y2+1) = NP7 : Image2(X2, Y2+1) = NP8 : Image2(X2+1, Y2+1) = NP9
        Next Y
    Next X
    
    Write Memblock Dword 2, 0, ImageWidth2
    Write Memblock Dword 2, 4, ImageHeight2
    Write Memblock Dword 2, 8, ImageDepth
  
    If ContrastUp# > 0 And ContrastDown# > 0
    For Y = 0 To ImageHeight2 - 1
        For X = 0 To ImageWidth2 - 1
            If Image2(X, Y) <> TransparentColor
                If RGBR(Image2(X, Y)) > 127 And RGBG(Image2(X, Y)) > 127 And RGBB(Image2(X, Y)) > 127
                    PR = RGBR(Image2(X, Y)) + ContrastUp# : If PR > 255 Then PR = 255
                    PG = RGBG(Image2(X, Y)) + ContrastUp# : If PG > 255 Then PG = 255
                    PB = RGBB(Image2(X, Y)) + ContrastUp# : If PB > 255 Then PB = 255
                    Image2(X, Y) = RGB(PR,PG,PB)
                Endif
                If RGBR(Image2(X, Y)) < 127 And RGBG(Image2(X, Y)) < 127 And RGBB(Image2(X, Y)) < 127
                    PR = RGBR(Image2(X, Y)) - ContrastDown# : If PR < 0 Then PR = 0
                    PG = RGBG(Image2(X, Y)) - ContrastDown# : If PG < 0 Then PG = 0
                    PB = RGBB(Image2(X, Y)) - ContrastDown# : If PB < 0 Then PB = 0
                    Image2(X, Y) = RGB(PR,PG,PB)
                Endif
            Endif
        Next Y
    Next X
    Endif
    
    If ColorEnhance# > 0
    For Y = 0 To ImageHeight2 - 1
        For X = 0 To ImageWidth2 - 1
            If Image2(X, Y) <> TransparentColor
                CR = RGBR(Image2(X, Y)) : CG = RGBG(Image2(X, Y)) : CB = RGBB(Image2(X, Y))
                If CR > 170 Or CR > 85 And CG > 170 Or CG > 85 And CB > 170 Or CB > 85
                    If CR > CG And CR > CB
                        PR = CR + ColorEnhance#
                        If PR > 255 Then PR = 255
                    Else
                        PR = CR
                    Endif
                    If CG > CB And CG > CR 
                        PG = CG + ColorEnhance#
                        If PG > 255 Then PG = 255
                    Else
                        PG = CG
                    Endif
                    If CB > CR And CB > CG 
                        PB = CB + ColorEnhance#
                        If PB > 255 Then PB = 255
                    Else
                        PB = CB
                    Endif
                    Image2(X, Y) = RGB(PR,PG,PB)
                Endif
            Endif
        Next Y
    Next X
    Endif
    
    If LightBlend# > 0
    For Z = 1 To LightBlend#
    For Y = 1 To ImageHeight2 - 2
        For X = 1 To ImageWidth2 - 2
            If Image2(X, Y) <> TransparentColor
                If LightBlendMode = 0
                    If RGBR(Image2(X, Y)) > 170 And RGBG(Image2(X, Y)) > 170 And RGBB(Image2(X, Y)) > 170
                        If Image2(X-1, Y-1) <> TransparentColor : CAL = Image2(X-1, Y-1) : Else : CAL = Image2(X, Y) : Endif
                        If Image2(X, Y-1)   <> TransparentColor : CA  = Image2(X, Y-1)   : Else : CA  = Image2(X, Y) : Endif
                        If Image2(X+1, Y-1) <> TransparentColor : CAR = Image2(X+1, Y-1) : Else : CAR = Image2(X, Y) : Endif
                        If Image2(X-1, Y)   <> TransparentColor : CL  = Image2(X-1, Y)   : Else : CL  = Image2(X, Y) : Endif
                        If Image2(X, Y)     <> TransparentColor : C   = Image2(X, Y)     : Else : C   = Image2(X, Y) : Endif
                        If Image2(X+1, Y)   <> TransparentColor : CR  = Image2(X+1, Y)   : Else : CR  = Image2(X, Y) : Endif
                        If Image2(X-1, Y+1) <> TransparentColor : CBL = Image2(X-1, Y+1) : Else : CBL = Image2(X, Y) : Endif
                        If Image2(X, Y+1)   <> TransparentColor : CB  = Image2(X, Y+1)   : Else : CB  = Image2(X, Y) : Endif
                        If Image2(X+1, Y+1) <> TransparentColor : CBR = Image2(X+1, Y+1) : Else : CBR = Image2(X, Y) : Endif
                        PR = ((RGBR(C)*LightBlend#)+RGBR(CL)+RGBR(CR)+RGBR(CA)+RGBR(CB)+RGBR(CAL)+RGBR(CAR)+RGBR(CBL)+RGBR(CBR))/(8+LightBlend#)
                        PG = ((RGBG(C)*LightBlend#)+RGBG(CL)+RGBG(CR)+RGBG(CA)+RGBG(CB)+RGBG(CAL)+RGBG(CAR)+RGBG(CBL)+RGBG(CBR))/(8+LightBlend#)
                        PB = ((RGBB(C)*LightBlend#)+RGBB(CL)+RGBB(CR)+RGBB(CA)+RGBB(CB)+RGBB(CAL)+RGBB(CAR)+RGBB(CBL)+RGBB(CBR))/(8+LightBlend#)
                        Image2(X, Y) = RGB(PR,PG,PB)
                    Endif
                    If RGBR(Image2(X, Y)) < 85 And RGBG(Image2(X, Y)) < 85 And RGBB(Image2(X, Y)) < 85
                        If Image2(X-1, Y-1) <> TransparentColor : CAL = Image2(X-1, Y-1) : Else : CAL = Image2(X, Y) : Endif
                        If Image2(X, Y-1)   <> TransparentColor : CA  = Image2(X, Y-1)   : Else : CA  = Image2(X, Y) : Endif
                        If Image2(X+1, Y-1) <> TransparentColor : CAR = Image2(X+1, Y-1) : Else : CAR = Image2(X, Y) : Endif
                        If Image2(X-1, Y)   <> TransparentColor : CL  = Image2(X-1, Y)   : Else : CL  = Image2(X, Y) : Endif
                        If Image2(X, Y)     <> TransparentColor : C   = Image2(X, Y)     : Else : C   = Image2(X, Y) : Endif
                        If Image2(X+1, Y)   <> TransparentColor : CR  = Image2(X+1, Y)   : Else : CR  = Image2(X, Y) : Endif
                        If Image2(X-1, Y+1) <> TransparentColor : CBL = Image2(X-1, Y+1) : Else : CBL = Image2(X, Y) : Endif
                        If Image2(X, Y+1)   <> TransparentColor : CB  = Image2(X, Y+1)   : Else : CB  = Image2(X, Y) : Endif
                        If Image2(X+1, Y+1) <> TransparentColor : CBR = Image2(X+1, Y+1) : Else : CBR = Image2(X, Y) : Endif
                        PR = ((RGBR(C)*LightBlend#)+RGBR(CL)+RGBR(CR)+RGBR(CA)+RGBR(CB)+RGBR(CAL)+RGBR(CAR)+RGBR(CBL)+RGBR(CBR))/(8+LightBlend#)
                        PG = ((RGBG(C)*LightBlend#)+RGBG(CL)+RGBG(CR)+RGBG(CA)+RGBG(CB)+RGBG(CAL)+RGBG(CAR)+RGBG(CBL)+RGBG(CBR))/(8+LightBlend#)
                        PB = ((RGBB(C)*LightBlend#)+RGBB(CL)+RGBB(CR)+RGBB(CA)+RGBB(CB)+RGBB(CAL)+RGBB(CAR)+RGBB(CBL)+RGBB(CBR))/(8+LightBlend#)
                        Image2(X, Y) = RGB(PR,PG,PB)
                    Endif
                Endif
                If LightBlendMode = 1
                    If RGBR(Image2(X, Y)) > 170 And RGBG(Image2(X, Y)) > 170 And RGBB(Image2(X, Y)) > 170
                        If Image2(X-1, Y-1) <> TransparentColor : CAL = Image2(X-1, Y-1) : Else : CAL = Image2(X, Y) : Endif
                        If Image2(X, Y-1)   <> TransparentColor : CA  = Image2(X, Y-1)   : Else : CA  = Image2(X, Y) : Endif
                        If Image2(X+1, Y-1) <> TransparentColor : CAR = Image2(X+1, Y-1) : Else : CAR = Image2(X, Y) : Endif
                        If Image2(X-1, Y)   <> TransparentColor : CL  = Image2(X-1, Y)   : Else : CL  = Image2(X, Y) : Endif
                        If Image2(X, Y)     <> TransparentColor : C   = Image2(X, Y)     : Else : C   = Image2(X, Y) : Endif
                        If Image2(X+1, Y)   <> TransparentColor : CR  = Image2(X+1, Y)   : Else : CR  = Image2(X, Y) : Endif
                        If Image2(X-1, Y+1) <> TransparentColor : CBL = Image2(X-1, Y+1) : Else : CBL = Image2(X, Y) : Endif
                        If Image2(X, Y+1)   <> TransparentColor : CB  = Image2(X, Y+1)   : Else : CB  = Image2(X, Y) : Endif
                        If Image2(X+1, Y+1) <> TransparentColor : CBR = Image2(X+1, Y+1) : Else : CBR = Image2(X, Y) : Endif
                        PR = ((RGBR(C)*LightBlend#)+RGBR(CL)+RGBR(CR)+RGBR(CA)+RGBR(CB)+RGBR(CAL)+RGBR(CAR)+RGBR(CBL)+RGBR(CBR))/(8+LightBlend#)
                        PG = ((RGBG(C)*LightBlend#)+RGBG(CL)+RGBG(CR)+RGBG(CA)+RGBG(CB)+RGBG(CAL)+RGBG(CAR)+RGBG(CBL)+RGBG(CBR))/(8+LightBlend#)
                        PB = ((RGBB(C)*LightBlend#)+RGBB(CL)+RGBB(CR)+RGBB(CA)+RGBB(CB)+RGBB(CAL)+RGBB(CAR)+RGBB(CBL)+RGBB(CBR))/(8+LightBlend#)
                        Image2(X, Y) = RGB(PR,PG,PB)
                    Endif
                Endif
                If LightBlendMode = 2
                    If RGBR(Image2(X, Y)) < 85 And RGBG(Image2(X, Y)) < 85 And RGBB(Image2(X, Y)) < 85
                        If Image2(X-1, Y-1) <> TransparentColor : CAL = Image2(X-1, Y-1) : Else : CAL = Image2(X, Y) : Endif
                        If Image2(X, Y-1)   <> TransparentColor : CA  = Image2(X, Y-1)   : Else : CA  = Image2(X, Y) : Endif
                        If Image2(X+1, Y-1) <> TransparentColor : CAR = Image2(X+1, Y-1) : Else : CAR = Image2(X, Y) : Endif
                        If Image2(X-1, Y)   <> TransparentColor : CL  = Image2(X-1, Y)   : Else : CL  = Image2(X, Y) : Endif
                        If Image2(X, Y)     <> TransparentColor : C   = Image2(X, Y)     : Else : C   = Image2(X, Y) : Endif
                        If Image2(X+1, Y)   <> TransparentColor : CR  = Image2(X+1, Y)   : Else : CR  = Image2(X, Y) : Endif
                        If Image2(X-1, Y+1) <> TransparentColor : CBL = Image2(X-1, Y+1) : Else : CBL = Image2(X, Y) : Endif
                        If Image2(X, Y+1)   <> TransparentColor : CB  = Image2(X, Y+1)   : Else : CB  = Image2(X, Y) : Endif
                        If Image2(X+1, Y+1) <> TransparentColor : CBR = Image2(X+1, Y+1) : Else : CBR = Image2(X, Y) : Endif
                        PR = ((RGBR(C)*LightBlend#)+RGBR(CL)+RGBR(CR)+RGBR(CA)+RGBR(CB)+RGBR(CAL)+RGBR(CAR)+RGBR(CBL)+RGBR(CBR))/(8+LightBlend#)
                        PG = ((RGBG(C)*LightBlend#)+RGBG(CL)+RGBG(CR)+RGBG(CA)+RGBG(CB)+RGBG(CAL)+RGBG(CAR)+RGBG(CBL)+RGBG(CBR))/(8+LightBlend#)
                        PB = ((RGBB(C)*LightBlend#)+RGBB(CL)+RGBB(CR)+RGBB(CA)+RGBB(CB)+RGBB(CAL)+RGBB(CAR)+RGBB(CBL)+RGBB(CBR))/(8+LightBlend#)
                        Image2(X, Y) = RGB(PR,PG,PB)
                    Endif
                Endif
            Endif
        Next Y
    Next X
    Next Z
    Endif
    
    Position = 12
    For Y = 0 To ImageHeight2 - 1
        For X = 0 To ImageWidth2 - 1
            Write Memblock Dword 2, Position, Image2(X, Y)
            Inc Position, 4
        Next Y
    Next X

    Make Image From Memblock Image, 2
    Delete Memblock 1
    Delete Memblock 2
    UnDim Image1(0)
    UnDim Image2(0)
    
EndFunction

Resized Normally
Resized Using Function
Resized with Contrast Adjustment
Resized with Contrast Adjustment and Color Adjustment

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Pixel Art Scaling Algorithms?