News:

PlayBASIC2DLL V0.99 Revision I Commercial Edition released! - Convert PlayBASIC programs to super fast Machine Code. 

Main Menu

Convert Image to Data statements

Started by kevin, March 10, 2012, 05:57:34 PM

Previous topic - Next topic
Print
Go Down Pages1
User actions

kevin

March 10, 2012, 05:57:34 PM Last Edit: September 04, 2012, 03:19:30 PM by kevin
Convert Image to Data statements



PlayBASIC Code: [Select]
  ; ---------------------------------------------
  ; Run program in DEBUG MODE (f7 from IDE)
  ; ---------------------------------------------
    

  img=loadNewFXIMage("Bubble_64x64.bmp")
 
  s$=Convert_IMage_To_32Bit_Data_Statements(img)
  
  #print s$  
     
  print "done"
  sync
  waitkey


Function Convert_IMage_To_32Bit_Data_Statements(ThisIMage)
   oldsurface=getsurface()

   rendertoimage ThisIMage
   
   For ylp =0 to GetImageHeight(ThisIMage)-1
       l$="   Data "
        Width=GetImageWidth(ThisIMage)-1
         For lp =0 to Width
           p=Point(lp,ylp)
           if p
             l$+= hex$(p) 
          else
             l$+= "0" 
           
          endif          
         if lp<Width then l$+=","
       next

         r$+=l$+Chr$(13)+Chr$(10)
   next

  rendertoImage ThisIMage


endFunction r$





outputs


PlayBASIC Code: [Select]
  Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,$00000030,$00101050,$00202080,$00202080,$00202080,$004030A0,$004030A0,$004030A0,$00202080,$00202080,$00202080,$00101050,$00000030,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
   Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,$00000030,$00202080,$007050D0,$007060C0,$007060C0,$007060C0,$007050D0,$004030A0,$004030A0,$00202080,$00202080,$004030A0,$004030A0,$00202080,$004030A0,$004030A0,$007050D0,$00202080,$00202080,$00101050,$00000030,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
   Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,$00202080,$007060C0,$007060C0,$007050D0,$007050D0,$004030A0,$004030A0,$00202080,$00202080,$00202080,$00202080,$00101050,$00202080,$00101050,$00101050,$00000030,$00101050,$00101050,$00101050,$00202080,$00101050,$007050D0,$00202080,$00101050,$00000030,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
   Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,$00202080,$007050D0,$007060C0,$004030A0,$007050D0,$004030A0,$007050D0,$004030A0,$004030A0,$004030A0,$00202080,$00202080,$00101050,$00101050,$00101050,$00101050,$00202080,$00101050,$00202080,$00101050,$00101050,$00101050,$00101050,$00101050,$00101050,$00202080,$004030A0,$00202080,$00101050,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
   Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,$00101050,$004030A0,$007050D0,$004030A0,$007050D0,$004030A0,$00202080,$00202080,$00202080,$00202080,$00202080,$00202080,$00101050,$00101050,$00101050,$00202080,$00202080,$00101050,$00000030,$00101050,$00000030,$00000030,$00000030,$00101050,$00101050,$00000030,$00000030,$00101050,$00101050,$00202080,$00202080,$00000030,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
   Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,$00101050,$00101050,$00202080,$00202080,$004030A0,$00202080,$00202080,$00202080,$00101050,$00202080,$00202080,$00202080,$00101050,$00202080,$00202080,$00101050,$00202080,$00202080,$00101050,$00101050,$00202080,$00202080,$00101050,$00000030,$00000030,$00000030,$00101050,$00101050,$00000030,$00000030,$00000030,$00101050,$00101050,$004030A0,$00202080,0,0,0,0,0,0,0,0,0,0,0,0,0,0
   Data 0,0,0,0,0,0,0,0,0,0,0,0,0,$00101050,$00101050,$00202080,$00202080,$00202080,$00202080,$00202080,$00202080,$00202080,$00202080,$00202080,$00202080,$00101050,$00202080,$00101050,$00101050,$00202080,$00101050,$00101050,$004030A0,$004030A0,$00202080,$00101050,$00202080,$00101050,$00101050,$00101050,$00101050,$00000030,$00101050,$00101050,$00000030,$00000030,$00000030,$00202080,$00101050,$004030A0,$00202080,0,0,0,0,0,0,0,0,0,0,0,0,0
   Data 0,0,0,0,0,0,0,0,0,0,0,0,$00101050,$00101050,$00101050,$00202080,$00202080,$00202080,$00101050,$00202080,$00202080,$00101050,$00101050,$00101050,$00101050,$00202080,$00202080,$00101050,$00000030,$00000030,$00000030,$00000030,$00101050,$00101050,$00202080,$004030A0,$00202080,$00202080,$00101050,$00202080,$00000030,$00101050,$00101050,$00202080,$00101050,$00000030,$00101050,$00000030,$00000030,$00202080,$00202080,$007050D0,0,0,0,0,0,0,0,0,0,0,0,0
   Data 0,0,0,0,0,0,0,0,0,0,0,$004030A0,$00000030,$00101050,$00202080,$00101050,$00101050,$00101050,$00202080,$00101050,$00101050,$00202080,$00000030,$00000030,$00101050,$00101050,$00000030,$00000030,$00101050,$00101050,$00101050,$00101050,$00202080,$00202080,$00202080,$00202080,$00101050,$00101050,$00000030,$00000030,$00101050,$00000030,$00202080,$00101050,$00202080,$00202080,$00202080,$00101050,$00000030,$00202080,$00101050,$00202080,$004030A0,0,0,0,0,0,0,0,0,0,0,0
   Data 0,0,0,0,0,0,0,0,0,0,$00000030,$00000030,$00101050,$00101050,$00101050,$00101050,$00000030,$00000030,$00000030,$00101050,$00101050,$00000030,$00000030,$00000030,$00101050,$00000030,$00101050,$00101050,$00000030,$00000030,$00101050,$00101050,$00000030,$00000030,$00000030,$00000030,$00101050,$00101050,$00202080,$00101050,$00000030,$00000030,$00101050,$00202080,$00202080,$00202080,$00101050,$00202080,$00101050,$00202080,$00101050,$00101050,$00202080,$004030A0,0,0,0,0,0,0,0,0,0,0
   Data 0,0,0,0,0,0,0,0,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00101050,$00101050,$00000030,$00000030,$00000030,$00000030,$004030A0,$004030A0,$00000030,$00000030,$00000030,$00000030,$00101050,$00101050,$00000030,$00000030,$00000030,$00000030,$00101050,$00202080,$00202080,$00101050,$00202080,$00101050,$00101050,$00101050,$00202080,$00101050,$00101050,$00101050,$00000030,$00101050,$00202080,$004030A0,0,0,0,0,0,0,0,0,0
   Data 0,0,0,0,0,0,0,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$004030A0,$00F0E0F0,$00F0E0F0,$004030A0,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00202080,$00202080,$00202080,$00101050,$00202080,$00101050,$00101050,$00101050,$00202080,$00101050,$00000030,$00101050,$00000030,$00202080,$00202080,0,0,0,0,0,0,0,0
   Data 0,0,0,0,0,0,0,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$004030A0,$00F0E0F0,$00F0E0F0,$004030A0,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00202080,$00202080,$00101050,$00101050,$00202080,$00101050,$00101050,$00202080,$00101050,$00101050,$00000030,$00000030,$00101050,$00101050,$00202080,0,0,0,0,0,0,0
   Data 0,0,0,0,0,0,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$004030A0,$007060C0,$00F0E0F0,$007060C0,$004030A0,$00000030,$00000030,$004030A0,$004030A0,$00101050,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00202080,$00202080,$00101050,$00202080,$00F0E0F0,$00101050,$00101050,$00202080,$00101050,$00000030,$00000030,$00101050,$00101050,$00202080,0,0,0,0,0,0
   Data 0,0,0,0,0,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$007060C0,$00F0E0F0,$00F0E0F0,$00F0E0F0,$007060C0,$00000030,$00000030,$00000030,$00101050,$00101050,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00202080,$00000030,$00202080,$00202080,$00202080,$00101050,$00202080,$00202080,$00101050,$00202080,$00101050,$00000030,$00000030,$00101050,$00101050,$00000030,0,0,0,0,0
   Data 0,0,0,0,0,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00F0E0F0,$00F0E0F0,$00F0E0F0,$00F0E0F0,$00F0E0F0,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00202080,$00000030,$00101050,$00202080,$00101050,$00202080,$00202080,$004030A0,$00202080,$00202080,$00101050,$00101050,$00000030,$00101050,$00101050,$00101050,0,0,0,0,0
   Data 0,0,0,0,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$007060C0,$00F0E0F0,$00F0E0F0,$00F0E0F0,$007060C0,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00202080,$00101050,$00000030,$00000030,$00101050,$00202080,$00202080,$004030A0,$004030A0,$00202080,$00101050,$00101050,$00101050,$00000030,$00101050,$00000030,0,0,0,0
   Data 0,0,0,0,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$004030A0,$007060C0,$00F0E0F0,$007060C0,$004030A0,$00101050,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00202080,$00101050,$00000030,$00000030,$00101050,$00202080,$00202080,$004030A0,$004030A0,$00202080,$00101050,$00202080,$00000030,$00000030,$00101050,0,0,0,0
   Data 0,0,0,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00101050,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00202080,$00202080,$00101050,$00000030,$00000030,$00101050,$00202080,$00202080,$004030A0,$004030A0,$00202080,$00101050,$00202080,$00000030,$00101050,$00000030,0,0,0
   Data 0,0,0,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00202080,$004030A0,$00000030,$00000030,$00101050,$00000030,$00F0E0F0,$004030A0,$004030A0,$00202080,$00202080,$00202080,$00101050,$00000030,$00101050,0,0,0
   Data 0,0,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$004030A0,$00202080,$00000030,$00101050,$00101050,$00F0E0F0,$00202080,$004030A0,$004030A0,$00202080,$00202080,$00000030,$00101050,$00101050,$00000030,0,0
   Data 0,0,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00202080,$004030A0,$004030A0,$00202080,$00101050,$00000030,$00101050,$00202080,$004030A0,$00202080,$00202080,$00202080,$00101050,$00000030,$00101050,0,0
   Data 0,0,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$007050D0,$004030A0,$004030A0,$00202080,$00101050,$00000030,$00202080,$00101050,$00202080,$00101050,$00101050,$00101050,$00000030,$00202080,0,0
   Data 0,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00202080,$007050D0,$007060C0,$007060C0,$00202080,$00101050,$00101050,$00202080,$00202080,$00000030,$00101050,$00101050,$00101050,$00101050,$00000030,0
   Data 0,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$007050D0,$007060C0,$007060C0,$007050D0,$00202080,$00101050,$00202080,$00000030,$00000030,$00000030,$00000030,$00101050,$00101050,$00101050,0
   Data $00000030,$00101050,$00101050,$00202080,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$004030A0,$007050D0,$007060C0,$007060C0,$007050D0,$004030A0,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,0
   Data $00000030,$00101050,$00202080,$004030A0,$00202080,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00202080,$007060C0,$007060C0,$007060C0,$007050D0,$00202080,$00101050,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00000030,0
   Data $00101050,$00101050,$00000030,$00202080,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00101050,$007050D0,$007060C0,$007060C0,$007060C0,$00202080,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030
   Data $00202080,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00202080,$007050D0,$007050D0,$007050D0,$004030A0,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050
   Data $00202080,$00000030,$00101050,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00202080,$004030A0,$004030A0,$007050D0,$004030A0,$00202080,$00101050,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050
   Data $00202080,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00202080,$004030A0,$004030A0,$00202080,$00202080,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00202080
   Data $00101050,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00101050,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00101050,$00101050,$00202080,$00101050,$00101050,$00202080,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00202080
   Data $00101050,$00000030,$00000030,$00202080,$00101050,$00101050,$00000030,$00101050,$00101050,$00101050,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00101050,$00000030,$00000030,$00000030,$004030A0,$00000030,$00101050,$00000030,$00000030,$00000030,$00202080,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00202080
   Data $00101050,$00000030,$00202080,$00101050,$00101050,$00101050,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00101050,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00202080
   Data $00101050,$00101050,$00202080,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00202080
   Data $00101050,$00202080,$00202080,$00101050,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050
   Data $00101050,$00202080,$00202080,$00101050,$00000030,$00101050,$00202080,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00101050,$00101050,$00000030,$00000030,$00101050,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030
   Data $00101050,$004030A0,$00202080,$00202080,$00101050,$00202080,$00202080,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00101050,$00101050,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,0
   Data $00000030,$004030A0,$004030A0,$00202080,$00202080,$00101050,$00202080,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00101050,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,0
   Data 0,$00202080,$007050D0,$004030A0,$00202080,$00202080,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00101050,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,0
   Data 0,$00202080,$004030A0,$007050D0,$004030A0,$00202080,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00000030,$00101050,$00000030,0
   Data 0,$00101050,$00202080,$004030A0,$004030A0,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00F0E0F0,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00101050,0,0
   Data 0,$00000030,$00202080,$004030A0,$00202080,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00F0E0F0,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00101050,0,0
   Data 0,0,$00202080,$004030A0,$004030A0,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,0,0
   Data 0,0,$00101050,$00202080,$004030A0,$00202080,$00101050,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00101050,$00000030,$00000030,$00000030,$00000030,$00101050,0,0,0
   Data 0,0,$00000030,$00202080,$004030A0,$00202080,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00101050,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00202080,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,0,0,0
   Data 0,0,0,$00101050,$00202080,$004030A0,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00101050,$007060C0,$00F0E0F0,$007060C0,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00101050,$00101050,$00202080,$00202080,$00101050,$00000030,$00000030,$00000030,$00000030,0,0,0,0
   Data 0,0,0,$00000030,$00202080,$004030A0,$00202080,$00101050,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00101050,$007060C0,$00F0E0F0,$00F0E0F0,$00F0E0F0,$007060C0,$00000030,$00000030,$00101050,$00000030,$00101050,$00101050,$00101050,$00202080,$004030A0,$004030A0,$00202080,$00202080,$00000030,$00000030,$00000030,0,0,0,0,0
   Data 0,0,0,0,$00101050,$00202080,$004030A0,$00202080,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00F0E0F0,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00F0E0F0,$00F0E0F0,$00F0E0F0,$00F0E0F0,$00F0E0F0,$00000030,$00000030,$00101050,$00101050,$00101050,$00202080,$00202080,$00202080,$004030A0,$004030A0,$00202080,$00202080,$00000030,$00000030,$00000030,0,0,0,0,0
   Data 0,0,0,0,$00000030,$00101050,$00202080,$00101050,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00101050,$00101050,$00000030,$00000030,$00101050,$00000030,$007060C0,$00F0E0F0,$00F0E0F0,$00F0E0F0,$007060C0,$00101050,$00101050,$00202080,$004030A0,$004030A0,$004030A0,$004030A0,$004030A0,$004030A0,$00202080,$00202080,$00000030,$00000030,$00000030,0,0,0,0,0,0
   Data 0,0,0,0,0,$00000030,$00202080,$00202080,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$004030A0,$004030A0,$00101050,$00000030,$007060C0,$00F0E0F0,$007060C0,$00202080,$004030A0,$004030A0,$004030A0,$004030A0,$007050D0,$004030A0,$007050D0,$004030A0,$004030A0,$00202080,$00202080,$00000030,$00000030,0,0,0,0,0,0,0
   Data 0,0,0,0,0,0,$00000030,$00202080,$00101050,$00000030,$00101050,$00000030,$00000030,$00000030,$00101050,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$004030A0,$00F0E0F0,$00F0E0F0,$004030A0,$00202080,$00202080,$00202080,$004030A0,$00202080,$004030A0,$004030A0,$004030A0,$007050D0,$004030A0,$004030A0,$004030A0,$004030A0,$004030A0,$00202080,$00202080,$00000030,$00000030,0,0,0,0,0,0,0
   Data 0,0,0,0,0,0,0,$00000030,$004030A0,$00202080,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00101050,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00000030,$00101050,$00101050,$004030A0,$00F0E0F0,$00F0E0F0,$004030A0,$004030A0,$004030A0,$004030A0,$004030A0,$007050D0,$007050D0,$007050D0,$007060C0,$007050D0,$004030A0,$004030A0,$004030A0,$004030A0,$00202080,$00202080,$00202080,$00000030,0,0,0,0,0,0,0,0
   Data 0,0,0,0,0,0,0,0,$00000030,$004030A0,$004030A0,$00101050,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00101050,$00202080,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00000030,$00101050,$00202080,$00101050,$00202080,$00202080,$004030A0,$004030A0,$004030A0,$004030A0,$007050D0,$007050D0,$007060C0,$007060C0,$007060C0,$007060C0,$007060C0,$007050D0,$004030A0,$004030A0,$004030A0,$00202080,$00202080,$00202080,$00000030,$00000030,$00000030,0,0,0,0,0,0,0,0
   Data 0,0,0,0,0,0,0,0,0,$00000030,$007050D0,$00101050,$00000030,$00000030,$00101050,$00000030,$00000030,$00000030,$00000030,$00000030,$00202080,$00202080,$00101050,$00101050,$00101050,$00101050,$00101050,$00101050,$00202080,$00101050,$00101050,$00202080,$00202080,$00101050,$00202080,$004030A0,$004030A0,$004030A0,$007050D0,$007060C0,$007060C0,$007060C0,$007060C0,$007060C0,$007060C0,$007050D0,$007050D0,$007050D0,$007050D0,$004030A0,$00202080,$00202080,$00202080,$00000030,$00000030,0,0,0,0,0,0,0,0,0
   Data 0,0,0,0,0,0,0,0,0,0,0,$007060C0,$00101050,$00101050,$00101050,$00101050,$00101050,$00101050,$00000030,$00000030,$00000030,$00000030,$00202080,$00202080,$00202080,$00202080,$00101050,$00202080,$00202080,$00202080,$00202080,$00202080,$004030A0,$004030A0,$004030A0,$007050D0,$007050D0,$007050D0,$007060C0,$00F0E0F0,$00F0E0F0,$007060C0,$007060C0,$007060C0,$007050D0,$004030A0,$007050D0,$00202080,$00202080,$00101050,$00000030,$00000030,$00101050,$00000030,0,0,0,0,0,0,0,0,0,0
   Data 0,0,0,0,0,0,0,0,0,0,0,0,$007060C0,$00202080,$00202080,$00202080,$00101050,$00101050,$00202080,$00202080,$00101050,$00101050,$00101050,$00101050,$00202080,$00202080,$00202080,$00101050,$004030A0,$004030A0,$004030A0,$004030A0,$007050D0,$007050D0,$007050D0,$007050D0,$007060C0,$007060C0,$007060C0,$007060C0,$007060C0,$007060C0,$007050D0,$004030A0,$004030A0,$004030A0,$004030A0,$004030A0,$00202080,$00202080,$00000030,$00101050,$00000030,0,0,0,0,0,0,0,0,0,0,0
   Data 0,0,0,0,0,0,0,0,0,0,0,0,0,$007050D0,$004030A0,$00202080,$00202080,$00101050,$00101050,$00202080,$00202080,$00202080,$00101050,$00202080,$00101050,$00202080,$00202080,$00202080,$00202080,$00202080,$004030A0,$004030A0,$004030A0,$004030A0,$004030A0,$007050D0,$007050D0,$007050D0,$007050D0,$007060C0,$007060C0,$007050D0,$007050D0,$004030A0,$004030A0,$007050D0,$004030A0,$004030A0,$004030A0,$00101050,$00101050,0,0,0,0,0,0,0,0,0,0,0,0,0
   Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,$00202080,$004030A0,$00202080,$004030A0,$00202080,$00101050,$00101050,$00202080,$00202080,$00202080,$00202080,$00202080,$00101050,$00101050,$00202080,$00202080,$00202080,$00202080,$004030A0,$004030A0,$004030A0,$004030A0,$007050D0,$007050D0,$004030A0,$007050D0,$004030A0,$004030A0,$004030A0,$004030A0,$004030A0,$004030A0,$004030A0,$00202080,$00101050,$00000030,0,0,0,0,0,0,0,0,0,0,0,0,0,0
   Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,$00101050,$00202080,$00202080,$004030A0,$004030A0,$00202080,$00202080,$004030A0,$00202080,$00101050,$00101050,$00101050,$00202080,$004030A0,$00202080,$00202080,$00202080,$00202080,$004030A0,$004030A0,$004030A0,$004030A0,$004030A0,$004030A0,$004030A0,$004030A0,$004030A0,$00202080,$00202080,$004030A0,$00202080,$00202080,$00101050,$00000030,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
   Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,$00101050,$00202080,$004030A0,$004030A0,$00202080,$00202080,$00202080,$00202080,$00202080,$00202080,$00101050,$00202080,$004030A0,$004030A0,$004030A0,$00202080,$00202080,$00202080,$00202080,$004030A0,$004030A0,$004030A0,$004030A0,$004030A0,$004030A0,$00202080,$004030A0,$00202080,$00101050,$00000030,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
   Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,$00000030,$00101050,$00202080,$004030A0,$004030A0,$004030A0,$00202080,$00202080,$00202080,$00202080,$004030A0,$00202080,$00202080,$00101050,$00101050,$00202080,$004030A0,$00202080,$00202080,$00202080,$004030A0,$00202080,$00202080,$00202080,$00101050,$00000030,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
   Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,$00000030,$00101050,$00202080,$00202080,$00202080,$004030A0,$004030A0,$004030A0,$004030A0,$004030A0,$00202080,$00202080,$00101050,$00202080,$00202080,$00202080,$00202080,$00202080,$00202080,$00000030,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
   Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,$00000030,$00101050,$00202080,$00202080,$00202080,$004030A0,$00101050,$00202080,$00202080,$00202080,$00202080,$00101050,$00000030,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0







Converts the BLUE into data statements

 This version converts the src image to gray scale, then runs through and drops the 8bit intensity values out as Dc.l statements to the console.  

PlayBASIC Code: [Select]
 img=loadNewFXIMage("SomeImage.bmp")
 
  scaleimage img,320,256,1+2
 
  grayscaleimage img
  
  drawimage img,0,0,false


rendertoimage img
   For ylp =0 to GetImageHeight(img)-1
   r$="   dc.l "
     Width=(GetImageWidth(img)/4)-1
     For lp =0 to Width
       Xlp=lp*4
       A=Point(Xlp,ylp)  and 255
      R=Point(Xlp+1,ylp) and 255
      G=Point(Xlp+2,ylp) and 255
      B=Point(Xlp+3,ylp) and 255
      
      P=ARGB(A,R,G,B)
      
      r$+= hex$(p)      
      
      if lp<Width then R$+=","
      
      
    next

   #print r$
   next
;closefile fh

rendertoscreen
print "done"
sync
waitkey




ATLUS

#1
March 11, 2012, 04:12:05 AM
This work great!
Print
Go Up Pages1
User actions