purebasic.info

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

If OpenWindow(0, 0, 0, 400, 200, "2DDrawing Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    If CreateImage(0, 400, 200) And StartDrawing(ImageOutput(0))
      Box(0, 0, 400, 200, $FFFFFF)
      
      DrawingMode(#PB_2DDrawing_Gradient)      
      BackColor($00FFFF)
      FrontColor($FF0000)
      
      LinearGradient(0, 0, 200, 200)    
      Circle(100, 100, 100)   
      LinearGradient(350, 100, 250, 100)
      Circle(300, 100, 100)
      
      StopDrawing() 
      ImageGadget(0, 0, 0, 400, 200, ImageID(0))
    EndIf
    
    Repeat
      Event = WaitWindowEvent()
    Until Event = #PB_Event_CloseWindow
  EndIf
 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39

{ Windows
Enumeration
  #Window_0
EndEnumeration
;}
;{ Gadgets
Enumeration
  #Button_0
EndEnumeration
;}
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
;}
Procedure OpenWindow_Window_0()
  If OpenWindow(#Window_0, 725, 142, 400, 400, "Window_0", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
     AddWindowTimer(0, 123, 10)
   EndIf
EndProcedure
 
OpenWindow_Window_0()
SetWindowColor(#Window_0, RGB(255,0,0))
;{- Event loop
Repeat
  Event = WaitWindowEvent()
  Select Event
       Case #PB_Event_Timer 
      If i<254:i+1:Else: i=0:EndIf
      SetWindowColor(#Window_0, RGB(255-i,i,0))
      
    Case #PB_Event_CloseWindow
      EventWindow = EventWindow()
      If EventWindow = #Window_0
        CloseWindow(#Window_0)
        Break
      EndIf
  EndSelect
ForEver
;
;}
 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

Procedure MorphColor(Color1, Color2, iSteps)
  
  Protected x.f    = 1/iSteps
  Protected Color0 = Color1
  
  Repeat
    Sleep_(20) ; еще одна точка контроля анимации
    Color1 = RGB((1-x)*|!REG3XP3!>Red(Color0)+x*|!REG3XP3!>Red(Color2),(1-x)*|!REG3XP3!>Green(Color0)+x*|!REG3XP3!>Green(Color2),(1-x)*|!REG3XP3!>Blue(Color0)+x*|!REG3XP3!>Blue(Color2))
    x.f+1/iSteps
    
    
    StartDrawing(WindowOutput(0))
    Box(0,   0, 160, 320, Color1)
    StopDrawing()
  Until x>1
  
EndProcedure
 
 
OpenWindow(0,0,0,320,320,"Color2color",#PB_Window_ScreenCentered|#PB_Window_SystemMenu)
 
steps = 90 
 
Repeat
  
  Color1.l = RGB(Random(255),Random(255),Random(255))
  Color2.l = RGB(Random(255),Random(255),Random(255))
  
  StartDrawing(WindowOutput(0))
  Box(160, 0, 160, 320, Color2)
  StopDrawing()
  
  MorphColor(Color1, Color2, steps) ; правильно делать такие штуки в потоке (для демки сойдет и так)
  Sleep_(500)
Until WindowEvent()=#PB_Event_CloseWindow