PureBasic Forums - English

Code: Select all

EnableExplicit
Procedure CreateFancyImage(ID, w, h, mode=0)
   Protected img, x, y, c
   Protected result=CreateImage(ID, w, h, 32)
   If ID=#PB_Any : ID=result : EndIf
   StartDrawing(ImageOutput(ID))
      For y=0 To OutputHeight()-1
         For x=0 To OutputWidth()-1
            Select mode
               Case 0
                  ;// chain
                  c=Int(x*1.4)%200 ! Int(y*1.3)%233
               Case 1
                  ;// wall
                  c=Int(x*2)%30 | ~Int(y*1.3)%233 & $FF
               Case 2
                  ;// perspective
                  c=x%(y+1)
               Case 3
                  ;// pavement
                  c=x ! y
               Case 4
                  ;// noise screen
                  c=(x & $FF)*(y & $FF)
               Case 5
                  ;// castle
                  c=x-(y ! x & $FFFF)
               Case 6
                  ;// strips
                  c=y+(x % 100)
               Case 7
                  ;// strips hashed
                  c=(y+(x % 100) & $FF) ! ((x+y) & $FF)
               Case 8
                  ;// Left Arrow
                  Define xx=x%512
                  Define yy=y%512
                  c=Abs(xx-Abs(yy-256))
               Default
                  MessageRequester("CreateFancyImage", "mode "+Str(mode)+" not defined!")
                  End
            EndSelect
            Plot(x, y, RGB(c, 0, c/3))
         Next
      Next
   StopDrawing()
   ProcedureReturn result
EndProcedure
DisableExplicit

; ********************
; EXAMPLE @ eddy
; ********************

#imgsize=1024
CreateFancyImage(10, #imgsize, #imgsize, 0)
#w=800
#h=600
OpenWindow(0, 0, 0, #w, #h, "Click to switch image mode", #PB_Window_ScreenCentered | #PB_Window_SystemMenu)
ScrollAreaGadget(1, 0, 0, #w, #h, ImageWidth(10), ImageHeight(10))
ImageGadget(0, 0, 0, 0, 0, ImageID(10))
CloseGadgetList()
Repeat
   e=WaitWindowEvent()
   If e=#PB_Event_Gadget
      mode=(mode+1)%9
      CreateFancyImage(10, #imgsize, #imgsize, mode)
      SetGadgetState(0, ImageID(10))
   EndIf
Until e=#PB_Event_CloseWindow