BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"2d scale/rotate", by obviousdisaster

Scaling and rotating routine that works by mapping the image onto a quad. I think it's the fastest you can do in Blitz 2d but this version only works for 256*256 images (although it could easily be modified to work with any size image).

Code

Graphics 640,480,False,2

PIC=LoadImage("planet.png") ;any 256*256 pic
IMG=pictobank(PIC)
Global GWID=GraphicsWidth(),GHEI=GraphicsHeight()

MoveMouse(GWID/2,GHEI/2)
SetBuffer BackBuffer()
si=400
While Not KeyHit(57)
     ang=ang+3
     ang2=ang2+1
     ;si=100+100*Cos(ang2*2)
     
     If MouseDown(1) si=si+5
     If MouseDown(2) si=si-5
     
     mx=MouseX()
     my=MouseY()
     
     DrawImageScaleRotate(IMG,mx,my,ang,si)
     
     fps=(1000/(MilliSecs()-t))
     t=MilliSecs()
     Text 0,225,"AFPS : "+afps#+"  FPS : "+fps
     If afps#=0 Then afps#=fps : afpscount=1
     afps#=((afps#*afpscount)+fps)/(afpscount+1)
     afpscount=afpscount+1
     
     Flip:Cls
Wend
End

Function DrawImageScaleRotate(IMG,mx,my,ang,si)

x0=mx+si*Cos(ang)
     y0=my+si*Sin(ang)
     x1=mx+si*Cos(ang+90)
     y1=my+si*Sin(ang+90)
     x2=mx+si*Cos(ang+180)
     y2=my+si*Sin(ang+180)
     x3=mx+si*Cos(ang+270)
     y3=my+si*Sin(ang+270)

LockBuffer
          Quad(IMG,x0,y0,0,0,x1,y1,255,0,x2,y2,255,255,x3,y3,0,255)
     UnlockBuffer
     
End Function

Function Quad(IMG, x0#,y0#,u0#,v0#,x1#,y1#,u1#,v1#,x2#,y2#,u2#,v2#,x3#,y3#,u3#,v3#)

If y2#<y1#
          temp#=x1# : x1#=x2# : x2#=temp#
          temp#=y1# : y1#=y2# : y2#=temp#
          temp#=u1# : u1#=u2# : u2#=temp#
          temp#=v1# : v1#=v2# : v2#=temp#
     EndIf     
     If y1#<y0#
          temp#=x0# : x0#=x1# : x1#=temp#
          temp#=y0# : y0#=y1# : y1#=temp#
          temp#=u0# : u0#=u1# : u1#=temp#
          temp#=v0# : v0#=v1# : v1#=temp#
     EndIf
     If y3#<y2#
          temp#=x2# : x2#=x3# : x3#=temp#
          temp#=y2# : y2#=y3# : y3#=temp#
          temp#=u2# : u2#=u3# : u3#=temp#
          temp#=v2# : v2#=v3# : v3#=temp#
     EndIf
     If y2#<y1#
          temp#=x1# : x1#=x2# : x2#=temp#
          temp#=y1# : y1#=y2# : y2#=temp#
          temp#=u1# : u1#=u2# : u2#=temp#
          temp#=v1# : v1#=v2# : v2#=temp#
     EndIf     
     If y3#<y2#
          temp#=x2# : x2#=x3# : x3#=temp#
          temp#=y2# : y2#=y3# : y3#=temp#
          temp#=u2# : u2#=u3# : u3#=temp#
          temp#=v2# : v2#=v3# : v3#=temp#
     EndIf     
     If y1#<y0#
          temp#=x0# : x0#=x1# : x1#=temp#
          temp#=y0# : y0#=y1# : y1#=temp#
          temp#=u0# : u0#=u1# : u1#=temp#
          temp#=v0# : v0#=v1# : v1#=temp#
     EndIf
     
     If y0#=y1# Or y2#=y3#
          If x3#<x2#
               temp#=x2# : x2#=x3# : x3#=temp#
               temp#=y2# : y2#=y3# : y3#=temp#
               temp#=u2# : u2#=u3# : u3#=temp#
               temp#=v2# : v2#=v3# : v3#=temp#               
          EndIf
          If x1#<x0#
               temp#=x0# : x0#=x1# : x1#=temp#
               temp#=y0# : y0#=y1# : y1#=temp#
               temp#=u0# : u0#=u1# : u1#=temp#
               temp#=v0# : v0#=v1# : v1#=temp#
          EndIf
     EndIf

deltay#=(y1#-y0#)
     If deltay#<>0.0 
          lxm#=(x1#-x0#)/deltay#
          lum#=(u1#-u0#)/deltay#
          lvm#=(v1#-v0#)/deltay#
     Else
          lxm#=0.0 : lum#=0.0 : lvm#=0.0
     EndIf
     deltay#=(y2-y0)
     If deltay#<>0.0 
          rxm#=(x2#-x0#)/deltay#
          rum#=(u2#-u0#)/deltay#
          rvm#=(v2#-v0#)/deltay#
     Else
          rxm#=0.0 : rum#=0.0 : rvm#=0.0
     EndIf
     lx#=x0# : lu#=u0# : lv#=v0#
     rx#=x0# : ru#=u0# : rv#=v0#
     
     For y=(Int y0#) To ((Int y1#)-1)
          If y>=0 And y<GHEI
               If lx#<rx# 
                    leftx=Int lx#
                    leftu=Int lu#
                    leftv=Int lv#
                    rightx=Int rx#
                    rightu=Int ru#
                    rightv=Int rv#
               Else
                    leftx=Int rx#
                    leftu=Int ru#
                    leftv=Int rv#
                    rightx=Int lx#
                    rightu=Int lu#
                    rightv=Int lv#
               EndIf
               If leftx<=GWID And rightx>0
                    deltax=rightx-leftx
                    If deltax>0
                         hu=leftu Shl 16 : hv=leftv Shl 16
                         hum=((rightu-leftu)Shl 16)/deltax
                         hvm=((rightv-leftv)Shl 16)/deltax
                         If rightx>=GWID rightx=(GWID-1)
                         If leftx<0
                              S=Abs(leftx)
                              hu=hu+hum*S
                              hv=hv+hvm*S
                              leftx=0
                         EndIf
                         For x=leftx To rightx
                         ;     OFFS=((hv And$FF00)+(hu Shr 8))Shl 2
                         ;     WritePixelFast(x,y,PeekInt(IMG,OFFS))
                              RGB=PeekInt(IMG,(((hv Shr 8) And$FF00)+(hu Shr 16))Shl 2)
                              If RGB WritePixelFast(x,y,RGB)
                              hu=hu+hum
                              hv=hv+hvm
                         Next
                    EndIf
               EndIf
          EndIf
          lx#=lx#+lxm# : lu#=lu#+lum# : lv#=lv#+lvm#
          rx#=rx#+rxm# : ru#=ru#+rum# : rv#=rv#+rvm#
     Next
     
     deltay#=Int(y3#-y1#)
     If deltay<>0
          lxm#=(x3#-x1#)/deltay#
          lum#=(u3#-u1#)/deltay#
          lvm#=(v3#-v1#)/deltay#
     Else
          lxm#=0.0 : lum#=0.0 : lvm#=0.0
     EndIf
     lx#=x1# : lu#=u1# : lv#=v1#
     For y=(Int y1#) To ((Int y2#)-1)
          If y>=0 And y<GHEI
               If lx#<rx# 
                    leftx=Int lx#
                    leftu=Int lu#
                    leftv=Int lv#
                    rightx=Int rx#
                    rightu=Int ru#
                    rightv=Int rv#
               Else
                    leftx=Int rx#
                    leftu=Int ru#
                    leftv=Int rv#
                    rightx=Int lx#
                    rightu=Int lu#
                    rightv=Int lv#
               EndIf
               If leftx<=GWID And rightx>0
                    deltax=rightx-leftx
                    If deltax>0
                         hu=leftu Shl 16 : hv=leftv Shl 16
                         hum=((rightu-leftu)Shl 16)/deltax
                         hvm=((rightv-leftv)Shl 16)/deltax
                         If rightx>=GWID rightx=(GWID-1)
                         If leftx<0
                              S=Abs(leftx)
                              hu=hu+hum*S
                              hv=hv+hvm*S
                              leftx=0
                         EndIf
                         For x=leftx To rightx
                         ;     OFFS=((hv And$FF00)+(hu Shr 8))Shl 2
                         ;     WritePixelFast(x,y,PeekInt(IMG,OFFS))
                              RGB=PeekInt(IMG,(((hv Shr 8) And$FF00)+(hu Shr 16))Shl 2)
                              If RGB<>$000000 WritePixelFast(x,y,RGB)
                              hu=hu+hum
                              hv=hv+hvm
                         Next
                    EndIf
               EndIf
          EndIf
          lx#=lx#+lxm# : lu#=lu#+lum# : lv#=lv#+lvm#
          rx#=rx#+rxm# : ru#=ru#+rum# : rv#=rv#+rvm#
     Next
     
     deltay#=Int(y3#-y2#)
     If deltay<>0.0 
          rxm#=(x3#-x2#)/deltay#
          rum#=(u3#-u2#)/deltay#
          rvm#=(v3#-v2#)/deltay#
     Else
          rxm#=0.0 : rum#=0.0 : rvm#=0.0
     EndIf
     rx#=x2# : ru#=u2# : rv#=v2#
     For y=y2 To (y3-1)
          If y>=0 And y<GHEI
               If lx#<rx# 
                    leftx=Int lx#
                    leftu=Int lu#
                    leftv=Int lv#
                    rightx=Int rx#
                    rightu=Int ru#
                    rightv=Int rv#
               Else
                    leftx=Int rx#
                    leftu=Int ru#
                    leftv=Int rv#
                    rightx=Int lx#
                    rightu=Int lu#
                    rightv=Int lv#
               EndIf
               If leftx<=GWID And rightx>0
                    deltax=rightx-leftx
                    If deltax>0
                         hu=leftu Shl 16 : hv=leftv Shl 16
                         hum=((rightu-leftu)Shl 16)/deltax
                         hvm=((rightv-leftv)Shl 16)/deltax
                         If rightx>=GWID rightx=(GWID-1)
                         If leftx<0
                              S=Abs(leftx)
                              hu=hu+hum*S
                              hv=hv+hvm*S
                              leftx=0
                         EndIf
                         For x=leftx To rightx
                         ;     OFFS=((hv And$FF00)+(hu Shr 8))Shl 2
                         ;     WritePixelFast(x,y,PeekInt(IMG,OFFS))
                              RGB=PeekInt(IMG,(((hv Shr 8) And$FF00)+(hu Shr 16))Shl 2)
                              If RGB<>$000000 WritePixelFast(x,y,RGB)
                              hu=hu+hum
                              hv=hv+hvm
                         Next
                    EndIf
               EndIf
          EndIf
          lx#=lx#+lxm# : lu#=lu#+lum# : lv#=lv#+lvm#
          rx#=rx#+rxm# : ru#=ru#+rum# : rv#=rv#+rvm#
     Next
     
End Function

Function PicToBank(IMG)
     BNK=CreateBank(256*256*4)
     SetBuffer ImageBuffer(IMG)
     LockBuffer 
          i=0
          For y=0 To 255
               For x=0 To 255     
                    RGB=ReadPixelFast(x,y) And $FFFFFF
                    PokeInt(BNK,i,RGB)
                    i=i+4
               Next
          Next
     UnlockBuffer
     FreeImage IMG
     Return BNK
End Function

Function writepixelsafe(x,y,RGB,yo=False)
     If x>=0 And x<=GWID And y>=0 And y<=GHEI
          WritePixelFast x,y,RGB
     Else
          If yo UnlockBuffer : RuntimeError(x+";"+y) : End
     EndIf
End Function

Code software created by Krylar's Kreations