PureBasic Forums - English

Posted: **Tue Jul 10, 2012 4:41 pm**

;IMAGES TO PB CODE (Procedures for ImageButton images).
;Based on existing code from the PB Forum (can't find it anywhere).
;Many thanks to the original developer.

;Creates a .pb or .pbi file of Procedures that draw small images onto Image Buttons.

;This is better than including the images as data (because it always works).
;It's also good if you need to change button images dynamically at runtime.
;Note, it can produce code describing 'giant' images but it is very very slow for that.
;This method is very fast for typical button images. Yay.
;The Procedure and the Button take the name of the image file.
;Simply Xinclude the Procedures file produced.
;Add the Procedure calls after the buttons have been included in the list of gadgets.
;Unfortunately Menus/Toolbars can't use this method since they need a .ico file. 
 
;Cross Platform, but only tested on Windows.

;Please don't ask me to change it! You can DIY!

Enumeration
#FileOut
#ImageIn
EndEnumeration

UseJPEGImageDecoder()
UseTGAImageDecoder()
UsePNGImageDecoder()
UseTIFFImageDecoder()

Procedure ErrorMsg(message.s) : MessageRequester("ERROR",message) : EndProcedure

Structure dots
x.s
y.s
R.s
G.s
B.s
EndStructure

Procedure MakeCode()
;-------------------
Protected    iFirstImage.i = #True
Protected           sExt.s = ".pbi"
Protected     sImageFile.s = "C:\"
Protected           sPat.s = "PNG|*.png|JPEG|*.jpg;*.jpeg|BMP|*.bmp|TIFF|*.tif|TGA|*.tga"
Protected  sPbFileToSave.s = SaveFileRequester("Save as New .pb or .pbi file","C:\","*.pb|*.pb|*.pbi|*.pbi",1)
Protected         iIndex.i = SelectedFilePattern()

           Select iIndex

                     Case 0: sExt = ".pb"
                     Case 1: sExt = ".pbi"
           EndSelect

                       sPbFileToSave = sPbFileToSave + sExt

If CreateFile(#FileOut,sPbFileToSave)

       MakeAnother:
       NewList Dot.dots()

       If(iFirstImage = #True)

               sImageFile = OpenFileRequester("Select an image file to convert to PB code",GetPathPart(sPbFileToSave),sPat,0)
              iFirstImage = #False
       Else
               sImageFile = OpenFileRequester("Select an image file [Last image processed: " + GetFilePart(sImageFile) + "]",GetPathPart(sImageFile),sPat,0)
       EndIf

       If sImageFile <> ""

              If LoadImage(#ImageIn,sImageFile)

                      StartDrawing(ImageOutput(#ImageIn)) ;We do not actually draw anything

                      For x = 0 To (ImageWidth(#ImageIn) - 1)

                           For y = 0 To (ImageHeight(#ImageIn) - 1)

                                   AddElement(Dot())

                                   iColour = Point(x,y)
                                      iRed = Red(iColour)
                                    iGreen = Green(iColour)
                                     iBlue = Blue(iColour)

                                                      Dot()\R = RSet(Str(iRed), 3, "0")
                                                      Dot()\G = RSet(Str(iGreen), 3, "0")
                                                      Dot()\B = RSet(Str(iBlue), 3, "0")
                                                      Dot()\x = RSet(Str(x), 4, "0")
                                                      Dot()\y = RSet(Str(y), 4, "0")
                           Next y

                      Next x

                      StopDrawing()

                       sImageFileName.s = GetFilePart(sImageFile)
                       sProcedureName.s = Left(sImageFileName,(Len(sImageFileName)-4))
                      sProcedureTitle.s = "Procedure DrawBtn" + sProcedureName + "()"
                       sProcUnderline.s = Space(Len(sProcedureTitle) - 1)

                      ReplaceString(sProcUnderline," ","-",#PB_String_InPlace,1)

                       WriteStringN(#FileOut,sProcedureTitle)
                       WriteStringN(#FileOut,";" + sProcUnderline)
                       WriteStringN(#FileOut,"")
                       WriteStringN(#FileOut,"Protected iImage.i = CreateImage(#PB_Any," + Str(ImageWidth(#ImageIn)) + Chr(44) + Str(ImageHeight(#ImageIn)) + ",24)")
                       WriteStringN(#FileOut,"")
                       WriteStringN(#FileOut,"    If StartDrawing(ImageOutput(iImage))")
                       WriteStringN(#FileOut,"")
                       WriteStringN(#FileOut,"          DrawingMode(#PB_2DDrawing_Default)")
                       WriteStringN(#FileOut,"")

                                    iCnt.i = 1
                                iLastDot.i = (ListSize(Dot()) - 1)
                                 iDotCnt.i = -1

                      ForEach Dot()

                              iDotCnt + 1

                              If( (iDotCnt = iLastDot) And (iCnt < 4) )

                                        WriteString(#FileOut,"Plot(" + Dot()\x + Chr(44) + Dot()\y + Chr(44) + "RGB(" + Dot()\R + Chr(44) + Dot()\G + Chr(44) + Dot()\B + "))")
                              Else
                                        Select iCnt

                                                   Case 1 :  WriteString(#FileOut,"          Plot(" + Dot()\x + Chr(44) + Dot()\y + Chr(44) + "RGB(" + Dot()\R + Chr(44) + Dot()\G + Chr(44) + Dot()\B + "))" + Chr(32) + Chr(58) + Chr(32))
                                                   Case 2 :  WriteString(#FileOut,"Plot(" + Dot()\x + Chr(44) + Dot()\y + Chr(44) + "RGB(" + Dot()\R + Chr(44) + Dot()\G + Chr(44) + Dot()\B + "))" + Chr(32) + Chr(58) + Chr(32))
                                                   Case 3 :  WriteString(#FileOut,"Plot(" + Dot()\x + Chr(44) + Dot()\y + Chr(44) + "RGB(" + Dot()\R + Chr(44) + Dot()\G + Chr(44) + Dot()\B + "))" + Chr(32) + Chr(58) + Chr(32))
                                                   Case 4 : WriteStringN(#FileOut,"Plot(" + Dot()\x + Chr(44) + Dot()\y + Chr(44) + "RGB(" + Dot()\R + Chr(44) + Dot()\G + Chr(44) + Dot()\B + "))")
                                        EndSelect
                              EndIf

                                 iCnt + 1
                              If(iCnt > 4) : iCnt = 1 : EndIf
                      Next

                      WriteStringN(#FileOut,"")
                      WriteStringN(#FileOut,"          StopDrawing()")
                      WriteStringN(#FileOut,"          SetGadgetAttribute(#Btn" + sProcedureName + ",#PB_Button_Image,ImageID(iImage))")
                      WriteStringN(#FileOut,"    EndIf")
                      WriteStringN(#FileOut,"")
                      WriteStringN(#FileOut,"EndProcedure")
                      WriteStringN(#FileOut,"")

                      FreeList(Dot.dots())

                         iMakeAnother.i = MessageRequester("DONE!","Process another image?",#PB_MessageRequester_YesNo|#MB_ICONQUESTION)
                      If(iMakeAnother = #PB_MessageRequester_Yes)

                               Goto MakeAnother
                      Else
                                      CloseFile(#FileOut)
                               MessageRequester("FINISHED","File:" + #CRLF$  + #CRLF$ + sPbFileToSave  + #CRLF$  + #CRLF$ + "SAVED")
                      EndIf
              Else
                      ErrorMsg("Could not load image: " + sImageFile)
              EndIf
       EndIf
Else
       ErrorMsg("Could not create file: " + sPbFileToSave)
EndIf

EndProcedure

;###########
MakeCode()
;###########
End

Posted: **Tue Jul 10, 2012 5:49 pm**

Very interesting.

Many thanks for sharing with us

Posted: **Fri Jul 27, 2012 1:08 am**

Hello,

I'm sorry but this ugly section :

Code: Select all

Dot()\R = Str(iRed) 
If(iRed < 100)   : Dot()\R = "0" + Str(iRed)  : EndIf 
If(iRed < 10)    : Dot()\R = "00" + Str(iRed) : EndIf 

Dot()\G = Str(iGreen) 
If(iGreen < 100) : Dot()\G = "0" + Str(iGreen)  : EndIf 
If(iGreen < 10)  : Dot()\G = "00" + Str(iGreen) : EndIf 

Dot()\B = Str(iBlue) 
If(iBlue < 100)  : Dot()\B = "0" + Str(iBlue)  : EndIf 
If(iBlue < 10)   : Dot()\B = "00" + Str(iBlue) : EndIf 

Dot()\x = Str(x) 
If(x < 1000)     : Dot()\x = "0" + Str(x)   : EndIf 
If(x < 100)      : Dot()\x = "00" + Str(x)  : EndIf 
If(x < 10)       : Dot()\x = "000" + Str(x) : EndIf 

Dot()\y = Str(y) 
If(y < 1000)     : Dot()\y = "0" + Str(y)   : EndIf 
If(y < 100)      : Dot()\y = "00" + Str(y)  : EndIf 
If(y < 10)       : Dot()\y = "000" + Str(y) : EndIf

Can be replaced by :

Code: Select all

Dot()\R = RSet(Str(iRed), 3, "0")
Dot()\G = RSet(Str(iGreen), 3, "0")
Dot()\B = RSet(Str(iBlue), 3, "0")
Dot()\x = RSet(Str(x), 4, "0")
Dot()\y = RSet(Str(y), 4, "0")

Best regards
Guimauve

Posted: **Fri Jul 27, 2012 2:50 am**

I'm sorry but this ugly section

I don't think any kind of apology is required for improving poor code

Posted: **Fri Jul 27, 2012 5:32 am**

Code: Select all

Procedure DrawBtnpage_white_office()
;-----------------------------------

Protected iImage.i = CreateImage(#PB_Any,32,32,24)

    If StartDrawing(ImageOutput(iImage))

          DrawingMode(#PB_2DDrawing_Default)

          Plot(0000,0000,RGB(255,255,255)) : Plot(0000,0001,RGB(255,255,255)) : Plot(0000,0002,RGB(255,255,255)) : Plot(0000,0003,RGB(255,255,255))
          Plot(0000,0004,RGB(255,255,255)) : Plot(0000,0005,RGB(255,255,255)) : Plot(0000,0006,RGB(255,255,255)) : Plot(0000,0007,RGB(255,255,255))
          Plot(0000,0008,RGB(255,255,255)) : Plot(0000,0009,RGB(255,255,255)) : Plot(0000,0010,RGB(255,255,255)) : Plot(0000,0011,RGB(255,255,255))
          Plot(0000,0012,RGB(255,255,255)) : Plot(0000,0013,RGB(255,255,255)) : Plot(0000,0014,RGB(255,255,255)) : Plot(0000,0015,RGB(255,255,255))
          Plot(0000,0016,RGB(255,255,255)) : Plot(0000,0017,RGB(255,255,255)) : Plot(0000,0018,RGB(255,255,255)) : Plot(0000,0019,RGB(255,255,255))
          Plot(0000,0020,RGB(255,255,255)) : Plot(0000,0021,RGB(255,255,255)) : Plot(0000,0022,RGB(255,255,255)) : Plot(0000,0023,RGB(255,255,255))
          Plot(0000,0024,RGB(255,255,255)) : Plot(0000,0025,RGB(255,255,255)) : Plot(0000,0026,RGB(255,255,255)) : Plot(0000,0027,RGB(255,255,255))
          Plot(0000,0028,RGB(255,255,255)) : Plot(0000,0029,RGB(255,255,255)) : Plot(0000,0030,RGB(255,255,255)) : Plot(0000,0031,RGB(255,255,255))
          Plot(0001,0000,RGB(000,000,000)) : Plot(0001,0001,RGB(000,000,000)) : Plot(0001,0002,RGB(000,000,000)) : Plot(0001,0003,RGB(000,000,000))
          Plot(0001,0004,RGB(000,000,000)) : Plot(0001,0005,RGB(000,000,000)) : Plot(0001,0006,RGB(000,000,000)) : Plot(0001,0007,RGB(000,000,000))
          Plot(0001,0008,RGB(000,000,000)) : Plot(0001,0009,RGB(000,000,000)) : Plot(0001,0010,RGB(000,000,000)) : Plot(0001,0011,RGB(000,000,000))
          Plot(0001,0012,RGB(000,000,000)) : Plot(0001,0013,RGB(000,000,000)) : Plot(0001,0014,RGB(000,000,000)) : Plot(0001,0015,RGB(000,000,000))
          Plot(0001,0016,RGB(000,000,000)) : Plot(0001,0017,RGB(000,000,000)) : Plot(0001,0018,RGB(000,000,000)) : Plot(0001,0019,RGB(000,000,000))
          Plot(0001,0020,RGB(000,000,000)) : Plot(0001,0021,RGB(000,000,000)) : Plot(0001,0022,RGB(000,000,000)) : Plot(0001,0023,RGB(000,000,000))
          Plot(0001,0024,RGB(000,000,000)) : Plot(0001,0025,RGB(000,000,000)) : Plot(0001,0026,RGB(000,000,000)) : Plot(0001,0027,RGB(000,000,000))
          Plot(0001,0028,RGB(000,000,000)) : Plot(0001,0029,RGB(000,000,000)) : Plot(0001,0030,RGB(000,000,000)) : Plot(0001,0031,RGB(000,000,000))
          Plot(0002,0000,RGB(173,175,175)) : Plot(0002,0001,RGB(173,175,175)) : Plot(0002,0002,RGB(172,174,174)) : Plot(0002,0003,RGB(171,174,174))
          Plot(0002,0004,RGB(171,174,174)) : Plot(0002,0005,RGB(171,174,174)) : Plot(0002,0006,RGB(171,174,174)) : Plot(0002,0007,RGB(171,173,173))
          Plot(0002,0008,RGB(171,173,173)) : Plot(0002,0009,RGB(171,173,173)) : Plot(0002,0010,RGB(171,173,173)) : Plot(0002,0011,RGB(171,173,173))
          Plot(0002,0012,RGB(171,173,173)) : Plot(0002,0013,RGB(171,173,173)) : Plot(0002,0014,RGB(171,173,173)) : Plot(0002,0015,RGB(171,173,173))
          Plot(0002,0016,RGB(171,173,173)) : Plot(0002,0017,RGB(171,173,173)) : Plot(0002,0018,RGB(171,173,173)) : Plot(0002,0019,RGB(171,173,173))
          Plot(0002,0020,RGB(171,173,173)) : Plot(0002,0021,RGB(171,173,173)) : Plot(0002,0022,RGB(171,173,173)) : Plot(0002,0023,RGB(171,173,173))
          Plot(0002,0024,RGB(171,173,173)) : Plot(0002,0025,RGB(171,174,174)) : Plot(0002,0026,RGB(173,176,176)) : Plot(0002,0027,RGB(174,175,175))
          Plot(0002,0028,RGB(000,000,000)) : Plot(0002,0029,RGB(000,000,000)) : Plot(0002,0030,RGB(000,000,000)) : Plot(0002,0031,RGB(000,000,000))
          Plot(0003,0000,RGB(173,176,176)) : Plot(0003,0001,RGB(255,255,255)) : Plot(0003,0002,RGB(255,255,255)) : Plot(0003,0003,RGB(255,255,255))
          Plot(0003,0004,RGB(255,255,255)) : Plot(0003,0005,RGB(255,255,255)) : Plot(0003,0006,RGB(255,255,255)) : Plot(0003,0007,RGB(255,255,255))
          Plot(0003,0008,RGB(255,255,255)) : Plot(0003,0009,RGB(255,255,255)) : Plot(0003,0010,RGB(255,255,255)) : Plot(0003,0011,RGB(255,255,255))
          Plot(0003,0012,RGB(255,255,255)) : Plot(0003,0013,RGB(255,255,255)) : Plot(0003,0014,RGB(255,255,255)) : Plot(0003,0015,RGB(255,255,255))
          Plot(0003,0016,RGB(255,255,255)) : Plot(0003,0017,RGB(255,255,255)) : Plot(0003,0018,RGB(255,255,255)) : Plot(0003,0019,RGB(255,255,255))
          Plot(0003,0020,RGB(255,255,255)) : Plot(0003,0021,RGB(255,255,255)) : Plot(0003,0022,RGB(255,255,255)) : Plot(0003,0023,RGB(255,255,255))
          Plot(0003,0024,RGB(255,255,255)) : Plot(0003,0025,RGB(255,255,255)) : Plot(0003,0026,RGB(255,255,255)) : Plot(0003,0027,RGB(173,175,175))
          Plot(0003,0028,RGB(000,000,000)) : Plot(0003,0029,RGB(000,000,000)) : Plot(0003,0030,RGB(000,000,000)) : Plot(0003,0031,RGB(000,000,000))
          Plot(0004,0000,RGB(172,174,174)) : Plot(0004,0001,RGB(255,255,255)) : Plot(0004,0002,RGB(222,223,224)) : Plot(0004,0003,RGB(224,225,226))
          Plot(0004,0004,RGB(225,226,227)) : Plot(0004,0005,RGB(226,227,228)) : Plot(0004,0006,RGB(229,230,230)) : Plot(0004,0007,RGB(230,231,231))
          Plot(0004,0008,RGB(231,232,233)) : Plot(0004,0009,RGB(232,233,234)) : Plot(0004,0010,RGB(234,234,235)) : Plot(0004,0011,RGB(235,235,236))
          Plot(0004,0012,RGB(236,238,237)) : Plot(0004,0013,RGB(238,239,238)) : Plot(0004,0014,RGB(239,240,241)) : Plot(0004,0015,RGB(241,241,242))
          Plot(0004,0016,RGB(242,242,243)) : Plot(0004,0017,RGB(243,244,244)) : Plot(0004,0018,RGB(244,245,245)) : Plot(0004,0019,RGB(246,246,246))
          Plot(0004,0020,RGB(247,247,249)) : Plot(0004,0021,RGB(248,248,250)) : Plot(0004,0022,RGB(249,251,251)) : Plot(0004,0023,RGB(252,252,252))
          Plot(0004,0024,RGB(253,253,253)) : Plot(0004,0025,RGB(255,255,255)) : Plot(0004,0026,RGB(255,255,255)) : Plot(0004,0027,RGB(171,174,174))
          Plot(0004,0028,RGB(000,000,000)) : Plot(0004,0029,RGB(000,000,000)) : Plot(0004,0030,RGB(000,000,000)) : Plot(0004,0031,RGB(000,000,000))
          Plot(0005,0000,RGB(171,174,174)) : Plot(0005,0001,RGB(255,255,255)) : Plot(0005,0002,RGB(223,224,225)) : Plot(0005,0003,RGB(225,226,227))
          Plot(0005,0004,RGB(227,228,229)) : Plot(0005,0005,RGB(228,229,230)) : Plot(0005,0006,RGB(230,231,231)) : Plot(0005,0007,RGB(231,232,232))
          Plot(0005,0008,RGB(232,233,234)) : Plot(0005,0009,RGB(233,234,235)) : Plot(0005,0010,RGB(235,235,236)) : Plot(0005,0011,RGB(236,236,237))
          Plot(0005,0012,RGB(237,238,238)) : Plot(0005,0013,RGB(238,239,239)) : Plot(0005,0014,RGB(239,240,241)) : Plot(0005,0015,RGB(241,241,242))
          Plot(0005,0016,RGB(242,242,243)) : Plot(0005,0017,RGB(243,244,244)) : Plot(0005,0018,RGB(244,245,245)) : Plot(0005,0019,RGB(246,246,246))
          Plot(0005,0020,RGB(247,247,248)) : Plot(0005,0021,RGB(248,248,249)) : Plot(0005,0022,RGB(249,250,250)) : Plot(0005,0023,RGB(251,251,251))
          Plot(0005,0024,RGB(252,252,252)) : Plot(0005,0025,RGB(254,254,254)) : Plot(0005,0026,RGB(255,255,255)) : Plot(0005,0027,RGB(171,173,173))
          Plot(0005,0028,RGB(000,000,000)) : Plot(0005,0029,RGB(000,000,000)) : Plot(0005,0030,RGB(000,000,000)) : Plot(0005,0031,RGB(000,000,000))
          Plot(0006,0000,RGB(171,174,174)) : Plot(0006,0001,RGB(255,255,255)) : Plot(0006,0002,RGB(223,224,225)) : Plot(0006,0003,RGB(226,227,228))
          Plot(0006,0004,RGB(227,228,229)) : Plot(0006,0005,RGB(228,229,230)) : Plot(0006,0006,RGB(230,231,231)) : Plot(0006,0007,RGB(231,232,232))
          Plot(0006,0008,RGB(232,233,234)) : Plot(0006,0009,RGB(233,234,235)) : Plot(0006,0010,RGB(235,235,236)) : Plot(0006,0011,RGB(236,236,237))
          Plot(0006,0012,RGB(237,238,238)) : Plot(0006,0013,RGB(238,239,239)) : Plot(0006,0014,RGB(239,240,241)) : Plot(0006,0015,RGB(241,241,242))
          Plot(0006,0016,RGB(242,242,243)) : Plot(0006,0017,RGB(243,244,244)) : Plot(0006,0018,RGB(244,245,245)) : Plot(0006,0019,RGB(246,246,246))
          Plot(0006,0020,RGB(247,247,248)) : Plot(0006,0021,RGB(248,248,249)) : Plot(0006,0022,RGB(249,250,250)) : Plot(0006,0023,RGB(251,251,251))
          Plot(0006,0024,RGB(252,252,252)) : Plot(0006,0025,RGB(254,254,254)) : Plot(0006,0026,RGB(255,255,255)) : Plot(0006,0027,RGB(171,173,173))
          Plot(0006,0028,RGB(000,000,000)) : Plot(0006,0029,RGB(000,000,000)) : Plot(0006,0030,RGB(000,000,000)) : Plot(0006,0031,RGB(000,000,000))
          Plot(0007,0000,RGB(171,174,174)) : Plot(0007,0001,RGB(255,255,255)) : Plot(0007,0002,RGB(223,224,225)) : Plot(0007,0003,RGB(226,227,228))
          Plot(0007,0004,RGB(227,228,229)) : Plot(0007,0005,RGB(228,229,230)) : Plot(0007,0006,RGB(230,231,231)) : Plot(0007,0007,RGB(231,232,232))
          Plot(0007,0008,RGB(232,233,234)) : Plot(0007,0009,RGB(233,234,235)) : Plot(0007,0010,RGB(235,235,236)) : Plot(0007,0011,RGB(236,236,237))
          Plot(0007,0012,RGB(237,238,238)) : Plot(0007,0013,RGB(238,239,239)) : Plot(0007,0014,RGB(239,240,241)) : Plot(0007,0015,RGB(241,241,242))
          Plot(0007,0016,RGB(242,242,243)) : Plot(0007,0017,RGB(243,244,244)) : Plot(0007,0018,RGB(244,245,245)) : Plot(0007,0019,RGB(246,246,246))
          Plot(0007,0020,RGB(247,247,248)) : Plot(0007,0021,RGB(248,248,249)) : Plot(0007,0022,RGB(249,250,250)) : Plot(0007,0023,RGB(251,251,251))
          Plot(0007,0024,RGB(252,252,252)) : Plot(0007,0025,RGB(254,254,254)) : Plot(0007,0026,RGB(255,255,255)) : Plot(0007,0027,RGB(171,173,173))
          Plot(0007,0028,RGB(000,000,000)) : Plot(0007,0029,RGB(000,000,000)) : Plot(0007,0030,RGB(000,000,000)) : Plot(0007,0031,RGB(000,000,000))
          Plot(0008,0000,RGB(171,174,174)) : Plot(0008,0001,RGB(255,255,255)) : Plot(0008,0002,RGB(223,224,225)) : Plot(0008,0003,RGB(226,227,228))
          Plot(0008,0004,RGB(227,228,229)) : Plot(0008,0005,RGB(228,229,230)) : Plot(0008,0006,RGB(230,231,231)) : Plot(0008,0007,RGB(231,232,232))
          Plot(0008,0008,RGB(232,233,234)) : Plot(0008,0009,RGB(233,234,235)) : Plot(0008,0010,RGB(235,235,236)) : Plot(0008,0011,RGB(236,236,237))
          Plot(0008,0012,RGB(237,238,238)) : Plot(0008,0013,RGB(238,239,239)) : Plot(0008,0014,RGB(239,240,241)) : Plot(0008,0015,RGB(241,241,242))
          Plot(0008,0016,RGB(242,242,243)) : Plot(0008,0017,RGB(243,244,244)) : Plot(0008,0018,RGB(244,245,245)) : Plot(0008,0019,RGB(246,246,246))
          Plot(0008,0020,RGB(247,247,248)) : Plot(0008,0021,RGB(248,248,249)) : Plot(0008,0022,RGB(249,250,250)) : Plot(0008,0023,RGB(251,251,251))
          Plot(0008,0024,RGB(252,252,252)) : Plot(0008,0025,RGB(254,254,254)) : Plot(0008,0026,RGB(255,255,255)) : Plot(0008,0027,RGB(171,173,173))
          Plot(0008,0028,RGB(000,000,000)) : Plot(0008,0029,RGB(000,000,000)) : Plot(0008,0030,RGB(000,000,000)) : Plot(0008,0031,RGB(000,000,000))
          Plot(0009,0000,RGB(171,174,174)) : Plot(0009,0001,RGB(255,255,255)) : Plot(0009,0002,RGB(223,224,225)) : Plot(0009,0003,RGB(226,227,228))
          Plot(0009,0004,RGB(227,228,229)) : Plot(0009,0005,RGB(228,229,230)) : Plot(0009,0006,RGB(230,231,231)) : Plot(0009,0007,RGB(231,232,232))
          Plot(0009,0008,RGB(232,233,234)) : Plot(0009,0009,RGB(233,234,235)) : Plot(0009,0010,RGB(235,235,236)) : Plot(0009,0011,RGB(236,236,237))
          Plot(0009,0012,RGB(237,238,238)) : Plot(0009,0013,RGB(238,239,239)) : Plot(0009,0014,RGB(239,240,241)) : Plot(0009,0015,RGB(241,241,242))
          Plot(0009,0016,RGB(242,242,243)) : Plot(0009,0017,RGB(243,244,244)) : Plot(0009,0018,RGB(244,245,245)) : Plot(0009,0019,RGB(246,246,246))
          Plot(0009,0020,RGB(247,247,248)) : Plot(0009,0021,RGB(248,248,249)) : Plot(0009,0022,RGB(249,250,250)) : Plot(0009,0023,RGB(251,251,251))
          Plot(0009,0024,RGB(252,252,252)) : Plot(0009,0025,RGB(254,254,254)) : Plot(0009,0026,RGB(255,255,255)) : Plot(0009,0027,RGB(171,173,173))
          Plot(0009,0028,RGB(000,000,000)) : Plot(0009,0029,RGB(000,000,000)) : Plot(0009,0030,RGB(000,000,000)) : Plot(0009,0031,RGB(000,000,000))
          Plot(0010,0000,RGB(171,174,174)) : Plot(0010,0001,RGB(255,255,255)) : Plot(0010,0002,RGB(223,224,225)) : Plot(0010,0003,RGB(226,227,228))
          Plot(0010,0004,RGB(227,228,229)) : Plot(0010,0005,RGB(228,229,230)) : Plot(0010,0006,RGB(230,231,231)) : Plot(0010,0007,RGB(231,232,232))
          Plot(0010,0008,RGB(232,233,234)) : Plot(0010,0009,RGB(233,234,235)) : Plot(0010,0010,RGB(235,235,236)) : Plot(0010,0011,RGB(236,236,237))
          Plot(0010,0012,RGB(237,238,238)) : Plot(0010,0013,RGB(238,239,239)) : Plot(0010,0014,RGB(239,240,241)) : Plot(0010,0015,RGB(241,241,242))
          Plot(0010,0016,RGB(242,242,243)) : Plot(0010,0017,RGB(243,244,244)) : Plot(0010,0018,RGB(244,245,245)) : Plot(0010,0019,RGB(246,246,246))
          Plot(0010,0020,RGB(247,247,248)) : Plot(0010,0021,RGB(248,248,249)) : Plot(0010,0022,RGB(249,250,250)) : Plot(0010,0023,RGB(251,251,251))
          Plot(0010,0024,RGB(252,252,252)) : Plot(0010,0025,RGB(254,254,254)) : Plot(0010,0026,RGB(255,255,255)) : Plot(0010,0027,RGB(171,173,173))
          Plot(0010,0028,RGB(000,000,000)) : Plot(0010,0029,RGB(000,000,000)) : Plot(0010,0030,RGB(000,000,000)) : Plot(0010,0031,RGB(000,000,000))
          Plot(0011,0000,RGB(171,174,174)) : Plot(0011,0001,RGB(255,255,255)) : Plot(0011,0002,RGB(223,224,225)) : Plot(0011,0003,RGB(226,227,228))
          Plot(0011,0004,RGB(227,228,229)) : Plot(0011,0005,RGB(228,229,230)) : Plot(0011,0006,RGB(230,231,231)) : Plot(0011,0007,RGB(231,232,232))
          Plot(0011,0008,RGB(232,233,234)) : Plot(0011,0009,RGB(233,234,235)) : Plot(0011,0010,RGB(235,235,236)) : Plot(0011,0011,RGB(236,236,237))
          Plot(0011,0012,RGB(237,238,238)) : Plot(0011,0013,RGB(238,239,239)) : Plot(0011,0014,RGB(239,240,241)) : Plot(0011,0015,RGB(241,241,242))
          Plot(0011,0016,RGB(242,242,243)) : Plot(0011,0017,RGB(243,244,244)) : Plot(0011,0018,RGB(244,245,245)) : Plot(0011,0019,RGB(246,246,246))
          Plot(0011,0020,RGB(247,247,248)) : Plot(0011,0021,RGB(248,248,249)) : Plot(0011,0022,RGB(249,250,250)) : Plot(0011,0023,RGB(251,251,251))
          Plot(0011,0024,RGB(252,252,252)) : Plot(0011,0025,RGB(254,254,254)) : Plot(0011,0026,RGB(255,255,255)) : Plot(0011,0027,RGB(171,173,173))
          Plot(0011,0028,RGB(000,000,000)) : Plot(0011,0029,RGB(000,000,000)) : Plot(0011,0030,RGB(000,000,000)) : Plot(0011,0031,RGB(000,000,000))
          Plot(0012,0000,RGB(171,174,174)) : Plot(0012,0001,RGB(255,255,255)) : Plot(0012,0002,RGB(223,224,225)) : Plot(0012,0003,RGB(226,227,228))
          Plot(0012,0004,RGB(227,228,229)) : Plot(0012,0005,RGB(228,229,230)) : Plot(0012,0006,RGB(230,231,231)) : Plot(0012,0007,RGB(231,232,232))
          Plot(0012,0008,RGB(232,233,234)) : Plot(0012,0009,RGB(233,234,235)) : Plot(0012,0010,RGB(235,235,236)) : Plot(0012,0011,RGB(236,236,238))
          Plot(0012,0012,RGB(237,240,240)) : Plot(0012,0013,RGB(239,242,242)) : Plot(0012,0014,RGB(239,243,244)) : Plot(0012,0015,RGB(242,244,245))
          Plot(0012,0016,RGB(242,244,246)) : Plot(0012,0017,RGB(243,247,247)) : Plot(0012,0018,RGB(244,247,248)) : Plot(0012,0019,RGB(246,248,249))
          Plot(0012,0020,RGB(247,248,250)) : Plot(0012,0021,RGB(248,248,250)) : Plot(0012,0022,RGB(249,250,250)) : Plot(0012,0023,RGB(251,251,251))
          Plot(0012,0024,RGB(252,252,252)) : Plot(0012,0025,RGB(254,254,254)) : Plot(0012,0026,RGB(255,255,255)) : Plot(0012,0027,RGB(171,173,173))
          Plot(0012,0028,RGB(000,000,000)) : Plot(0012,0029,RGB(000,000,000)) : Plot(0012,0030,RGB(000,000,000)) : Plot(0012,0031,RGB(000,000,000))
          Plot(0013,0000,RGB(171,174,174)) : Plot(0013,0001,RGB(255,255,255)) : Plot(0013,0002,RGB(223,224,225)) : Plot(0013,0003,RGB(226,227,228))
          Plot(0013,0004,RGB(227,228,229)) : Plot(0013,0005,RGB(228,229,230)) : Plot(0013,0006,RGB(230,231,231)) : Plot(0013,0007,RGB(231,232,232))
          Plot(0013,0008,RGB(232,233,234)) : Plot(0013,0009,RGB(233,234,235)) : Plot(0013,0010,RGB(235,236,237)) : Plot(0013,0011,RGB(237,240,241))
          Plot(0013,0012,RGB(240,250,250)) : Plot(0013,0013,RGB(242,255,255)) : Plot(0013,0014,RGB(243,255,255)) : Plot(0013,0015,RGB(244,255,255))
          Plot(0013,0016,RGB(245,255,255)) : Plot(0013,0017,RGB(245,255,255)) : Plot(0013,0018,RGB(245,255,255)) : Plot(0013,0019,RGB(247,255,255))
          Plot(0013,0020,RGB(247,254,255)) : Plot(0013,0021,RGB(248,250,254)) : Plot(0013,0022,RGB(249,251,253)) : Plot(0013,0023,RGB(251,252,254))
          Plot(0013,0024,RGB(252,253,255)) : Plot(0013,0025,RGB(254,255,255)) : Plot(0013,0026,RGB(255,255,255)) : Plot(0013,0027,RGB(171,174,176))
          Plot(0013,0028,RGB(000,000,000)) : Plot(0013,0029,RGB(000,000,000)) : Plot(0013,0030,RGB(000,000,000)) : Plot(0013,0031,RGB(000,000,000))
          Plot(0014,0000,RGB(171,174,174)) : Plot(0014,0001,RGB(255,255,255)) : Plot(0014,0002,RGB(223,224,225)) : Plot(0014,0003,RGB(226,227,228))
          Plot(0014,0004,RGB(227,228,229)) : Plot(0014,0005,RGB(228,229,230)) : Plot(0014,0006,RGB(230,231,231)) : Plot(0014,0007,RGB(231,232,232))
          Plot(0014,0008,RGB(232,233,234)) : Plot(0014,0009,RGB(233,234,235)) : Plot(0014,0010,RGB(235,237,238)) : Plot(0014,0011,RGB(239,247,249))
          Plot(0014,0012,RGB(203,101,105)) : Plot(0014,0013,RGB(188,026,021)) : Plot(0014,0014,RGB(197,043,027)) : Plot(0014,0015,RGB(206,056,029))
          Plot(0014,0016,RGB(213,069,032)) : Plot(0014,0017,RGB(221,083,035)) : Plot(0014,0018,RGB(229,096,037)) : Plot(0014,0019,RGB(235,106,032))
          Plot(0014,0020,RGB(242,171,111)) : Plot(0014,0021,RGB(248,255,255)) : Plot(0014,0022,RGB(249,254,255)) : Plot(0014,0023,RGB(251,255,255))
          Plot(0014,0024,RGB(253,255,255)) : Plot(0014,0025,RGB(255,255,255)) : Plot(0014,0026,RGB(255,255,255)) : Plot(0014,0027,RGB(167,176,192))
          Plot(0014,0028,RGB(000,000,000)) : Plot(0014,0029,RGB(000,000,000)) : Plot(0014,0030,RGB(000,000,000)) : Plot(0014,0031,RGB(000,000,000))
          Plot(0015,0000,RGB(171,174,174)) : Plot(0015,0001,RGB(255,255,255)) : Plot(0015,0002,RGB(223,224,225)) : Plot(0015,0003,RGB(225,226,227))
          Plot(0015,0004,RGB(227,228,229)) : Plot(0015,0005,RGB(228,229,230)) : Plot(0015,0006,RGB(230,231,231)) : Plot(0015,0007,RGB(231,232,232))
          Plot(0015,0008,RGB(232,233,234)) : Plot(0015,0009,RGB(233,234,235)) : Plot(0015,0010,RGB(236,238,239)) : Plot(0015,0011,RGB(240,253,254))
          Plot(0015,0012,RGB(188,026,022)) : Plot(0015,0013,RGB(199,053,037)) : Plot(0015,0014,RGB(207,063,035)) : Plot(0015,0015,RGB(215,072,032))
          Plot(0015,0016,RGB(222,084,035)) : Plot(0015,0017,RGB(230,097,038)) : Plot(0015,0018,RGB(236,113,040)) : Plot(0015,0019,RGB(238,129,037))
          Plot(0015,0020,RGB(239,134,016)) : Plot(0015,0021,RGB(249,255,255)) : Plot(0015,0022,RGB(248,217,088)) : Plot(0015,0023,RGB(247,192,000))
          Plot(0015,0024,RGB(244,185,000)) : Plot(0015,0025,RGB(240,174,000)) : Plot(0015,0026,RGB(241,167,000)) : Plot(0015,0027,RGB(243,165,000))
          Plot(0015,0028,RGB(242,162,002)) : Plot(0015,0029,RGB(214,142,004)) : Plot(0015,0030,RGB(000,000,000)) : Plot(0015,0031,RGB(000,000,000))
          Plot(0016,0000,RGB(171,174,173)) : Plot(0016,0001,RGB(255,255,255)) : Plot(0016,0002,RGB(222,223,224)) : Plot(0016,0003,RGB(224,225,226))
          Plot(0016,0004,RGB(225,226,227)) : Plot(0016,0005,RGB(226,227,228)) : Plot(0016,0006,RGB(228,230,229)) : Plot(0016,0007,RGB(229,231,230))
          Plot(0016,0008,RGB(231,232,233)) : Plot(0016,0009,RGB(233,234,235)) : Plot(0016,0010,RGB(236,238,239)) : Plot(0016,0011,RGB(239,254,255))
          Plot(0016,0012,RGB(197,042,027)) : Plot(0016,0013,RGB(207,062,035)) : Plot(0016,0014,RGB(244,255,255)) : Plot(0016,0015,RGB(244,255,255))
          Plot(0016,0016,RGB(244,255,255)) : Plot(0016,0017,RGB(245,255,255)) : Plot(0016,0018,RGB(245,255,255)) : Plot(0016,0019,RGB(236,114,042))
          Plot(0016,0020,RGB(240,149,014)) : Plot(0016,0021,RGB(249,255,255)) : Plot(0016,0022,RGB(247,200,013)) : Plot(0016,0023,RGB(247,195,000))
          Plot(0016,0024,RGB(248,211,056)) : Plot(0016,0025,RGB(247,204,052)) : Plot(0016,0026,RGB(247,200,059)) : Plot(0016,0027,RGB(222,174,049))
          Plot(0016,0028,RGB(241,168,010)) : Plot(0016,0029,RGB(237,165,018)) : Plot(0016,0030,RGB(000,000,000)) : Plot(0016,0031,RGB(000,000,000))
          Plot(0017,0000,RGB(171,174,174)) : Plot(0017,0001,RGB(255,255,255)) : Plot(0017,0002,RGB(255,255,255)) : Plot(0017,0003,RGB(255,255,255))
          Plot(0017,0004,RGB(255,255,255)) : Plot(0017,0005,RGB(255,255,255)) : Plot(0017,0006,RGB(255,255,255)) : Plot(0017,0007,RGB(255,255,255))
          Plot(0017,0008,RGB(243,242,244)) : Plot(0017,0009,RGB(232,233,234)) : Plot(0017,0010,RGB(235,237,239)) : Plot(0017,0011,RGB(239,253,255))
          Plot(0017,0012,RGB(205,055,029)) : Plot(0017,0013,RGB(215,071,032)) : Plot(0017,0014,RGB(242,255,255)) : Plot(0017,0015,RGB(242,246,248))
          Plot(0017,0016,RGB(242,244,246)) : Plot(0017,0017,RGB(243,248,250)) : Plot(0017,0018,RGB(244,255,255)) : Plot(0017,0019,RGB(236,114,042))
          Plot(0017,0020,RGB(242,161,005)) : Plot(0017,0021,RGB(249,255,255)) : Plot(0017,0022,RGB(247,211,075)) : Plot(0017,0023,RGB(252,200,000))
          Plot(0017,0024,RGB(253,255,255)) : Plot(0017,0025,RGB(255,255,255)) : Plot(0017,0026,RGB(255,255,255)) : Plot(0017,0027,RGB(163,176,202))
          Plot(0017,0028,RGB(244,176,000)) : Plot(0017,0029,RGB(239,170,016)) : Plot(0017,0030,RGB(000,000,000)) : Plot(0017,0031,RGB(000,000,000))
          Plot(0018,0000,RGB(173,175,175)) : Plot(0018,0001,RGB(255,255,255)) : Plot(0018,0002,RGB(163,165,165)) : Plot(0018,0003,RGB(164,167,167))
          Plot(0018,0004,RGB(165,167,167)) : Plot(0018,0005,RGB(165,167,167)) : Plot(0018,0006,RGB(164,167,167)) : Plot(0018,0007,RGB(202,203,203))
          Plot(0018,0008,RGB(255,255,255)) : Plot(0018,0009,RGB(231,233,234)) : Plot(0018,0010,RGB(235,237,239)) : Plot(0018,0011,RGB(238,252,255))
          Plot(0018,0012,RGB(213,069,032)) : Plot(0018,0013,RGB(223,084,035)) : Plot(0018,0014,RGB(241,255,255)) : Plot(0018,0015,RGB(241,243,245))
          Plot(0018,0016,RGB(242,242,243)) : Plot(0018,0017,RGB(243,246,247)) : Plot(0018,0018,RGB(244,254,255)) : Plot(0018,0019,RGB(236,114,042))
          Plot(0018,0020,RGB(240,149,004)) : Plot(0018,0021,RGB(249,255,255)) : Plot(0018,0022,RGB(247,223,152)) : Plot(0018,0023,RGB(252,200,000))
          Plot(0018,0024,RGB(252,255,255)) : Plot(0018,0025,RGB(254,255,255)) : Plot(0018,0026,RGB(255,255,255)) : Plot(0018,0027,RGB(164,173,193))
          Plot(0018,0028,RGB(247,185,000)) : Plot(0018,0029,RGB(241,176,013)) : Plot(0018,0030,RGB(000,000,000)) : Plot(0018,0031,RGB(000,000,000))
          Plot(0019,0000,RGB(170,172,172)) : Plot(0019,0001,RGB(233,233,233)) : Plot(0019,0002,RGB(255,255,255)) : Plot(0019,0003,RGB(237,238,239))
          Plot(0019,0004,RGB(245,245,246)) : Plot(0019,0005,RGB(252,252,251)) : Plot(0019,0006,RGB(255,255,255)) : Plot(0019,0007,RGB(164,167,167))
          Plot(0019,0008,RGB(255,255,255)) : Plot(0019,0009,RGB(231,233,234)) : Plot(0019,0010,RGB(235,237,239)) : Plot(0019,0011,RGB(237,250,255))
          Plot(0019,0012,RGB(222,083,035)) : Plot(0019,0013,RGB(231,098,038)) : Plot(0019,0014,RGB(240,255,255)) : Plot(0019,0015,RGB(241,244,248))
          Plot(0019,0016,RGB(242,243,246)) : Plot(0019,0017,RGB(243,247,251)) : Plot(0019,0018,RGB(244,255,255)) : Plot(0019,0019,RGB(236,114,042))
          Plot(0019,0020,RGB(238,129,007)) : Plot(0019,0021,RGB(249,255,255)) : Plot(0019,0022,RGB(247,220,135)) : Plot(0019,0023,RGB(252,200,000))
          Plot(0019,0024,RGB(252,255,255)) : Plot(0019,0025,RGB(254,255,255)) : Plot(0019,0026,RGB(255,255,255)) : Plot(0019,0027,RGB(164,172,193))
          Plot(0019,0028,RGB(251,195,000)) : Plot(0019,0029,RGB(243,184,009)) : Plot(0019,0030,RGB(000,000,000)) : Plot(0019,0031,RGB(000,000,000))
          Plot(0020,0000,RGB(000,000,000)) : Plot(0020,0001,RGB(165,167,167)) : Plot(0020,0002,RGB(231,231,231)) : Plot(0020,0003,RGB(255,255,255))
          Plot(0020,0004,RGB(233,234,235)) : Plot(0020,0005,RGB(242,242,243)) : Plot(0020,0006,RGB(252,252,251)) : Plot(0020,0007,RGB(165,167,167))
          Plot(0020,0008,RGB(255,255,255)) : Plot(0020,0009,RGB(232,233,234)) : Plot(0020,0010,RGB(235,237,239)) : Plot(0020,0011,RGB(237,249,255))
          Plot(0020,0012,RGB(230,096,038)) : Plot(0020,0013,RGB(236,114,042)) : Plot(0020,0014,RGB(239,255,255)) : Plot(0020,0015,RGB(241,251,255))
          Plot(0020,0016,RGB(242,250,255)) : Plot(0020,0017,RGB(243,255,255)) : Plot(0020,0018,RGB(245,255,255)) : Plot(0020,0019,RGB(236,114,042))
          Plot(0020,0020,RGB(235,110,008)) : Plot(0020,0021,RGB(249,255,255)) : Plot(0020,0022,RGB(247,212,085)) : Plot(0020,0023,RGB(252,200,000))
          Plot(0020,0024,RGB(253,255,255)) : Plot(0020,0025,RGB(255,255,255)) : Plot(0020,0026,RGB(255,255,255)) : Plot(0020,0027,RGB(161,172,202))
          Plot(0020,0028,RGB(252,200,000)) : Plot(0020,0029,RGB(246,194,003)) : Plot(0020,0030,RGB(000,000,000)) : Plot(0020,0031,RGB(000,000,000))
          Plot(0021,0000,RGB(000,000,000)) : Plot(0021,0001,RGB(000,000,000)) : Plot(0021,0002,RGB(164,167,167)) : Plot(0021,0003,RGB(230,230,230))
          Plot(0021,0004,RGB(255,255,255)) : Plot(0021,0005,RGB(233,234,235)) : Plot(0021,0006,RGB(245,245,246)) : Plot(0021,0007,RGB(165,167,167))
          Plot(0021,0008,RGB(255,255,255)) : Plot(0021,0009,RGB(232,233,234)) : Plot(0021,0010,RGB(235,236,238)) : Plot(0021,0011,RGB(236,247,254))
          Plot(0021,0012,RGB(236,107,034)) : Plot(0021,0013,RGB(238,128,038)) : Plot(0021,0014,RGB(236,114,042)) : Plot(0021,0015,RGB(236,114,042))
          Plot(0021,0016,RGB(236,114,042)) : Plot(0021,0017,RGB(236,114,042)) : Plot(0021,0018,RGB(236,114,042)) : Plot(0021,0019,RGB(236,114,042))
          Plot(0021,0020,RGB(234,090,007)) : Plot(0021,0021,RGB(249,255,255)) : Plot(0021,0022,RGB(247,205,034)) : Plot(0021,0023,RGB(252,200,000))
          Plot(0021,0024,RGB(252,200,000)) : Plot(0021,0025,RGB(252,200,000)) : Plot(0021,0026,RGB(252,200,000)) : Plot(0021,0027,RGB(251,205,024))
          Plot(0021,0028,RGB(250,201,003)) : Plot(0021,0029,RGB(249,199,000)) : Plot(0021,0030,RGB(000,000,000)) : Plot(0021,0031,RGB(000,000,000))
          Plot(0022,0000,RGB(000,000,000)) : Plot(0022,0001,RGB(000,000,000)) : Plot(0022,0002,RGB(000,000,000)) : Plot(0022,0003,RGB(170,173,173))
          Plot(0022,0004,RGB(230,230,230)) : Plot(0022,0005,RGB(255,255,255)) : Plot(0022,0006,RGB(237,238,239)) : Plot(0022,0007,RGB(164,167,167))
          Plot(0022,0008,RGB(255,255,255)) : Plot(0022,0009,RGB(231,232,233)) : Plot(0022,0010,RGB(234,235,237)) : Plot(0022,0011,RGB(236,242,248))
          Plot(0022,0012,RGB(237,166,108)) : Plot(0022,0013,RGB(240,134,017)) : Plot(0022,0014,RGB(241,149,012)) : Plot(0022,0015,RGB(244,160,003))
          Plot(0022,0016,RGB(242,150,002)) : Plot(0022,0017,RGB(241,130,005)) : Plot(0022,0018,RGB(238,112,007)) : Plot(0022,0019,RGB(237,091,006))
          Plot(0022,0020,RGB(239,145,103)) : Plot(0022,0021,RGB(250,255,255)) : Plot(0022,0022,RGB(250,219,097)) : Plot(0022,0023,RGB(249,202,032))
          Plot(0022,0024,RGB(249,211,081)) : Plot(0022,0025,RGB(249,219,131)) : Plot(0022,0026,RGB(250,225,157)) : Plot(0022,0027,RGB(253,216,090))
          Plot(0022,0028,RGB(254,209,031)) : Plot(0022,0029,RGB(225,180,000)) : Plot(0022,0030,RGB(000,000,000)) : Plot(0022,0031,RGB(000,000,000))
          Plot(0023,0000,RGB(000,000,000)) : Plot(0023,0001,RGB(000,000,000)) : Plot(0023,0002,RGB(000,000,000)) : Plot(0023,0003,RGB(000,000,000))
          Plot(0023,0004,RGB(169,172,172)) : Plot(0023,0005,RGB(231,231,231)) : Plot(0023,0006,RGB(255,255,255)) : Plot(0023,0007,RGB(162,165,165))
          Plot(0023,0008,RGB(255,255,255)) : Plot(0023,0009,RGB(231,232,233)) : Plot(0023,0010,RGB(234,234,236)) : Plot(0023,0011,RGB(235,238,240))
          Plot(0023,0012,RGB(236,244,249)) : Plot(0023,0013,RGB(237,247,255)) : Plot(0023,0014,RGB(239,249,255)) : Plot(0023,0015,RGB(245,250,255))
          Plot(0023,0016,RGB(253,254,255)) : Plot(0023,0017,RGB(255,255,255)) : Plot(0023,0018,RGB(255,255,255)) : Plot(0023,0019,RGB(255,255,255))
          Plot(0023,0020,RGB(255,255,255)) : Plot(0023,0021,RGB(255,255,255)) : Plot(0023,0022,RGB(255,255,255)) : Plot(0023,0023,RGB(255,255,255))
          Plot(0023,0024,RGB(255,255,255)) : Plot(0023,0025,RGB(255,255,255)) : Plot(0023,0026,RGB(255,255,255)) : Plot(0023,0027,RGB(169,173,192))
          Plot(0023,0028,RGB(000,000,000)) : Plot(0023,0029,RGB(000,000,000)) : Plot(0023,0030,RGB(000,000,000)) : Plot(0023,0031,RGB(000,000,000))
          Plot(0024,0000,RGB(000,000,000)) : Plot(0024,0001,RGB(000,000,000)) : Plot(0024,0002,RGB(000,000,000)) : Plot(0024,0003,RGB(000,000,000))
          Plot(0024,0004,RGB(000,000,000)) : Plot(0024,0005,RGB(170,173,173)) : Plot(0024,0006,RGB(233,233,233)) : Plot(0024,0007,RGB(255,255,255))
          Plot(0024,0008,RGB(255,255,255)) : Plot(0024,0009,RGB(255,255,255)) : Plot(0024,0010,RGB(255,255,255)) : Plot(0024,0011,RGB(255,255,255))
          Plot(0024,0012,RGB(255,255,255)) : Plot(0024,0013,RGB(255,255,255)) : Plot(0024,0014,RGB(255,255,255)) : Plot(0024,0015,RGB(255,255,255))
          Plot(0024,0016,RGB(114,214,252)) : Plot(0024,0017,RGB(075,198,249)) : Plot(0024,0018,RGB(107,206,249)) : Plot(0024,0019,RGB(068,176,230))
          Plot(0024,0020,RGB(115,185,229)) : Plot(0024,0021,RGB(255,255,255)) : Plot(0024,0022,RGB(091,204,134)) : Plot(0024,0023,RGB(016,175,062))
          Plot(0024,0024,RGB(069,186,076)) : Plot(0024,0025,RGB(119,198,088)) : Plot(0024,0026,RGB(164,211,099)) : Plot(0024,0027,RGB(173,198,130))
          Plot(0024,0028,RGB(000,000,000)) : Plot(0024,0029,RGB(000,000,000)) : Plot(0024,0030,RGB(000,000,000)) : Plot(0024,0031,RGB(000,000,000))
          Plot(0025,0000,RGB(000,000,000)) : Plot(0025,0001,RGB(000,000,000)) : Plot(0025,0002,RGB(000,000,000)) : Plot(0025,0003,RGB(000,000,000))
          Plot(0025,0004,RGB(000,000,000)) : Plot(0025,0005,RGB(000,000,000)) : Plot(0025,0006,RGB(173,175,175)) : Plot(0025,0007,RGB(173,175,175))
          Plot(0025,0008,RGB(171,174,174)) : Plot(0025,0009,RGB(171,173,173)) : Plot(0025,0010,RGB(171,173,173)) : Plot(0025,0011,RGB(171,173,173))
          Plot(0025,0012,RGB(171,173,173)) : Plot(0025,0013,RGB(173,174,173)) : Plot(0025,0014,RGB(179,175,172)) : Plot(0025,0015,RGB(195,178,168))
          Plot(0025,0016,RGB(000,165,237)) : Plot(0025,0017,RGB(003,142,216)) : Plot(0025,0018,RGB(003,142,216)) : Plot(0025,0019,RGB(003,142,216))
          Plot(0025,0020,RGB(075,177,234)) : Plot(0025,0021,RGB(196,174,184)) : Plot(0025,0022,RGB(025,179,066)) : Plot(0025,0023,RGB(111,166,057))
          Plot(0025,0024,RGB(111,166,057)) : Plot(0025,0025,RGB(111,166,057)) : Plot(0025,0026,RGB(111,166,057)) : Plot(0025,0027,RGB(151,197,079))
          Plot(0025,0028,RGB(000,000,000)) : Plot(0025,0029,RGB(000,000,000)) : Plot(0025,0030,RGB(000,000,000)) : Plot(0025,0031,RGB(000,000,000))
          Plot(0026,0000,RGB(000,000,000)) : Plot(0026,0001,RGB(000,000,000)) : Plot(0026,0002,RGB(000,000,000)) : Plot(0026,0003,RGB(000,000,000))
          Plot(0026,0004,RGB(000,000,000)) : Plot(0026,0005,RGB(000,000,000)) : Plot(0026,0006,RGB(000,000,000)) : Plot(0026,0007,RGB(000,000,000))
          Plot(0026,0008,RGB(000,000,000)) : Plot(0026,0009,RGB(000,000,000)) : Plot(0026,0010,RGB(000,000,000)) : Plot(0026,0011,RGB(000,000,000))
          Plot(0026,0012,RGB(000,000,000)) : Plot(0026,0013,RGB(000,000,000)) : Plot(0026,0014,RGB(000,000,000)) : Plot(0026,0015,RGB(000,000,000))
          Plot(0026,0016,RGB(003,142,216)) : Plot(0026,0017,RGB(000,154,215)) : Plot(0026,0018,RGB(000,000,000)) : Plot(0026,0019,RGB(003,142,216))
          Plot(0026,0020,RGB(120,209,255)) : Plot(0026,0021,RGB(000,000,000)) : Plot(0026,0022,RGB(083,193,087)) : Plot(0026,0023,RGB(111,166,057))
          Plot(0026,0024,RGB(000,000,000)) : Plot(0026,0025,RGB(000,000,000)) : Plot(0026,0026,RGB(156,196,090)) : Plot(0026,0027,RGB(122,174,057))
          Plot(0026,0028,RGB(000,000,000)) : Plot(0026,0029,RGB(000,000,000)) : Plot(0026,0030,RGB(000,000,000)) : Plot(0026,0031,RGB(000,000,000))
          Plot(0027,0000,RGB(000,000,000)) : Plot(0027,0001,RGB(000,000,000)) : Plot(0027,0002,RGB(000,000,000)) : Plot(0027,0003,RGB(000,000,000))
          Plot(0027,0004,RGB(000,000,000)) : Plot(0027,0005,RGB(000,000,000)) : Plot(0027,0006,RGB(000,000,000)) : Plot(0027,0007,RGB(000,000,000))
          Plot(0027,0008,RGB(000,000,000)) : Plot(0027,0009,RGB(000,000,000)) : Plot(0027,0010,RGB(000,000,000)) : Plot(0027,0011,RGB(000,000,000))
          Plot(0027,0012,RGB(000,000,000)) : Plot(0027,0013,RGB(000,000,000)) : Plot(0027,0014,RGB(000,000,000)) : Plot(0027,0015,RGB(000,000,000))
          Plot(0027,0016,RGB(025,115,192)) : Plot(0027,0017,RGB(003,142,216)) : Plot(0027,0018,RGB(000,154,215)) : Plot(0027,0019,RGB(003,142,216))
          Plot(0027,0020,RGB(097,204,255)) : Plot(0027,0021,RGB(000,000,000)) : Plot(0027,0022,RGB(131,203,099)) : Plot(0027,0023,RGB(111,166,057))
          Plot(0027,0024,RGB(000,000,000)) : Plot(0027,0025,RGB(000,000,000)) : Plot(0027,0026,RGB(127,176,062)) : Plot(0027,0027,RGB(107,165,057))
          Plot(0027,0028,RGB(000,000,000)) : Plot(0027,0029,RGB(000,000,000)) : Plot(0027,0030,RGB(000,000,000)) : Plot(0027,0031,RGB(000,000,000))
          Plot(0028,0000,RGB(000,000,000)) : Plot(0028,0001,RGB(000,000,000)) : Plot(0028,0002,RGB(000,000,000)) : Plot(0028,0003,RGB(000,000,000))
          Plot(0028,0004,RGB(000,000,000)) : Plot(0028,0005,RGB(000,000,000)) : Plot(0028,0006,RGB(000,000,000)) : Plot(0028,0007,RGB(000,000,000))
          Plot(0028,0008,RGB(000,000,000)) : Plot(0028,0009,RGB(000,000,000)) : Plot(0028,0010,RGB(000,000,000)) : Plot(0028,0011,RGB(000,000,000))
          Plot(0028,0012,RGB(000,000,000)) : Plot(0028,0013,RGB(000,000,000)) : Plot(0028,0014,RGB(000,000,000)) : Plot(0028,0015,RGB(000,000,000))
          Plot(0028,0016,RGB(035,092,171)) : Plot(0028,0017,RGB(024,116,193)) : Plot(0028,0018,RGB(008,144,216)) : Plot(0028,0019,RGB(002,172,239))
          Plot(0028,0020,RGB(040,169,229)) : Plot(0028,0021,RGB(000,000,000)) : Plot(0028,0022,RGB(174,213,110)) : Plot(0028,0023,RGB(111,166,057))
          Plot(0028,0024,RGB(111,166,057)) : Plot(0028,0025,RGB(126,176,062)) : Plot(0028,0026,RGB(111,166,057)) : Plot(0028,0027,RGB(078,152,061))
          Plot(0028,0028,RGB(000,000,000)) : Plot(0028,0029,RGB(000,000,000)) : Plot(0028,0030,RGB(000,000,000)) : Plot(0028,0031,RGB(000,000,000))
          Plot(0029,0000,RGB(000,000,000)) : Plot(0029,0001,RGB(000,000,000)) : Plot(0029,0002,RGB(000,000,000)) : Plot(0029,0003,RGB(000,000,000))
          Plot(0029,0004,RGB(000,000,000)) : Plot(0029,0005,RGB(000,000,000)) : Plot(0029,0006,RGB(000,000,000)) : Plot(0029,0007,RGB(000,000,000))
          Plot(0029,0008,RGB(000,000,000)) : Plot(0029,0009,RGB(000,000,000)) : Plot(0029,0010,RGB(000,000,000)) : Plot(0029,0011,RGB(000,000,000))
          Plot(0029,0012,RGB(000,000,000)) : Plot(0029,0013,RGB(000,000,000)) : Plot(0029,0014,RGB(000,000,000)) : Plot(0029,0015,RGB(000,000,000))
          Plot(0029,0016,RGB(000,000,000)) : Plot(0029,0017,RGB(000,000,000)) : Plot(0029,0018,RGB(000,000,000)) : Plot(0029,0019,RGB(000,000,000))
          Plot(0029,0020,RGB(000,000,000)) : Plot(0029,0021,RGB(000,000,000)) : Plot(0029,0022,RGB(171,204,101)) : Plot(0029,0023,RGB(152,193,086))
          Plot(0029,0024,RGB(123,173,059)) : Plot(0029,0025,RGB(108,165,057)) : Plot(0029,0026,RGB(078,151,061)) : Plot(0029,0027,RGB(040,123,058))
          Plot(0029,0028,RGB(000,000,000)) : Plot(0029,0029,RGB(000,000,000)) : Plot(0029,0030,RGB(000,000,000)) : Plot(0029,0031,RGB(000,000,000))
          Plot(0030,0000,RGB(000,000,000)) : Plot(0030,0001,RGB(000,000,000)) : Plot(0030,0002,RGB(000,000,000)) : Plot(0030,0003,RGB(000,000,000))
          Plot(0030,0004,RGB(000,000,000)) : Plot(0030,0005,RGB(000,000,000)) : Plot(0030,0006,RGB(000,000,000)) : Plot(0030,0007,RGB(000,000,000))
          Plot(0030,0008,RGB(000,000,000)) : Plot(0030,0009,RGB(000,000,000)) : Plot(0030,0010,RGB(000,000,000)) : Plot(0030,0011,RGB(000,000,000))
          Plot(0030,0012,RGB(000,000,000)) : Plot(0030,0013,RGB(000,000,000)) : Plot(0030,0014,RGB(000,000,000)) : Plot(0030,0015,RGB(000,000,000))
          Plot(0030,0016,RGB(000,000,000)) : Plot(0030,0017,RGB(000,000,000)) : Plot(0030,0018,RGB(000,000,000)) : Plot(0030,0019,RGB(000,000,000))
          Plot(0030,0020,RGB(000,000,000)) : Plot(0030,0021,RGB(000,000,000)) : Plot(0030,0022,RGB(000,000,000)) : Plot(0030,0023,RGB(000,000,000))
          Plot(0030,0024,RGB(000,000,000)) : Plot(0030,0025,RGB(000,000,000)) : Plot(0030,0026,RGB(000,000,000)) : Plot(0030,0027,RGB(000,000,000))
          Plot(0030,0028,RGB(000,000,000)) : Plot(0030,0029,RGB(000,000,000)) : Plot(0030,0030,RGB(000,000,000)) : Plot(0030,0031,RGB(000,000,000))
          Plot(0031,0000,RGB(000,000,000)) : Plot(0031,0001,RGB(000,000,000)) : Plot(0031,0002,RGB(000,000,000)) : Plot(0031,0003,RGB(000,000,000))
          Plot(0031,0004,RGB(000,000,000)) : Plot(0031,0005,RGB(000,000,000)) : Plot(0031,0006,RGB(000,000,000)) : Plot(0031,0007,RGB(000,000,000))
          Plot(0031,0008,RGB(000,000,000)) : Plot(0031,0009,RGB(000,000,000)) : Plot(0031,0010,RGB(000,000,000)) : Plot(0031,0011,RGB(000,000,000))
          Plot(0031,0012,RGB(000,000,000)) : Plot(0031,0013,RGB(000,000,000)) : Plot(0031,0014,RGB(000,000,000)) : Plot(0031,0015,RGB(000,000,000))
          Plot(0031,0016,RGB(000,000,000)) : Plot(0031,0017,RGB(000,000,000)) : Plot(0031,0018,RGB(000,000,000)) : Plot(0031,0019,RGB(000,000,000))
          Plot(0031,0020,RGB(000,000,000)) : Plot(0031,0021,RGB(000,000,000)) : Plot(0031,0022,RGB(000,000,000)) : Plot(0031,0023,RGB(000,000,000))
          Plot(0031,0024,RGB(000,000,000)) : Plot(0031,0025,RGB(000,000,000)) : Plot(0031,0026,RGB(000,000,000)) : Plot(0031,0027,RGB(000,000,000))
          Plot(0031,0028,RGB(000,000,000)) : Plot(0031,0029,RGB(000,000,000)) : Plot(0031,0030,RGB(000,000,000)) : Plot(0031,0031,RGB(000,000,000))

          StopDrawing()
          SetGadgetAttribute(#Btnpage_white_office,#PB_Button_Image,ImageID(iImage))
    EndIf

EndProcedure

IdeasVacuum, or anyone ,
would you show me what Code i would use to show the image above on a Button ???

Posted: **Fri Jul 27, 2012 11:35 am**

Can this be made to handle Transparent images.

Posted: **Fri Jul 27, 2012 11:51 am**

Why you plot an image pixel by pixel?
It would be easier, you create a data section with the image (possibly compressed as well).

Example:

Code: Select all

UsePNGImageDecoder()

OpenWindow(#PB_Any, 0, 0, 400, 300, "WindowTitle", #PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
ButtonImageGadget(#PB_Any, 30, 30, 32, 32, ImageID(CatchImage(#PB_Any, ?page_white_office)))

Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow

DataSection
	page_white_office:
	Data.q $0A1A0A0D474E5089,$524448490D000000,$2000000020000000,$7A7A730000000608,$58457419000000F4
	Data.q $72617774666F5374,$2065626F64410065,$6165526567616D49,$00003C65C9717964,$DA78544144492105
	Data.q $FF18551C4FDB57AC,$85BBB3B3BB33399D,$3634040B50B0A536,$36A58094686DA9B5,$8C10368A6BD6D131
	Data.q $7F93C0FA1F17C5F1,$29A26359F1364F81,$D41E040FA52CB697,$22F89AA6988686B4,$5B965B3685972B15
	Data.q $ECCEFC733B2C2CB9,$7C93D05ECB2866EC,$BEFCEFCB9CCE767B,$C601084C339DFBEF,$5CFE807379BE1A98
	Data.q $CDEC8A6281059610,$D47D6F34D30630A0,$0B87C2C90D4ADADA,$44B5FF100120B97B,$F34FD3D3D5D151A3
	Data.q $80775A9D57D742F1,$06D452324A726260,$1D1BBBB571AA6B6A,$5707ECF67738EDED,$A25DB5B475AE7A7B
	Data.q $34B3538AF1BE66D7,$6BCF39C6D8A28AED,$2E2C2F5404F6BEE9,$2E5A5AE702A2A2A1,$0A15ACD423870F5E
	Data.q $CEB2A4E5EEE45320,$D7A34938F67EE967,$342142843173278B,$E64DF5F5AE863637,$5E2E96B140159103
	Data.q $699C4067AE9F06AF,$01D882722624AA6A,$CB38DC2B2B497380,$C047430C2AE702E4,$92B9B9A5A3B8CFEF
	Data.q $9A2BAA1037767C02,$7DF54861685031B6,$AE60BDBD5D1EBEA1,$A4C0A63FA528B4E4,$401DDA5B27E64652
	Data.q $5637A800514A05C6,$6CB6C1A1BA70D657,$67819B93CE6D4AC5,$7C5AEFA80660A062,$0BE97460E964AB1D
	Data.q $80082DD8650FCA2A,$C76FD5DEF9000852,$2160A2100360D4FC,$780692AF7A01822A,$6B3AFB21068F3075
	Data.q $6FBC91617CE52B09,$59C0007B1B922025,$F0CA449D3BB2B026,$C30C1E58CBF3FC61,$71F7D02A0F41AA57
	Data.q $049FC78720F4C8F8,$168A15FBBC0F3A6B,$168D3451F100A522,$1D41C604AABF83EF,$3CC8004251872946
	Data.q $1764F82A65285407,$F20B9459CCE3C66D,$F7EDF2A84B32239C,$386FFB7F3C2C3740,$B75E063CECCC67CC
	Data.q $61064561E1A54705,$CE7DDA4801B7A8BE,$3C1B4D55A4DF1359,$EA871FDCAD963923,$A7149FFF93CA554C
	Data.q $B61C06F6BE4BC7A5,$2EB4D39B48987048,$DAF134FF3AF6D3A0,$CEA1A2C657E01BCA,$E37BA0C6E3AEA2DB
	Data.q $7A474149E4A05D3B,$634D2A486CE02775,$DC622B823354D4C9,$073A3C132583FDF6,$B27155527F7E2033
	Data.q $BD95B24092F3B18C,$94F7C8C8864E461D,$210E8C421D31473A,$FEA42E684F4E5B46,$20BF4767C34EE8D5
	Data.q $EF87B72E1D2C7F10,$20A0C780C4E00639,$A8BD65C053F7252B,$453E7A60F17CA5CC,$238902AC61B195DC
	Data.q $4E440B2DDCC16EE5,$7307BFAFBDAF9221,$1C40941675A87BFC,$8CF39BB44580AAD6,$7DEED4F95ED017E8
	Data.q $35E3803BADE027C2,$FD1F0FA3016E8865,$3743ECD1C05EE632,$2091B1B75EFB61C2,$0D89613EF461CCDB
	Data.q $E2BBAE12C399BBEA,$16B24DE45CB0FF48,$BDE612A730594932,$36F1D3B41750CB16,$F02019FF6A0A4588
	Data.q $D80DF8D8117E390E,$0EFFAAD68FBE0FBC,$B88FDACFC4BFF71D,$C70046CBD0D2E778,$86C3F07C78CC3F0C
	Data.q $90677567B797DE6F,$D1A230FB72D7FCB3,$2046B6AFFBED7B8F,$60F5D968B98AB9A4,$6995FB89C49F1864
	Data.q $E7AAD1D90EF9E8C4,$C05461EB2133A42E,$56A3FA4991476C19,$6CB40668D2F60ABE,$7CFDA4EFAFD2BF17
	Data.q $B75F1E75228FBFDA,$0E37772F9F25BE8F,$7001704CE9B36245,$29A31DF22F5A9616,$76933602235C9002
	Data.q $B29FA8FAD801B9EA,$99D988D802054F9F,$6B0B0D0C4A7F2130,$178EBAE1504C995B,$B7785129B7EC82C5
	Data.q $7D76953CEF32445D,$691DBFAA3DC7E83C,$85BEB4B066C48B1F,$B10980B3CEEAA7E9,$48B90AB410303FD2
	Data.q $3726DE044926AA50,$81EEB7BB8EB47E3F,$5EDB5C93069B7199,$EBFBD709FF1E015B,$FE18EAC5E3550BE0
	Data.q $F48844BA99604E89,$F398D269BBCC66BF,$59FDB25A8292486D,$0CA0FE9ED15BB336,$485383AFAE0E8F09
	Data.q $A8732AA4D60D06A9,$B7DFA4A6272861FA,$D38F19264F27199E,$C45B347C735818EE,$2F29194C4CC96957
	Data.q $226E768784AD9BD7,$266B804959749229,$6C90F3EA11A99122,$DDC52ABCACD7CB39,$B211C98A450F600C
	Data.q $4B732EDB64F45983,$59EB2E4EA801DECA,$7FF54FCE65DEE6DC,$F42B49207F001805,$4900000000BAAC5B
	Data.q $00826042AE444E45
EndDataSection

Posted: **Fri Jul 27, 2012 12:09 pm**

Why you plot an image pixel by pixel?
It would be easier, you create a data section with the image (possibly compressed as well).

IdeasVacuum says:
;This is better than including the images as data (because it always works).
;It's also good if you need to change button images dynamically at runtime.

Using DataSection is much more compact though, and looks to be able to handle transparent images, I'm not so sure if that is the case with pixel by pixel approach.

Posted: **Fri Jul 27, 2012 12:35 pm**

...You can plot an image with transparency. Use 32 bit for the image e.g. CreateImage(#PB_Any,23,23,32), DrawingMode(#PB_2DDrawing_AlphaChannel), Plot(iPixX,iPixY,igTransparent) where igTransparent = RGBA(255,255,255,0).

Posted: **Fri Jul 27, 2012 12:40 pm**

would you show me what Code i would use to show the image above on a Button ???

VB6_to_PBx, the code you posted will already do just that:

Code: Select all

SetGadgetAttribute(#Btnpage_white_office,#PB_Button_Image,ImageID(iImage))

Just ensure that the button '#Btnpage_white_office' is an image button and is at least the size of the image (or a little bigger).

Posted: **Fri Jul 27, 2012 8:49 pm**

IdeasVacuum wrote:
would you show me what Code i would use to show the image above on a Button ???
VB6_to_PBx, the code you posted will already do just that:
Code: Select all
SetGadgetAttribute(#Btnpage_white_office,#PB_Button_Image,ImageID(iImage))
Just ensure that the button '#Btnpage_white_office' is an image button and is at least the size of the image (or a little bigger).

i get an ERROR
[14:38:05] [COMPILER] Line 268: Constant not found: #Btnpage_white_office.
[14:41:04] [COMPILER] Line 268: Constant not found: #Btnpage_white_office.

i can get STARGATE's code to work
but not the picture Code i posted above

IdeasVacuum,
a short "complete actual working " source code example showing how to display the image on a button image gadget would help tremendously

Posted: **Sat Jul 28, 2012 1:04 am**

IdeasVacuum wrote:...You can plot an image with transparency. Use 32 bit for the image e.g. CreateImage(#PB_Any,23,23,32), DrawingMode(#PB_2DDrawing_AlphaChannel), Plot(iPixX,iPixY,igTransparent) where igTransparent = RGBA(255,255,255,0).

I was looking into that last night, I am working on it.

Posted: **Sat Jul 28, 2012 5:49 am**

Hi IdeasVacuum. Thanks for the great work!

VB6_to_PBx wrote:[14:38:05][COMPILER] Line 268: Constant not found: #Btnpage_white_office.
[14:41:04][COMPILER] Line 268: Constant not found: #Btnpage_white_office.
...
a short "complete actual working " source code example showing how to display the image on a button image gadget would help tremendously

Hi VB6_to_PBx. You'll have to either enumerate the ButtonImageGadget() or manually assign it a gadget number. Also, make sure that the ButtonImageGadget() size matches the created image size. Give this a try:

Code: Select all

Enumeration
  #MainWindow
  #Btnpage_white_office
EndEnumeration

Procedure DrawBtnpage_white_office()

  ;the ButtonImageGadget() size should match this image size
  Protected iImage.i = CreateImage(#PB_Any, 100, 30, 24)

    If StartDrawing(ImageOutput(iImage))
          DrawingMode(#PB_2DDrawing_Default)
          Plot(0000,0000,RGB(255,255,255)) ...
          ...
          ...
          ...
          StopDrawing()

          ;#Btnpage_white_office is the assigned constant for the ButtonImageGadget()
          SetGadgetAttribute(#Btnpage_white_office, #PB_Button_Image, ImageID(iImage))

    EndIf
EndProcedure

wFlags = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
OpenWindow(#MainWindow, #PB_Any, #PB_Any, 300, 300, "Image Button Example", wFlags)

;create a ButtonImageGadget() with #Btnpage_white_office as the gadget number,
;assign a zero value to the ImageID and ensure that the size matches the output image
ButtonImageGadget(#Btnpage_white_office, 30, 30, 100, 30, 0)

DrawBtnpage_white_office()

While WaitWindowEvent() ! #PB_Event_CloseWindow : CloseWindow : Wend

Posted: **Sat Jul 28, 2012 6:14 am**

I have changed the code to handle RGBA, seems to work for me.

Thanks for the tip on how to use the procedure properly TI-994A

Code: Select all

;IMAGES TO PB CODE RGBA(Procedures for ImageButton images).
;Based on existing code from the PB Forum (can't find it anywhere).
;Many thanks to the original developer.

;Creates a .pb or .pbi file of Procedures that draw small images onto Image Buttons.

;This is better than including the images as data (because it always works).
;It's also good if you need to change button images dynamically at runtime.
;Note, it can produce code describing 'giant' images but it is very very slow for that.
;This method is very fast for typical button images. Yay.
;The Procedure and the Button take the name of the image file.
;Simply Xinclude the Procedures file produced.
;Add the Procedure calls after the buttons have been included in the list of gadgets.
;Unfortunately Menus/Toolbars can't use this method since they need a .ico file.

;Cross Platform, but only tested on Windows.

;Please don't ask me to change it! You can DIY!

Enumeration
  #FileOut
  #ImageIn
EndEnumeration

UseJPEGImageDecoder()
UseTGAImageDecoder()
UsePNGImageDecoder()
UseTIFFImageDecoder()

Procedure ErrorMsg(message.s) : MessageRequester("ERROR",message) : EndProcedure

Structure dots
  x.s
  y.s
  R.s
  G.s
  B.s
  A.s
EndStructure

Procedure MakeCode()
  ;-------------------
  Protected    iFirstImage.i = #True
  Protected           sExt.s = ".pbi"
  Protected     sImageFile.s = "C:\"
  Protected           sPat.s = "PNG|*.png|JPEG|*.jpg;*.jpeg|BMP|*.bmp|TIFF|*.tif|TGA|*.tga"
  Protected  sPbFileToSave.s = SaveFileRequester("Save as New .pb or .pbi file","C:\","*.pb|*.pb|*.pbi|*.pbi",1)
  Protected         iIndex.i = SelectedFilePattern()
  
  Select iIndex
      
    Case 0: sExt = ".pb"
    Case 1: sExt = ".pbi"
  EndSelect
  
  sPbFileToSave = sPbFileToSave + sExt
  
  If CreateFile(#FileOut,sPbFileToSave)
    
    MakeAnother:
    NewList Dot.dots()
    
    If(iFirstImage = #True)
      
      sImageFile = OpenFileRequester("Select an image file to convert to PB code",GetPathPart(sPbFileToSave),sPat,0)
      iFirstImage = #False
    Else
      sImageFile = OpenFileRequester("Select an image file [Last image processed: " + GetFilePart(sImageFile) + "]",GetPathPart(sImageFile),sPat,0)
    EndIf
    
    If sImageFile <> ""
      
      If LoadImage(#ImageIn,sImageFile)
        
        StartDrawing(ImageOutput(#ImageIn)) ;We do not actually draw anything
          
          DrawingMode(#PB_2DDrawing_AllChannels)
          
          For x = 0 To (ImageWidth(#ImageIn) - 1)
            
            For y = 0 To (ImageHeight(#ImageIn) - 1)
              
              AddElement(Dot())
              
              iColour = Point(x,y)
              iRed = Red(iColour)
              iGreen = Green(iColour)
              iBlue = Blue(iColour)
              iAlpha = Alpha(iColour)
              
              Dot()\R = RSet(Str(iRed), 3, "0")
              Dot()\G = RSet(Str(iGreen), 3, "0")
              Dot()\B = RSet(Str(iBlue), 3, "0")
              Dot()\A = RSet(Str(iAlpha), 3, "0")
              Dot()\x = RSet(Str(x), 4, "0")
              Dot()\y = RSet(Str(y), 4, "0")
            Next y
            
          Next x
          
        StopDrawing()
        
        sImageFileName.s = GetFilePart(sImageFile)
        sProcedureName.s = Left(sImageFileName,(Len(sImageFileName)-4))
        sProcedureTitle.s = "Procedure DrawBtn" + sProcedureName + "()"
        sProcUnderline.s = Space(Len(sProcedureTitle) - 1)
        
        ReplaceString(sProcUnderline," ","-",#PB_String_InPlace,1)
        
        WriteStringN(#FileOut,sProcedureTitle)
        WriteStringN(#FileOut,";" + sProcUnderline)
        WriteStringN(#FileOut,"")
        WriteStringN(#FileOut,"Protected iImage.i = CreateImage(#PB_Any," + Str(ImageWidth(#ImageIn)) + Chr(44) + Str(ImageHeight(#ImageIn)) + ",32)")
        WriteStringN(#FileOut,"")
        WriteStringN(#FileOut,"    If StartDrawing(ImageOutput(iImage))")
        WriteStringN(#FileOut,"")
        WriteStringN(#FileOut,"          DrawingMode(#PB_2DDrawing_AllChannels)")
        WriteStringN(#FileOut,"")
        
        iCnt.i = 1
        iLastDot.i = (ListSize(Dot()) - 1)
        iDotCnt.i = -1
        
        ForEach Dot()
          
          iDotCnt + 1
          
          If( (iDotCnt = iLastDot) And (iCnt < 4) )
            
            WriteString(#FileOut,"Plot(" + Dot()\x + Chr(44) + Dot()\y + Chr(44) + "RGBA(" + Dot()\R + Chr(44) + Dot()\G + Chr(44) + Dot()\B + Chr(44) + Dot()\A + "))")
          Else
            Select iCnt
                
              Case 1 :  WriteString(#FileOut,"          Plot(" + Dot()\x + Chr(44) + Dot()\y + Chr(44) + "RGBA(" + Dot()\R + Chr(44) + Dot()\G + Chr(44) + Dot()\B + Chr(44) + Dot()\A + "))" + Chr(32) + Chr(58) + Chr(32))
              Case 2 :  WriteString(#FileOut,"Plot(" + Dot()\x + Chr(44) + Dot()\y + Chr(44) + "RGBA(" + Dot()\R + Chr(44) + Dot()\G + Chr(44) + Dot()\B + Chr(44) + Dot()\A + "))" + Chr(32) + Chr(58) + Chr(32))
              Case 3 :  WriteString(#FileOut,"Plot(" + Dot()\x + Chr(44) + Dot()\y + Chr(44) + "RGBA(" + Dot()\R + Chr(44) + Dot()\G + Chr(44) + Dot()\B + Chr(44) + Dot()\A + "))" + Chr(32) + Chr(58) + Chr(32))
              Case 4 : WriteStringN(#FileOut,"Plot(" + Dot()\x + Chr(44) + Dot()\y + Chr(44) + "RGBA(" + Dot()\R + Chr(44) + Dot()\G + Chr(44) + Dot()\B + Chr(44) + Dot()\A + "))")
            EndSelect
          EndIf
          
          iCnt + 1
          If(iCnt > 4) : iCnt = 1 : EndIf
        Next
        
        WriteStringN(#FileOut,"")
        WriteStringN(#FileOut,"          StopDrawing()")
        WriteStringN(#FileOut,"          SetGadgetAttribute(#Btn" + sProcedureName + ",#PB_Button_Image,ImageID(iImage))")
        WriteStringN(#FileOut,"    EndIf")
        WriteStringN(#FileOut,"")
        WriteStringN(#FileOut,"EndProcedure")
        WriteStringN(#FileOut,"")
        
        FreeList(Dot.dots())
        
        iMakeAnother.i = MessageRequester("DONE!","Process another image?",#PB_MessageRequester_YesNo|#MB_ICONQUESTION)
        If(iMakeAnother = #PB_MessageRequester_Yes)
          
          Goto MakeAnother
        Else
          CloseFile(#FileOut)
          MessageRequester("FINISHED","File:" + #CRLF$  + #CRLF$ + sPbFileToSave  + #CRLF$  + #CRLF$ + "SAVED")
        EndIf
      Else
        ErrorMsg("Could not load image: " + sImageFile)
      EndIf
    EndIf
  Else
    ErrorMsg("Could not create file: " + sPbFileToSave)
  EndIf
  
EndProcedure

;###########
MakeCode()
;###########
End

Example of the output, with help from TI-994A.

Code: Select all

Enumeration
  #MainWindow
  #Btnbuttons_19
EndEnumeration

Procedure DrawBtnbuttons_19()
  
Protected iImage.i = CreateImage(#PB_Any,32,32,32)

    If StartDrawing(ImageOutput(iImage))

          DrawingMode(#PB_2DDrawing_AllChannels)

          Plot(0000,0000,RGBA(000,000,000,000)) : Plot(0000,0001,RGBA(000,000,000,000)) : Plot(0000,0002,RGBA(000,000,000,000)) : Plot(0000,0003,RGBA(000,000,000,000))
          Plot(0000,0004,RGBA(000,000,000,000)) : Plot(0000,0005,RGBA(000,000,000,000)) : Plot(0000,0006,RGBA(000,000,000,000)) : Plot(0000,0007,RGBA(000,000,000,000))
          Plot(0000,0008,RGBA(000,000,000,000)) : Plot(0000,0009,RGBA(000,000,000,000)) : Plot(0000,0010,RGBA(000,000,000,000)) : Plot(0000,0011,RGBA(000,000,000,000))
          Plot(0000,0012,RGBA(000,000,000,000)) : Plot(0000,0013,RGBA(000,000,000,000)) : Plot(0000,0014,RGBA(000,000,000,000)) : Plot(0000,0015,RGBA(000,000,000,000))
          Plot(0000,0016,RGBA(000,000,000,000)) : Plot(0000,0017,RGBA(000,000,000,000)) : Plot(0000,0018,RGBA(000,000,000,000)) : Plot(0000,0019,RGBA(000,000,000,000))
          Plot(0000,0020,RGBA(000,000,000,000)) : Plot(0000,0021,RGBA(000,000,000,000)) : Plot(0000,0022,RGBA(000,000,000,000)) : Plot(0000,0023,RGBA(000,000,000,000))
          Plot(0000,0024,RGBA(000,000,000,000)) : Plot(0000,0025,RGBA(000,000,000,000)) : Plot(0000,0026,RGBA(000,000,000,000)) : Plot(0000,0027,RGBA(000,000,000,000))
          Plot(0000,0028,RGBA(000,000,000,000)) : Plot(0000,0029,RGBA(000,000,000,000)) : Plot(0000,0030,RGBA(000,000,000,000)) : Plot(0000,0031,RGBA(000,000,000,000))
          Plot(0001,0000,RGBA(000,000,000,000)) : Plot(0001,0001,RGBA(000,000,000,000)) : Plot(0001,0002,RGBA(000,000,000,000)) : Plot(0001,0003,RGBA(000,000,000,000))
          Plot(0001,0004,RGBA(000,000,000,000)) : Plot(0001,0005,RGBA(000,000,000,000)) : Plot(0001,0006,RGBA(000,000,000,000)) : Plot(0001,0007,RGBA(000,000,000,000))
          Plot(0001,0008,RGBA(000,000,000,000)) : Plot(0001,0009,RGBA(000,000,000,000)) : Plot(0001,0010,RGBA(000,000,000,000)) : Plot(0001,0011,RGBA(000,000,000,000))
          Plot(0001,0012,RGBA(000,000,000,000)) : Plot(0001,0013,RGBA(000,000,000,000)) : Plot(0001,0014,RGBA(000,000,000,000)) : Plot(0001,0015,RGBA(000,000,000,000))
          Plot(0001,0016,RGBA(000,000,000,000)) : Plot(0001,0017,RGBA(000,000,000,000)) : Plot(0001,0018,RGBA(000,000,000,000)) : Plot(0001,0019,RGBA(000,000,000,000))
          Plot(0001,0020,RGBA(000,000,000,000)) : Plot(0001,0021,RGBA(000,000,000,000)) : Plot(0001,0022,RGBA(000,000,000,000)) : Plot(0001,0023,RGBA(000,000,000,000))
          Plot(0001,0024,RGBA(000,000,000,000)) : Plot(0001,0025,RGBA(000,000,000,000)) : Plot(0001,0026,RGBA(000,000,000,000)) : Plot(0001,0027,RGBA(000,000,000,000))
          Plot(0001,0028,RGBA(000,000,000,000)) : Plot(0001,0029,RGBA(000,000,000,000)) : Plot(0001,0030,RGBA(000,000,000,000)) : Plot(0001,0031,RGBA(000,000,000,000))
          Plot(0002,0000,RGBA(000,000,000,000)) : Plot(0002,0001,RGBA(000,000,000,000)) : Plot(0002,0002,RGBA(000,000,000,000)) : Plot(0002,0003,RGBA(000,000,000,000))
          Plot(0002,0004,RGBA(000,000,000,000)) : Plot(0002,0005,RGBA(000,000,000,000)) : Plot(0002,0006,RGBA(000,000,000,000)) : Plot(0002,0007,RGBA(000,000,000,000))
          Plot(0002,0008,RGBA(000,000,000,000)) : Plot(0002,0009,RGBA(000,000,000,000)) : Plot(0002,0010,RGBA(000,000,000,000)) : Plot(0002,0011,RGBA(000,000,000,000))
          Plot(0002,0012,RGBA(020,039,020,013)) : Plot(0002,0013,RGBA(034,054,034,038)) : Plot(0002,0014,RGBA(032,053,032,048)) : Plot(0002,0015,RGBA(036,055,030,042))
          Plot(0002,0016,RGBA(031,051,031,025)) : Plot(0002,0017,RGBA(000,000,000,002)) : Plot(0002,0018,RGBA(000,000,000,000)) : Plot(0002,0019,RGBA(000,000,000,000))
          Plot(0002,0020,RGBA(000,000,000,000)) : Plot(0002,0021,RGBA(000,000,000,000)) : Plot(0002,0022,RGBA(000,000,000,000)) : Plot(0002,0023,RGBA(000,000,000,000))
          Plot(0002,0024,RGBA(000,000,000,000)) : Plot(0002,0025,RGBA(000,000,000,000)) : Plot(0002,0026,RGBA(000,000,000,000)) : Plot(0002,0027,RGBA(000,000,000,000))
          Plot(0002,0028,RGBA(000,000,000,000)) : Plot(0002,0029,RGBA(000,000,000,000)) : Plot(0002,0030,RGBA(000,000,000,000)) : Plot(0002,0031,RGBA(000,000,000,000))
          Plot(0003,0000,RGBA(000,000,000,000)) : Plot(0003,0001,RGBA(000,000,000,000)) : Plot(0003,0002,RGBA(000,000,000,000)) : Plot(0003,0003,RGBA(000,000,000,000))
          Plot(0003,0004,RGBA(000,000,000,000)) : Plot(0003,0005,RGBA(000,000,000,000)) : Plot(0003,0006,RGBA(000,000,000,000)) : Plot(0003,0007,RGBA(000,000,000,000))
          Plot(0003,0008,RGBA(000,000,000,000)) : Plot(0003,0009,RGBA(028,047,028,027)) : Plot(0003,0010,RGBA(036,054,033,099)) : Plot(0003,0011,RGBA(036,055,035,154))
          Plot(0003,0012,RGBA(051,071,040,184)) : Plot(0003,0013,RGBA(077,099,052,195)) : Plot(0003,0014,RGBA(088,111,056,200)) : Plot(0003,0015,RGBA(070,097,045,197))
          Plot(0003,0016,RGBA(055,081,042,190)) : Plot(0003,0017,RGBA(037,057,035,180)) : Plot(0003,0018,RGBA(036,055,034,126)) : Plot(0003,0019,RGBA(033,054,033,061))
          Plot(0003,0020,RGBA(000,000,000,002)) : Plot(0003,0021,RGBA(000,000,000,000)) : Plot(0003,0022,RGBA(000,000,000,000)) : Plot(0003,0023,RGBA(000,000,000,000))
          Plot(0003,0024,RGBA(000,000,000,000)) : Plot(0003,0025,RGBA(000,000,000,000)) : Plot(0003,0026,RGBA(000,000,000,000)) : Plot(0003,0027,RGBA(000,000,000,000))
          Plot(0003,0028,RGBA(000,000,000,000)) : Plot(0003,0029,RGBA(000,000,000,000)) : Plot(0003,0030,RGBA(000,000,000,000)) : Plot(0003,0031,RGBA(000,000,000,000))
          Plot(0004,0000,RGBA(000,000,000,000)) : Plot(0004,0001,RGBA(000,000,000,000)) : Plot(0004,0002,RGBA(000,000,000,000)) : Plot(0004,0003,RGBA(000,000,000,000))
          Plot(0004,0004,RGBA(000,000,000,000)) : Plot(0004,0005,RGBA(000,000,000,000)) : Plot(0004,0006,RGBA(000,000,000,000)) : Plot(0004,0007,RGBA(030,053,030,034))
          Plot(0004,0008,RGBA(036,055,033,107)) : Plot(0004,0009,RGBA(067,087,047,191)) : Plot(0004,0010,RGBA(134,159,078,221)) : Plot(0004,0011,RGBA(178,204,105,245))
          Plot(0004,0012,RGBA(193,219,114,255)) : Plot(0004,0013,RGBA(190,217,109,255)) : Plot(0004,0014,RGBA(187,215,101,255)) : Plot(0004,0015,RGBA(148,195,076,255))
          Plot(0004,0016,RGBA(144,195,080,255)) : Plot(0004,0017,RGBA(135,188,079,251)) : Plot(0004,0018,RGBA(109,158,068,234)) : Plot(0004,0019,RGBA(071,108,049,205))
          Plot(0004,0020,RGBA(037,057,035,180)) : Plot(0004,0021,RGBA(035,053,032,072)) : Plot(0004,0022,RGBA(000,000,000,000)) : Plot(0004,0023,RGBA(000,000,000,000))
          Plot(0004,0024,RGBA(000,000,000,000)) : Plot(0004,0025,RGBA(000,000,000,000)) : Plot(0004,0026,RGBA(000,000,000,000)) : Plot(0004,0027,RGBA(000,000,000,001))
          Plot(0004,0028,RGBA(000,000,000,000)) : Plot(0004,0029,RGBA(000,000,000,000)) : Plot(0004,0030,RGBA(000,000,000,000)) : Plot(0004,0031,RGBA(000,000,000,000))
          Plot(0005,0000,RGBA(000,000,000,000)) : Plot(0005,0001,RGBA(000,000,000,000)) : Plot(0005,0002,RGBA(000,000,000,000)) : Plot(0005,0003,RGBA(000,000,000,000))
          Plot(0005,0004,RGBA(000,000,000,000)) : Plot(0005,0005,RGBA(000,000,000,000)) : Plot(0005,0006,RGBA(036,053,034,091)) : Plot(0005,0007,RGBA(059,078,044,187))
          Plot(0005,0008,RGBA(148,172,093,227)) : Plot(0005,0009,RGBA(207,227,146,254)) : Plot(0005,0010,RGBA(211,229,156,255)) : Plot(0005,0011,RGBA(206,226,144,255))
          Plot(0005,0012,RGBA(200,223,130,255)) : Plot(0005,0013,RGBA(194,219,116,255)) : Plot(0005,0014,RGBA(189,217,106,255)) : Plot(0005,0015,RGBA(148,196,079,255))
          Plot(0005,0016,RGBA(147,196,085,255)) : Plot(0005,0017,RGBA(148,197,094,255)) : Plot(0005,0018,RGBA(150,198,105,255)) : Plot(0005,0019,RGBA(146,197,108,255))
          Plot(0005,0020,RGBA(118,172,085,243)) : Plot(0005,0021,RGBA(061,100,047,201)) : Plot(0005,0022,RGBA(036,056,034,105)) : Plot(0005,0023,RGBA(028,047,028,027))
          Plot(0005,0024,RGBA(000,000,000,000)) : Plot(0005,0025,RGBA(000,000,000,000)) : Plot(0005,0026,RGBA(000,000,000,002)) : Plot(0005,0027,RGBA(000,000,000,005))
          Plot(0005,0028,RGBA(000,000,000,002)) : Plot(0005,0029,RGBA(000,000,000,000)) : Plot(0005,0030,RGBA(000,000,000,000)) : Plot(0005,0031,RGBA(000,000,000,000))
          Plot(0006,0000,RGBA(000,000,000,000)) : Plot(0006,0001,RGBA(000,000,000,000)) : Plot(0006,0002,RGBA(000,000,000,000)) : Plot(0006,0003,RGBA(000,000,000,000))
          Plot(0006,0004,RGBA(000,000,000,000)) : Plot(0006,0005,RGBA(035,056,033,101)) : Plot(0006,0006,RGBA(084,107,054,198)) : Plot(0006,0007,RGBA(202,221,147,251))
          Plot(0006,0008,RGBA(225,237,187,255)) : Plot(0006,0009,RGBA(221,235,178,255)) : Plot(0006,0010,RGBA(215,232,165,255)) : Plot(0006,0011,RGBA(209,228,150,255))
          Plot(0006,0012,RGBA(201,224,134,255)) : Plot(0006,0013,RGBA(195,220,120,255)) : Plot(0006,0014,RGBA(191,218,110,255)) : Plot(0006,0015,RGBA(149,197,079,255))
          Plot(0006,0016,RGBA(143,194,078,255)) : Plot(0006,0017,RGBA(145,196,090,255)) : Plot(0006,0018,RGBA(150,198,105,255)) : Plot(0006,0019,RGBA(153,200,118,255))
          Plot(0006,0020,RGBA(157,204,130,255)) : Plot(0006,0021,RGBA(148,199,122,255)) : Plot(0006,0022,RGBA(086,136,065,223)) : Plot(0006,0023,RGBA(037,057,035,180))
          Plot(0006,0024,RGBA(032,056,032,055)) : Plot(0006,0025,RGBA(000,000,000,000)) : Plot(0006,0026,RGBA(000,000,000,008)) : Plot(0006,0027,RGBA(000,000,000,017))
          Plot(0006,0028,RGBA(000,000,000,008)) : Plot(0006,0029,RGBA(000,000,000,001)) : Plot(0006,0030,RGBA(000,000,000,000)) : Plot(0006,0031,RGBA(000,000,000,000))
          Plot(0007,0000,RGBA(000,000,000,000)) : Plot(0007,0001,RGBA(000,000,000,000)) : Plot(0007,0002,RGBA(000,000,000,000)) : Plot(0007,0003,RGBA(000,000,000,000))
          Plot(0007,0004,RGBA(036,054,033,099)) : Plot(0007,0005,RGBA(100,124,064,204)) : Plot(0007,0006,RGBA(220,234,177,254)) : Plot(0007,0007,RGBA(232,242,204,255))
          Plot(0007,0008,RGBA(229,239,196,255)) : Plot(0007,0009,RGBA(222,236,182,255)) : Plot(0007,0010,RGBA(213,231,159,255)) : Plot(0007,0011,RGBA(205,226,143,255))
          Plot(0007,0012,RGBA(201,224,133,255)) : Plot(0007,0013,RGBA(197,221,123,255)) : Plot(0007,0014,RGBA(193,219,115,255)) : Plot(0007,0015,RGBA(150,197,081,255))
          Plot(0007,0016,RGBA(139,192,071,255)) : Plot(0007,0017,RGBA(131,188,069,255)) : Plot(0007,0018,RGBA(129,187,076,255)) : Plot(0007,0019,RGBA(141,194,101,255))
          Plot(0007,0020,RGBA(157,204,130,255)) : Plot(0007,0021,RGBA(163,207,141,255)) : Plot(0007,0022,RGBA(162,206,143,255)) : Plot(0007,0023,RGBA(100,157,079,236))
          Plot(0007,0024,RGBA(038,059,035,181)) : Plot(0007,0025,RGBA(032,048,032,032)) : Plot(0007,0026,RGBA(000,000,000,020)) : Plot(0007,0027,RGBA(000,000,000,037))
          Plot(0007,0028,RGBA(000,000,000,019)) : Plot(0007,0029,RGBA(000,000,000,002)) : Plot(0007,0030,RGBA(000,000,000,000)) : Plot(0007,0031,RGBA(000,000,000,000))
          Plot(0008,0000,RGBA(000,000,000,000)) : Plot(0008,0001,RGBA(000,000,000,000)) : Plot(0008,0002,RGBA(000,000,000,000)) : Plot(0008,0003,RGBA(036,053,033,086))
          Plot(0008,0004,RGBA(077,099,052,195)) : Plot(0008,0005,RGBA(219,233,177,254)) : Plot(0008,0006,RGBA(238,245,216,255)) : Plot(0008,0007,RGBA(235,243,211,255))
          Plot(0008,0008,RGBA(227,239,191,255)) : Plot(0008,0009,RGBA(217,232,171,255)) : Plot(0008,0010,RGBA(213,231,161,255)) : Plot(0008,0011,RGBA(209,228,150,255))
          Plot(0008,0012,RGBA(204,225,139,255)) : Plot(0008,0013,RGBA(199,223,128,255)) : Plot(0008,0014,RGBA(195,220,119,255)) : Plot(0008,0015,RGBA(152,198,084,255))
          Plot(0008,0016,RGBA(140,192,074,255)) : Plot(0008,0017,RGBA(131,188,069,255)) : Plot(0008,0018,RGBA(124,184,069,255)) : Plot(0008,0019,RGBA(117,181,069,255))
          Plot(0008,0020,RGBA(122,185,084,255)) : Plot(0008,0021,RGBA(157,204,134,255)) : Plot(0008,0022,RGBA(169,210,151,255)) : Plot(0008,0023,RGBA(167,209,149,255))
          Plot(0008,0024,RGBA(088,141,068,225)) : Plot(0008,0025,RGBA(035,054,033,108)) : Plot(0008,0026,RGBA(000,000,000,030)) : Plot(0008,0027,RGBA(000,000,000,054))
          Plot(0008,0028,RGBA(000,000,000,030)) : Plot(0008,0029,RGBA(000,000,000,004)) : Plot(0008,0030,RGBA(000,000,000,000)) : Plot(0008,0031,RGBA(000,000,000,000))
          Plot(0009,0000,RGBA(000,000,000,000)) : Plot(0009,0001,RGBA(000,000,000,000)) : Plot(0009,0002,RGBA(034,051,034,015)) : Plot(0009,0003,RGBA(046,067,038,183))
          Plot(0009,0004,RGBA(202,220,150,250)) : Plot(0009,0005,RGBA(240,246,222,255)) : Plot(0009,0006,RGBA(240,247,222,255)) : Plot(0009,0007,RGBA(232,242,203,255))
          Plot(0009,0008,RGBA(225,237,186,255)) : Plot(0009,0009,RGBA(221,235,177,255)) : Plot(0009,0010,RGBA(216,232,167,255)) : Plot(0009,0011,RGBA(211,230,156,255))
          Plot(0009,0012,RGBA(206,227,144,255)) : Plot(0009,0013,RGBA(201,224,133,255)) : Plot(0009,0014,RGBA(196,221,122,255)) : Plot(0009,0015,RGBA(154,199,087,255))
          Plot(0009,0016,RGBA(142,193,076,255)) : Plot(0009,0017,RGBA(131,188,069,255)) : Plot(0009,0018,RGBA(124,184,069,255)) : Plot(0009,0019,RGBA(117,181,069,255))
          Plot(0009,0020,RGBA(110,179,069,255)) : Plot(0009,0021,RGBA(111,179,077,255)) : Plot(0009,0022,RGBA(163,206,143,255)) : Plot(0009,0023,RGBA(176,214,160,255))
          Plot(0009,0024,RGBA(163,207,144,255)) : Plot(0009,0025,RGBA(064,106,049,207)) : Plot(0009,0026,RGBA(028,042,026,109)) : Plot(0009,0027,RGBA(000,000,000,063))
          Plot(0009,0028,RGBA(000,000,000,038)) : Plot(0009,0029,RGBA(000,000,000,006)) : Plot(0009,0030,RGBA(000,000,000,000)) : Plot(0009,0031,RGBA(000,000,000,000))
          Plot(0010,0000,RGBA(000,000,000,000)) : Plot(0010,0001,RGBA(000,000,000,000)) : Plot(0010,0002,RGBA(037,055,034,097)) : Plot(0010,0003,RGBA(130,154,082,219))
          Plot(0010,0004,RGBA(239,246,218,255)) : Plot(0010,0005,RGBA(243,248,227,255)) : Plot(0010,0006,RGBA(239,246,218,255)) : Plot(0010,0007,RGBA(231,241,200,255))
          Plot(0010,0008,RGBA(227,239,193,255)) : Plot(0010,0009,RGBA(223,236,183,255)) : Plot(0010,0010,RGBA(218,234,172,255)) : Plot(0010,0011,RGBA(213,231,160,255))
          Plot(0010,0012,RGBA(207,227,147,255)) : Plot(0010,0013,RGBA(202,224,135,255)) : Plot(0010,0014,RGBA(197,221,123,255)) : Plot(0010,0015,RGBA(155,200,089,255))
          Plot(0010,0016,RGBA(143,194,077,255)) : Plot(0010,0017,RGBA(131,188,069,255)) : Plot(0010,0018,RGBA(124,184,069,255)) : Plot(0010,0019,RGBA(117,181,069,255))
          Plot(0010,0020,RGBA(110,179,069,255)) : Plot(0010,0021,RGBA(105,176,069,255)) : Plot(0010,0022,RGBA(116,182,087,255)) : Plot(0010,0023,RGBA(176,214,160,255))
          Plot(0010,0024,RGBA(181,216,166,255)) : Plot(0010,0025,RGBA(126,182,104,248)) : Plot(0010,0026,RGBA(037,055,033,193)) : Plot(0010,0027,RGBA(000,004,000,071))
          Plot(0010,0028,RGBA(000,000,000,043)) : Plot(0010,0029,RGBA(000,000,000,008)) : Plot(0010,0030,RGBA(000,000,000,000)) : Plot(0010,0031,RGBA(000,000,000,000))
          Plot(0011,0000,RGBA(000,000,000,000)) : Plot(0011,0001,RGBA(023,046,023,011)) : Plot(0011,0002,RGBA(049,068,039,183)) : Plot(0011,0003,RGBA(215,230,168,253))
          Plot(0011,0004,RGBA(242,248,226,255)) : Plot(0011,0005,RGBA(243,248,227,255)) : Plot(0011,0006,RGBA(236,243,212,255)) : Plot(0011,0007,RGBA(232,242,203,255))
          Plot(0011,0008,RGBA(228,240,195,255)) : Plot(0011,0009,RGBA(224,237,185,255)) : Plot(0011,0010,RGBA(218,234,173,255)) : Plot(0011,0011,RGBA(213,231,161,255))
          Plot(0011,0012,RGBA(208,228,148,255)) : Plot(0011,0013,RGBA(202,224,136,255)) : Plot(0011,0014,RGBA(197,221,124,255)) : Plot(0011,0015,RGBA(155,200,089,255))
          Plot(0011,0016,RGBA(143,194,078,255)) : Plot(0011,0017,RGBA(131,188,069,255)) : Plot(0011,0018,RGBA(124,184,069,255)) : Plot(0011,0019,RGBA(117,181,069,255))
          Plot(0011,0020,RGBA(110,179,069,255)) : Plot(0011,0021,RGBA(105,176,069,255)) : Plot(0011,0022,RGBA(101,174,069,255)) : Plot(0011,0023,RGBA(148,199,126,255))
          Plot(0011,0024,RGBA(181,216,166,255)) : Plot(0011,0025,RGBA(172,211,154,255)) : Plot(0011,0026,RGBA(068,113,052,219)) : Plot(0011,0027,RGBA(020,033,020,125))
          Plot(0011,0028,RGBA(000,000,000,047)) : Plot(0011,0029,RGBA(000,000,000,011)) : Plot(0011,0030,RGBA(000,000,000,000)) : Plot(0011,0031,RGBA(000,000,000,000))
          Plot(0012,0000,RGBA(000,000,000,000)) : Plot(0012,0001,RGBA(035,052,035,059)) : Plot(0012,0002,RGBA(098,120,060,204)) : Plot(0012,0003,RGBA(235,244,210,255))
          Plot(0012,0004,RGBA(241,247,225,255)) : Plot(0012,0005,RGBA(237,245,214,255)) : Plot(0012,0006,RGBA(232,242,203,255)) : Plot(0012,0007,RGBA(231,241,200,255))
          Plot(0012,0008,RGBA(227,239,193,255)) : Plot(0012,0009,RGBA(223,236,183,255)) : Plot(0012,0010,RGBA(218,234,172,255)) : Plot(0012,0011,RGBA(213,231,160,255))
          Plot(0012,0012,RGBA(207,227,147,255)) : Plot(0012,0013,RGBA(069,068,068,255)) : Plot(0012,0014,RGBA(072,070,070,255)) : Plot(0012,0015,RGBA(068,068,068,255))
          Plot(0012,0016,RGBA(186,218,146,255)) : Plot(0012,0017,RGBA(131,188,069,255)) : Plot(0012,0018,RGBA(124,184,069,255)) : Plot(0012,0019,RGBA(117,181,069,255))
          Plot(0012,0020,RGBA(110,179,069,255)) : Plot(0012,0021,RGBA(105,176,069,255)) : Plot(0012,0022,RGBA(101,174,069,255)) : Plot(0012,0023,RGBA(110,179,080,255))
          Plot(0012,0024,RGBA(180,216,165,255)) : Plot(0012,0025,RGBA(181,216,166,255)) : Plot(0012,0026,RGBA(115,170,091,246)) : Plot(0012,0027,RGBA(029,045,029,176))
          Plot(0012,0028,RGBA(000,000,000,051)) : Plot(0012,0029,RGBA(000,000,000,014)) : Plot(0012,0030,RGBA(000,000,000,000)) : Plot(0012,0031,RGBA(000,000,000,000))
          Plot(0013,0000,RGBA(000,000,000,000)) : Plot(0013,0001,RGBA(036,055,034,120)) : Plot(0013,0002,RGBA(165,185,109,234)) : Plot(0013,0003,RGBA(239,245,218,255))
          Plot(0013,0004,RGBA(241,246,222,255)) : Plot(0013,0005,RGBA(229,240,197,255)) : Plot(0013,0006,RGBA(228,240,195,255)) : Plot(0013,0007,RGBA(227,239,193,255))
          Plot(0013,0008,RGBA(225,237,186,255)) : Plot(0013,0009,RGBA(221,235,177,255)) : Plot(0013,0010,RGBA(216,232,167,255)) : Plot(0013,0011,RGBA(211,230,156,255))
          Plot(0013,0012,RGBA(206,227,144,255)) : Plot(0013,0013,RGBA(068,068,068,255)) : Plot(0013,0014,RGBA(080,079,079,255)) : Plot(0013,0015,RGBA(082,081,081,255))
          Plot(0013,0016,RGBA(185,217,146,255)) : Plot(0013,0017,RGBA(131,188,069,255)) : Plot(0013,0018,RGBA(124,184,069,255)) : Plot(0013,0019,RGBA(117,181,069,255))
          Plot(0013,0020,RGBA(110,179,069,255)) : Plot(0013,0021,RGBA(105,176,069,255)) : Plot(0013,0022,RGBA(101,174,069,255)) : Plot(0013,0023,RGBA(101,174,069,255))
          Plot(0013,0024,RGBA(158,204,138,255)) : Plot(0013,0025,RGBA(181,216,166,255)) : Plot(0013,0026,RGBA(148,198,125,255)) : Plot(0013,0027,RGBA(041,064,035,206))
          Plot(0013,0028,RGBA(008,012,008,066)) : Plot(0013,0029,RGBA(000,000,000,015)) : Plot(0013,0030,RGBA(000,000,000,000)) : Plot(0013,0031,RGBA(000,000,000,000))
          Plot(0014,0000,RGBA(000,000,000,000)) : Plot(0014,0001,RGBA(036,055,034,143)) : Plot(0014,0002,RGBA(193,211,143,245)) : Plot(0014,0003,RGBA(236,244,214,255))
          Plot(0014,0004,RGBA(236,244,212,255)) : Plot(0014,0005,RGBA(223,236,183,255)) : Plot(0014,0006,RGBA(224,237,185,255)) : Plot(0014,0007,RGBA(223,236,183,255))
          Plot(0014,0008,RGBA(221,235,177,255)) : Plot(0014,0009,RGBA(217,232,170,255)) : Plot(0014,0010,RGBA(213,231,161,255)) : Plot(0014,0011,RGBA(209,228,150,255))
          Plot(0014,0012,RGBA(204,225,139,255)) : Plot(0014,0013,RGBA(072,072,072,255)) : Plot(0014,0014,RGBA(079,078,078,255)) : Plot(0014,0015,RGBA(080,078,078,255))
          Plot(0014,0016,RGBA(184,217,144,255)) : Plot(0014,0017,RGBA(131,188,069,255)) : Plot(0014,0018,RGBA(124,184,069,255)) : Plot(0014,0019,RGBA(117,181,069,255))
          Plot(0014,0020,RGBA(110,179,069,255)) : Plot(0014,0021,RGBA(105,176,069,255)) : Plot(0014,0022,RGBA(101,174,069,255)) : Plot(0014,0023,RGBA(101,174,069,255))
          Plot(0014,0024,RGBA(135,192,110,255)) : Plot(0014,0025,RGBA(181,216,166,255)) : Plot(0014,0026,RGBA(165,208,146,255)) : Plot(0014,0027,RGBA(048,079,040,212))
          Plot(0014,0028,RGBA(016,022,012,082)) : Plot(0014,0029,RGBA(000,000,000,016)) : Plot(0014,0030,RGBA(000,000,000,000)) : Plot(0014,0031,RGBA(000,000,000,000))
          Plot(0015,0000,RGBA(000,000,000,000)) : Plot(0015,0001,RGBA(037,055,034,173)) : Plot(0015,0002,RGBA(202,223,139,253)) : Plot(0015,0003,RGBA(235,244,210,255))
          Plot(0015,0004,RGBA(228,239,195,255)) : Plot(0015,0005,RGBA(218,234,172,255)) : Plot(0015,0006,RGBA(219,234,173,255)) : Plot(0015,0007,RGBA(218,234,172,255))
          Plot(0015,0008,RGBA(216,232,167,255)) : Plot(0015,0009,RGBA(213,231,161,255)) : Plot(0015,0010,RGBA(096,095,095,255)) : Plot(0015,0011,RGBA(099,098,098,255))
          Plot(0015,0012,RGBA(095,094,094,255)) : Plot(0015,0013,RGBA(086,085,085,255)) : Plot(0015,0014,RGBA(083,081,081,255)) : Plot(0015,0015,RGBA(076,074,074,255))
          Plot(0015,0016,RGBA(065,063,063,255)) : Plot(0015,0017,RGBA(054,053,053,255)) : Plot(0015,0018,RGBA(050,049,049,255)) : Plot(0015,0019,RGBA(171,210,141,255))
          Plot(0015,0020,RGBA(110,179,069,255)) : Plot(0015,0021,RGBA(105,176,069,255)) : Plot(0015,0022,RGBA(101,174,069,255)) : Plot(0015,0023,RGBA(101,174,069,255))
          Plot(0015,0024,RGBA(117,183,089,255)) : Plot(0015,0025,RGBA(181,216,166,255)) : Plot(0015,0026,RGBA(169,210,151,255)) : Plot(0015,0027,RGBA(062,105,047,222))
          Plot(0015,0028,RGBA(021,035,021,110)) : Plot(0015,0029,RGBA(000,000,000,017)) : Plot(0015,0030,RGBA(000,000,000,000)) : Plot(0015,0031,RGBA(000,000,000,000))
          Plot(0016,0000,RGBA(000,000,000,000)) : Plot(0016,0001,RGBA(036,056,034,179)) : Plot(0016,0002,RGBA(208,228,149,255)) : Plot(0016,0003,RGBA(231,241,201,255))
          Plot(0016,0004,RGBA(225,238,187,255)) : Plot(0016,0005,RGBA(213,231,160,255)) : Plot(0016,0006,RGBA(213,231,161,255)) : Plot(0016,0007,RGBA(213,231,160,255))
          Plot(0016,0008,RGBA(211,230,156,255)) : Plot(0016,0009,RGBA(209,228,150,255)) : Plot(0016,0010,RGBA(084,083,083,255)) : Plot(0016,0011,RGBA(097,097,097,255))
          Plot(0016,0012,RGBA(100,098,098,255)) : Plot(0016,0013,RGBA(090,088,088,255)) : Plot(0016,0014,RGBA(080,078,078,255)) : Plot(0016,0015,RGBA(072,070,070,255))
          Plot(0016,0016,RGBA(067,065,065,255)) : Plot(0016,0017,RGBA(067,065,065,255)) : Plot(0016,0018,RGBA(067,065,065,255)) : Plot(0016,0019,RGBA(171,210,141,255))
          Plot(0016,0020,RGBA(110,179,069,255)) : Plot(0016,0021,RGBA(105,176,069,255)) : Plot(0016,0022,RGBA(101,174,069,255)) : Plot(0016,0023,RGBA(101,174,069,255))
          Plot(0016,0024,RGBA(115,181,086,255)) : Plot(0016,0025,RGBA(181,216,166,255)) : Plot(0016,0026,RGBA(181,216,166,255)) : Plot(0016,0027,RGBA(063,106,047,223))
          Plot(0016,0028,RGBA(023,034,020,112)) : Plot(0016,0029,RGBA(000,000,000,017)) : Plot(0016,0030,RGBA(000,000,000,000)) : Plot(0016,0031,RGBA(000,000,000,000))
          Plot(0017,0000,RGBA(000,000,000,000)) : Plot(0017,0001,RGBA(036,055,035,168)) : Plot(0017,0002,RGBA(195,218,130,252)) : Plot(0017,0003,RGBA(224,237,186,255))
          Plot(0017,0004,RGBA(222,235,179,255)) : Plot(0017,0005,RGBA(207,227,147,255)) : Plot(0017,0006,RGBA(208,228,148,255)) : Plot(0017,0007,RGBA(207,227,147,255))
          Plot(0017,0008,RGBA(206,227,144,255)) : Plot(0017,0009,RGBA(204,225,139,255)) : Plot(0017,0010,RGBA(066,065,065,255)) : Plot(0017,0011,RGBA(076,075,075,255))
          Plot(0017,0012,RGBA(077,076,076,255)) : Plot(0017,0013,RGBA(071,070,070,255)) : Plot(0017,0014,RGBA(071,069,069,255)) : Plot(0017,0015,RGBA(068,066,066,255))
          Plot(0017,0016,RGBA(063,061,061,255)) : Plot(0017,0017,RGBA(054,053,053,255)) : Plot(0017,0018,RGBA(050,049,049,255)) : Plot(0017,0019,RGBA(171,210,141,255))
          Plot(0017,0020,RGBA(110,179,069,255)) : Plot(0017,0021,RGBA(105,176,069,255)) : Plot(0017,0022,RGBA(101,174,069,255)) : Plot(0017,0023,RGBA(101,174,069,255))
          Plot(0017,0024,RGBA(118,183,089,255)) : Plot(0017,0025,RGBA(181,216,166,255)) : Plot(0017,0026,RGBA(167,209,149,255)) : Plot(0017,0027,RGBA(061,102,046,221))
          Plot(0017,0028,RGBA(021,033,019,107)) : Plot(0017,0029,RGBA(000,000,000,017)) : Plot(0017,0030,RGBA(000,000,000,000)) : Plot(0017,0031,RGBA(000,000,000,000))
          Plot(0018,0000,RGBA(000,000,000,000)) : Plot(0018,0001,RGBA(036,055,034,143)) : Plot(0018,0002,RGBA(184,205,125,243)) : Plot(0018,0003,RGBA(222,236,180,255))
          Plot(0018,0004,RGBA(221,236,179,255)) : Plot(0018,0005,RGBA(202,224,135,255)) : Plot(0018,0006,RGBA(202,224,135,255)) : Plot(0018,0007,RGBA(202,224,135,255))
          Plot(0018,0008,RGBA(201,224,133,255)) : Plot(0018,0009,RGBA(199,223,128,255)) : Plot(0018,0010,RGBA(197,221,123,255)) : Plot(0018,0011,RGBA(194,220,118,255))
          Plot(0018,0012,RGBA(192,218,112,255)) : Plot(0018,0013,RGBA(039,039,039,255)) : Plot(0018,0014,RGBA(057,056,056,255)) : Plot(0018,0015,RGBA(067,065,065,255))
          Plot(0018,0016,RGBA(183,216,142,255)) : Plot(0018,0017,RGBA(131,188,069,255)) : Plot(0018,0018,RGBA(124,184,069,255)) : Plot(0018,0019,RGBA(117,181,069,255))
          Plot(0018,0020,RGBA(110,179,069,255)) : Plot(0018,0021,RGBA(105,176,069,255)) : Plot(0018,0022,RGBA(101,174,069,255)) : Plot(0018,0023,RGBA(101,174,069,255))
          Plot(0018,0024,RGBA(140,194,116,255)) : Plot(0018,0025,RGBA(181,216,166,255)) : Plot(0018,0026,RGBA(164,207,146,255)) : Plot(0018,0027,RGBA(048,079,040,212))
          Plot(0018,0028,RGBA(015,022,012,083)) : Plot(0018,0029,RGBA(000,000,000,016)) : Plot(0018,0030,RGBA(000,000,000,000)) : Plot(0018,0031,RGBA(000,000,000,000))
          Plot(0019,0000,RGBA(000,000,000,000)) : Plot(0019,0001,RGBA(036,055,034,112)) : Plot(0019,0002,RGBA(150,173,092,228)) : Plot(0019,0003,RGBA(222,236,180,255))
          Plot(0019,0004,RGBA(222,236,180,255)) : Plot(0019,0005,RGBA(197,221,124,255)) : Plot(0019,0006,RGBA(197,221,124,255)) : Plot(0019,0007,RGBA(197,221,123,255))
          Plot(0019,0008,RGBA(196,221,122,255)) : Plot(0019,0009,RGBA(195,220,119,255)) : Plot(0019,0010,RGBA(193,219,115,255)) : Plot(0019,0011,RGBA(191,218,110,255))
          Plot(0019,0012,RGBA(189,217,106,255)) : Plot(0019,0013,RGBA(021,020,020,255)) : Plot(0019,0014,RGBA(050,049,049,255)) : Plot(0019,0015,RGBA(067,065,065,255))
          Plot(0019,0016,RGBA(183,216,142,255)) : Plot(0019,0017,RGBA(131,188,069,255)) : Plot(0019,0018,RGBA(124,184,069,255)) : Plot(0019,0019,RGBA(117,181,069,255))
          Plot(0019,0020,RGBA(110,179,069,255)) : Plot(0019,0021,RGBA(105,176,069,255)) : Plot(0019,0022,RGBA(101,174,069,255)) : Plot(0019,0023,RGBA(101,174,069,255))
          Plot(0019,0024,RGBA(163,207,144,255)) : Plot(0019,0025,RGBA(181,216,166,255)) : Plot(0019,0026,RGBA(143,196,119,255)) : Plot(0019,0027,RGBA(038,059,034,204))
          Plot(0019,0028,RGBA(004,008,004,062)) : Plot(0019,0029,RGBA(000,000,000,016)) : Plot(0019,0030,RGBA(000,000,000,000)) : Plot(0019,0031,RGBA(000,000,000,000))
          Plot(0020,0000,RGBA(000,000,000,000)) : Plot(0020,0001,RGBA(032,056,032,055)) : Plot(0020,0002,RGBA(093,116,059,202)) : Plot(0020,0003,RGBA(216,232,166,255))
          Plot(0020,0004,RGBA(222,236,180,255)) : Plot(0020,0005,RGBA(205,226,143,255)) : Plot(0020,0006,RGBA(188,216,105,255)) : Plot(0020,0007,RGBA(192,218,112,255))
          Plot(0020,0008,RGBA(192,218,112,255)) : Plot(0020,0009,RGBA(191,218,109,255)) : Plot(0020,0010,RGBA(189,217,106,255)) : Plot(0020,0011,RGBA(188,216,103,255))
          Plot(0020,0012,RGBA(186,215,100,255)) : Plot(0020,0013,RGBA(013,012,012,255)) : Plot(0020,0014,RGBA(038,036,036,255)) : Plot(0020,0015,RGBA(050,049,049,255))
          Plot(0020,0016,RGBA(183,216,142,255)) : Plot(0020,0017,RGBA(131,188,069,255)) : Plot(0020,0018,RGBA(124,184,069,255)) : Plot(0020,0019,RGBA(117,181,069,255))
          Plot(0020,0020,RGBA(110,179,069,255)) : Plot(0020,0021,RGBA(105,176,069,255)) : Plot(0020,0022,RGBA(101,174,069,255)) : Plot(0020,0023,RGBA(113,180,084,255))
          Plot(0020,0024,RGBA(181,216,166,255)) : Plot(0020,0025,RGBA(181,216,166,255)) : Plot(0020,0026,RGBA(107,164,085,243)) : Plot(0020,0027,RGBA(030,045,027,171))
          Plot(0020,0028,RGBA(000,000,000,052)) : Plot(0020,0029,RGBA(000,000,000,015)) : Plot(0020,0030,RGBA(000,000,000,000)) : Plot(0020,0031,RGBA(000,000,000,000))
          Plot(0021,0000,RGBA(000,000,000,000)) : Plot(0021,0001,RGBA(000,043,000,006)) : Plot(0021,0002,RGBA(045,063,038,182)) : Plot(0021,0003,RGBA(194,217,131,251))
          Plot(0021,0004,RGBA(222,236,180,255)) : Plot(0021,0005,RGBA(219,234,174,255)) : Plot(0021,0006,RGBA(190,218,109,255)) : Plot(0021,0007,RGBA(186,215,100,255))
          Plot(0021,0008,RGBA(187,216,101,255)) : Plot(0021,0009,RGBA(187,216,101,255)) : Plot(0021,0010,RGBA(187,215,100,255)) : Plot(0021,0011,RGBA(186,215,099,255))
          Plot(0021,0012,RGBA(186,215,099,255)) : Plot(0021,0013,RGBA(186,215,099,255)) : Plot(0021,0014,RGBA(186,215,099,255)) : Plot(0021,0015,RGBA(145,194,072,255))
          Plot(0021,0016,RGBA(138,191,070,255)) : Plot(0021,0017,RGBA(131,188,069,255)) : Plot(0021,0018,RGBA(124,184,069,255)) : Plot(0021,0019,RGBA(117,181,069,255))
          Plot(0021,0020,RGBA(110,179,069,255)) : Plot(0021,0021,RGBA(105,176,069,255)) : Plot(0021,0022,RGBA(101,174,069,255)) : Plot(0021,0023,RGBA(154,202,133,255))
          Plot(0021,0024,RGBA(181,216,166,255)) : Plot(0021,0025,RGBA(168,209,150,255)) : Plot(0021,0026,RGBA(063,106,047,217)) : Plot(0021,0027,RGBA(019,030,017,120))
          Plot(0021,0028,RGBA(000,000,000,049)) : Plot(0021,0029,RGBA(000,000,000,013)) : Plot(0021,0030,RGBA(000,000,000,000)) : Plot(0021,0031,RGBA(000,000,000,000))
          Plot(0022,0000,RGBA(000,000,000,000)) : Plot(0022,0001,RGBA(000,000,000,000)) : Plot(0022,0002,RGBA(036,055,033,093)) : Plot(0022,0003,RGBA(115,140,071,212))
          Plot(0022,0004,RGBA(217,233,169,255)) : Plot(0022,0005,RGBA(220,235,175,255)) : Plot(0022,0006,RGBA(208,228,149,255)) : Plot(0022,0007,RGBA(186,215,100,255))
          Plot(0022,0008,RGBA(186,215,099,255)) : Plot(0022,0009,RGBA(186,215,099,255)) : Plot(0022,0010,RGBA(186,215,099,255)) : Plot(0022,0011,RGBA(186,215,099,255))
          Plot(0022,0012,RGBA(186,215,099,255)) : Plot(0022,0013,RGBA(186,215,099,255)) : Plot(0022,0014,RGBA(186,215,099,255)) : Plot(0022,0015,RGBA(145,194,072,255))
          Plot(0022,0016,RGBA(138,191,070,255)) : Plot(0022,0017,RGBA(131,188,069,255)) : Plot(0022,0018,RGBA(124,184,069,255)) : Plot(0022,0019,RGBA(117,181,069,255))
          Plot(0022,0020,RGBA(110,179,069,255)) : Plot(0022,0021,RGBA(105,176,069,255)) : Plot(0022,0022,RGBA(123,186,096,255)) : Plot(0022,0023,RGBA(176,214,160,255))
          Plot(0022,0024,RGBA(181,216,166,255)) : Plot(0022,0025,RGBA(119,175,096,245)) : Plot(0022,0026,RGBA(032,050,030,169)) : Plot(0022,0027,RGBA(000,000,000,069))
          Plot(0022,0028,RGBA(000,000,000,046)) : Plot(0022,0029,RGBA(000,000,000,010)) : Plot(0022,0030,RGBA(000,000,000,000)) : Plot(0022,0031,RGBA(000,000,000,000))
          Plot(0023,0000,RGBA(000,000,000,000)) : Plot(0023,0001,RGBA(000,000,000,000)) : Plot(0023,0002,RGBA(000,000,000,004)) : Plot(0023,0003,RGBA(041,061,037,181))
          Plot(0023,0004,RGBA(181,205,116,245)) : Plot(0023,0005,RGBA(219,234,174,255)) : Plot(0023,0006,RGBA(217,233,168,255)) : Plot(0023,0007,RGBA(200,223,131,255))
          Plot(0023,0008,RGBA(186,215,099,255)) : Plot(0023,0009,RGBA(186,215,099,255)) : Plot(0023,0010,RGBA(186,215,099,255)) : Plot(0023,0011,RGBA(186,215,099,255))
          Plot(0023,0012,RGBA(186,215,099,255)) : Plot(0023,0013,RGBA(186,215,099,255)) : Plot(0023,0014,RGBA(186,215,099,255)) : Plot(0023,0015,RGBA(145,194,072,255))
          Plot(0023,0016,RGBA(138,191,070,255)) : Plot(0023,0017,RGBA(131,188,069,255)) : Plot(0023,0018,RGBA(124,184,069,255)) : Plot(0023,0019,RGBA(117,181,069,255))
          Plot(0023,0020,RGBA(110,179,069,255)) : Plot(0023,0021,RGBA(115,181,081,255)) : Plot(0023,0022,RGBA(166,208,147,255)) : Plot(0023,0023,RGBA(176,214,160,255))
          Plot(0023,0024,RGBA(155,202,134,255)) : Plot(0023,0025,RGBA(058,095,047,201)) : Plot(0023,0026,RGBA(027,039,024,105)) : Plot(0023,0027,RGBA(000,000,000,066))
          Plot(0023,0028,RGBA(000,000,000,041)) : Plot(0023,0029,RGBA(000,000,000,007)) : Plot(0023,0030,RGBA(000,000,000,000)) : Plot(0023,0031,RGBA(000,000,000,000))
          Plot(0024,0000,RGBA(000,000,000,000)) : Plot(0024,0001,RGBA(000,000,000,000)) : Plot(0024,0002,RGBA(000,000,000,000)) : Plot(0024,0003,RGBA(036,056,033,078))
          Plot(0024,0004,RGBA(064,086,047,190)) : Plot(0024,0005,RGBA(195,217,131,251)) : Plot(0024,0006,RGBA(217,233,168,255)) : Plot(0024,0007,RGBA(213,231,160,255))
          Plot(0024,0008,RGBA(201,224,133,255)) : Plot(0024,0009,RGBA(187,216,102,255)) : Plot(0024,0010,RGBA(186,215,099,255)) : Plot(0024,0011,RGBA(186,215,099,255))
          Plot(0024,0012,RGBA(186,215,099,255)) : Plot(0024,0013,RGBA(186,215,099,255)) : Plot(0024,0014,RGBA(186,215,099,255)) : Plot(0024,0015,RGBA(145,194,072,255))
          Plot(0024,0016,RGBA(138,191,070,255)) : Plot(0024,0017,RGBA(131,188,069,255)) : Plot(0024,0018,RGBA(124,184,069,255)) : Plot(0024,0019,RGBA(117,181,069,255))
          Plot(0024,0020,RGBA(128,188,092,255)) : Plot(0024,0021,RGBA(160,205,138,255)) : Plot(0024,0022,RGBA(169,210,151,255)) : Plot(0024,0023,RGBA(163,207,144,255))
          Plot(0024,0024,RGBA(078,127,060,217)) : Plot(0024,0025,RGBA(035,054,033,108)) : Plot(0024,0026,RGBA(000,000,000,034)) : Plot(0024,0027,RGBA(000,000,000,059))
          Plot(0024,0028,RGBA(000,000,000,034)) : Plot(0024,0029,RGBA(000,000,000,005)) : Plot(0024,0030,RGBA(000,000,000,000)) : Plot(0024,0031,RGBA(000,000,000,000))
          Plot(0025,0000,RGBA(000,000,000,000)) : Plot(0025,0001,RGBA(000,000,000,000)) : Plot(0025,0002,RGBA(000,000,000,000)) : Plot(0025,0003,RGBA(000,000,000,000))
          Plot(0025,0004,RGBA(036,055,033,093)) : Plot(0025,0005,RGBA(083,105,054,197)) : Plot(0025,0006,RGBA(197,219,133,252)) : Plot(0025,0007,RGBA(213,231,160,255))
          Plot(0025,0008,RGBA(208,228,150,255)) : Plot(0025,0009,RGBA(203,225,137,255)) : Plot(0025,0010,RGBA(193,219,114,255)) : Plot(0025,0011,RGBA(187,216,101,255))
          Plot(0025,0012,RGBA(186,215,099,255)) : Plot(0025,0013,RGBA(186,215,099,255)) : Plot(0025,0014,RGBA(186,215,099,255)) : Plot(0025,0015,RGBA(145,194,072,255))
          Plot(0025,0016,RGBA(138,191,070,255)) : Plot(0025,0017,RGBA(131,188,070,255)) : Plot(0025,0018,RGBA(132,188,081,255)) : Plot(0025,0019,RGBA(146,196,108,255))
          Plot(0025,0020,RGBA(157,204,130,255)) : Plot(0025,0021,RGBA(163,207,141,255)) : Plot(0025,0022,RGBA(157,204,137,255)) : Plot(0025,0023,RGBA(090,143,070,227))
          Plot(0025,0024,RGBA(036,055,033,107)) : Plot(0025,0025,RGBA(016,032,016,016)) : Plot(0025,0026,RGBA(000,000,000,025)) : Plot(0025,0027,RGBA(000,000,000,045))
          Plot(0025,0028,RGBA(000,000,000,024)) : Plot(0025,0029,RGBA(000,000,000,002)) : Plot(0025,0030,RGBA(000,000,000,000)) : Plot(0025,0031,RGBA(000,000,000,000))
          Plot(0026,0000,RGBA(000,000,000,000)) : Plot(0026,0001,RGBA(000,000,000,000)) : Plot(0026,0002,RGBA(000,000,000,000)) : Plot(0026,0003,RGBA(000,000,000,000))
          Plot(0026,0004,RGBA(000,000,000,000)) : Plot(0026,0005,RGBA(035,054,035,095)) : Plot(0026,0006,RGBA(067,087,047,191)) : Plot(0026,0007,RGBA(181,205,113,245))
          Plot(0026,0008,RGBA(206,227,146,255)) : Plot(0026,0009,RGBA(204,226,140,255)) : Plot(0026,0010,RGBA(200,223,130,255)) : Plot(0026,0011,RGBA(195,220,120,255))
          Plot(0026,0012,RGBA(190,218,109,255)) : Plot(0026,0013,RGBA(187,216,101,255)) : Plot(0026,0014,RGBA(186,215,099,255)) : Plot(0026,0015,RGBA(147,195,075,255))
          Plot(0026,0016,RGBA(144,194,079,255)) : Plot(0026,0017,RGBA(147,197,093,255)) : Plot(0026,0018,RGBA(150,198,105,255)) : Plot(0026,0019,RGBA(153,200,118,255))
          Plot(0026,0020,RGBA(157,204,130,255)) : Plot(0026,0021,RGBA(141,194,113,254)) : Plot(0026,0022,RGBA(074,121,057,213)) : Plot(0026,0023,RGBA(036,055,033,107))
          Plot(0026,0024,RGBA(030,053,030,034)) : Plot(0026,0025,RGBA(000,000,000,001)) : Plot(0026,0026,RGBA(000,000,000,014)) : Plot(0026,0027,RGBA(000,000,000,026))
          Plot(0026,0028,RGBA(000,000,000,013)) : Plot(0026,0029,RGBA(000,000,000,001)) : Plot(0026,0030,RGBA(000,000,000,000)) : Plot(0026,0031,RGBA(000,000,000,000))
          Plot(0027,0000,RGBA(000,000,000,000)) : Plot(0027,0001,RGBA(000,000,000,000)) : Plot(0027,0002,RGBA(000,000,000,000)) : Plot(0027,0003,RGBA(000,000,000,000))
          Plot(0027,0004,RGBA(000,000,000,000)) : Plot(0027,0005,RGBA(000,000,000,000)) : Plot(0027,0006,RGBA(035,054,032,080)) : Plot(0027,0007,RGBA(046,067,038,183))
          Plot(0027,0008,RGBA(126,148,075,217)) : Plot(0027,0009,RGBA(190,216,117,252)) : Plot(0027,0010,RGBA(198,222,126,255)) : Plot(0027,0011,RGBA(195,220,120,255))
          Plot(0027,0012,RGBA(191,218,111,255)) : Plot(0027,0013,RGBA(188,216,104,255)) : Plot(0027,0014,RGBA(186,215,099,255)) : Plot(0027,0015,RGBA(148,196,078,255))
          Plot(0027,0016,RGBA(147,196,085,255)) : Plot(0027,0017,RGBA(148,197,094,255)) : Plot(0027,0018,RGBA(149,198,105,255)) : Plot(0027,0019,RGBA(141,194,102,255))
          Plot(0027,0020,RGBA(105,158,076,235)) : Plot(0027,0021,RGBA(053,086,042,193)) : Plot(0027,0022,RGBA(035,054,035,103)) : Plot(0027,0023,RGBA(000,000,000,004))
          Plot(0027,0024,RGBA(000,000,000,000)) : Plot(0027,0025,RGBA(000,000,000,000)) : Plot(0027,0026,RGBA(000,000,000,005)) : Plot(0027,0027,RGBA(000,000,000,009))
          Plot(0027,0028,RGBA(000,000,000,004)) : Plot(0027,0029,RGBA(000,000,000,000)) : Plot(0027,0030,RGBA(000,000,000,000)) : Plot(0027,0031,RGBA(000,000,000,000))
          Plot(0028,0000,RGBA(000,000,000,000)) : Plot(0028,0001,RGBA(000,000,000,000)) : Plot(0028,0002,RGBA(000,000,000,000)) : Plot(0028,0003,RGBA(000,000,000,000))
          Plot(0028,0004,RGBA(000,000,000,000)) : Plot(0028,0005,RGBA(000,000,000,000)) : Plot(0028,0006,RGBA(000,000,000,000)) : Plot(0028,0007,RGBA(020,039,020,013))
          Plot(0028,0008,RGBA(037,055,034,097)) : Plot(0028,0009,RGBA(051,071,040,184)) : Plot(0028,0010,RGBA(114,140,069,212)) : Plot(0028,0011,RGBA(158,186,091,235))
          Plot(0028,0012,RGBA(184,211,103,251)) : Plot(0028,0013,RGBA(187,216,102,255)) : Plot(0028,0014,RGBA(186,215,099,255)) : Plot(0028,0015,RGBA(147,195,076,255))
          Plot(0028,0016,RGBA(142,193,077,254)) : Plot(0028,0017,RGBA(127,175,075,243)) : Plot(0028,0018,RGBA(097,142,059,224)) : Plot(0028,0019,RGBA(060,091,044,196))
          Plot(0028,0020,RGBA(036,055,034,126)) : Plot(0028,0021,RGBA(034,053,034,053)) : Plot(0028,0022,RGBA(000,000,000,000)) : Plot(0028,0023,RGBA(000,000,000,000))
          Plot(0028,0024,RGBA(000,000,000,000)) : Plot(0028,0025,RGBA(000,000,000,000)) : Plot(0028,0026,RGBA(000,000,000,001)) : Plot(0028,0027,RGBA(000,000,000,001))
          Plot(0028,0028,RGBA(000,000,000,001)) : Plot(0028,0029,RGBA(000,000,000,000)) : Plot(0028,0030,RGBA(000,000,000,000)) : Plot(0028,0031,RGBA(000,000,000,000))
          Plot(0029,0000,RGBA(000,000,000,000)) : Plot(0029,0001,RGBA(000,000,000,000)) : Plot(0029,0002,RGBA(000,000,000,000)) : Plot(0029,0003,RGBA(000,000,000,000))
          Plot(0029,0004,RGBA(000,000,000,000)) : Plot(0029,0005,RGBA(000,000,000,000)) : Plot(0029,0006,RGBA(000,000,000,000)) : Plot(0029,0007,RGBA(000,000,000,000))
          Plot(0029,0008,RGBA(000,000,000,000)) : Plot(0029,0009,RGBA(020,039,020,013)) : Plot(0029,0010,RGBA(036,056,033,078)) : Plot(0029,0011,RGBA(037,055,033,131))
          Plot(0029,0012,RGBA(036,055,034,171)) : Plot(0029,0013,RGBA(055,077,043,186)) : Plot(0029,0014,RGBA(064,086,047,190)) : Plot(0029,0015,RGBA(053,077,041,188))
          Plot(0029,0016,RGBA(039,059,035,181)) : Plot(0029,0017,RGBA(036,054,034,150)) : Plot(0029,0018,RGBA(036,056,034,105)) : Plot(0029,0019,RGBA(032,051,032,040))
          Plot(0029,0020,RGBA(000,000,000,000)) : Plot(0029,0021,RGBA(000,000,000,000)) : Plot(0029,0022,RGBA(000,000,000,000)) : Plot(0029,0023,RGBA(000,000,000,000))
          Plot(0029,0024,RGBA(000,000,000,000)) : Plot(0029,0025,RGBA(000,000,000,000)) : Plot(0029,0026,RGBA(000,000,000,000)) : Plot(0029,0027,RGBA(000,000,000,000))
          Plot(0029,0028,RGBA(000,000,000,000)) : Plot(0029,0029,RGBA(000,000,000,000)) : Plot(0029,0030,RGBA(000,000,000,000)) : Plot(0029,0031,RGBA(000,000,000,000))
          Plot(0030,0000,RGBA(000,000,000,000)) : Plot(0030,0001,RGBA(000,000,000,000)) : Plot(0030,0002,RGBA(000,000,000,000)) : Plot(0030,0003,RGBA(000,000,000,000))
          Plot(0030,0004,RGBA(000,000,000,000)) : Plot(0030,0005,RGBA(000,000,000,000)) : Plot(0030,0006,RGBA(000,000,000,000)) : Plot(0030,0007,RGBA(000,000,000,000))
          Plot(0030,0008,RGBA(000,000,000,000)) : Plot(0030,0009,RGBA(000,000,000,000)) : Plot(0030,0010,RGBA(000,000,000,000)) : Plot(0030,0011,RGBA(000,000,000,000))
          Plot(0030,0012,RGBA(000,000,000,000)) : Plot(0030,0013,RGBA(030,045,030,017)) : Plot(0030,0014,RGBA(031,051,031,025)) : Plot(0030,0015,RGBA(036,049,024,021))
          Plot(0030,0016,RGBA(000,000,000,004)) : Plot(0030,0017,RGBA(000,000,000,000)) : Plot(0030,0018,RGBA(000,000,000,000)) : Plot(0030,0019,RGBA(000,000,000,000))
          Plot(0030,0020,RGBA(000,000,000,000)) : Plot(0030,0021,RGBA(000,000,000,000)) : Plot(0030,0022,RGBA(000,000,000,000)) : Plot(0030,0023,RGBA(000,000,000,000))
          Plot(0030,0024,RGBA(000,000,000,000)) : Plot(0030,0025,RGBA(000,000,000,000)) : Plot(0030,0026,RGBA(000,000,000,000)) : Plot(0030,0027,RGBA(000,000,000,000))
          Plot(0030,0028,RGBA(000,000,000,000)) : Plot(0030,0029,RGBA(000,000,000,000)) : Plot(0030,0030,RGBA(000,000,000,000)) : Plot(0030,0031,RGBA(000,000,000,000))
          Plot(0031,0000,RGBA(000,000,000,000)) : Plot(0031,0001,RGBA(000,000,000,000)) : Plot(0031,0002,RGBA(000,000,000,000)) : Plot(0031,0003,RGBA(000,000,000,000))
          Plot(0031,0004,RGBA(000,000,000,000)) : Plot(0031,0005,RGBA(000,000,000,000)) : Plot(0031,0006,RGBA(000,000,000,000)) : Plot(0031,0007,RGBA(000,000,000,000))
          Plot(0031,0008,RGBA(000,000,000,000)) : Plot(0031,0009,RGBA(000,000,000,000)) : Plot(0031,0010,RGBA(000,000,000,000)) : Plot(0031,0011,RGBA(000,000,000,000))
          Plot(0031,0012,RGBA(000,000,000,000)) : Plot(0031,0013,RGBA(000,000,000,000)) : Plot(0031,0014,RGBA(000,000,000,000)) : Plot(0031,0015,RGBA(000,000,000,000))
          Plot(0031,0016,RGBA(000,000,000,000)) : Plot(0031,0017,RGBA(000,000,000,000)) : Plot(0031,0018,RGBA(000,000,000,000)) : Plot(0031,0019,RGBA(000,000,000,000))
          Plot(0031,0020,RGBA(000,000,000,000)) : Plot(0031,0021,RGBA(000,000,000,000)) : Plot(0031,0022,RGBA(000,000,000,000)) : Plot(0031,0023,RGBA(000,000,000,000))
          Plot(0031,0024,RGBA(000,000,000,000)) : Plot(0031,0025,RGBA(000,000,000,000)) : Plot(0031,0026,RGBA(000,000,000,000)) : Plot(0031,0027,RGBA(000,000,000,000))
          Plot(0031,0028,RGBA(000,000,000,000)) : Plot(0031,0029,RGBA(000,000,000,000)) : Plot(0031,0030,RGBA(000,000,000,000)) : Plot(0031,0031,RGBA(000,000,000,000))

          StopDrawing()
          SetGadgetAttribute(#Btnbuttons_19,#PB_Button_Image,ImageID(iImage))
    EndIf
EndProcedure

wFlags = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
OpenWindow(#MainWindow, #PB_Any, #PB_Any, 300, 300, "Image Button Example", wFlags)

ButtonImageGadget(#Btnbuttons_19, 30, 30, 38, 38, 0)

DrawBtnbuttons_19()

While WaitWindowEvent() ! #PB_Event_CloseWindow : CloseWindow : Wend

Posted: **Sat Jul 28, 2012 9:04 am**

electrochrisso wrote:I have changed the code to handle RGBA, seems to work for me.
Thanks for the tip on how to use the procedure properly TI-994A

Hi electrochrisso. Very nice one with the transparency! And thank you for the kind mention, although I didn't really do anything.

PureBasic Forums - English

ImageButtonGadget images

ImageButtonGadget images

Re: ImageButtonGadget images

Re: ImageButtonGadget images

Re: ImageButtonGadget images

Re: ImageButtonGadget images

Re: ImageButtonGadget images

Re: ImageButtonGadget images

Re: ImageButtonGadget images

Re: ImageButtonGadget images

Re: ImageButtonGadget images

Re: ImageButtonGadget images

Re: ImageButtonGadget images

Re: ImageButtonGadget images

Re: ImageButtonGadget images

Re: ImageButtonGadget images