PureBoard

Code: Alles auswählen

;{- Information
; Folker Linstedt 2006
;  Stand   13.04.2006
;  Anfang: 11.04.2006
;}/
;aus "capture.pb" und "inc.pb"
Enumeration
#Link2
#Link3


#Sprite3D
#Sprite3D2
EndEnumeration

Dim Farbe.b(4)

Dim Feld.b(15,15)
Dim Sprites.l(15,15)
Dim Sp3D.l(15,15)


;- Window Constants 
Global hWnd 
Enumeration 
  #Window_0 
EndEnumeration 

;- Gadget Constants 
Enumeration 
  #Button_0 
EndEnumeration 

Procedure Open_Window_0() 
  hWnd=OpenWindow(#Window_0, 0, 0, 410, 410,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "(c) Folker Linstedt 2006 - Desktop muss: 32 Bit BGR sein") 
  
EndProcedure 


#WM_CAP_START = #WM_USER 
#WM_CAP_SET_CALLBACK_ERROR = #WM_CAP_START + 2 
#WM_CAP_SET_CALLBACK_STATUS = #WM_CAP_START + 3 
#WM_CAP_SET_CALLBACK_YIELD = #WM_CAP_START + 4 
#WM_CAP_SET_CALLBACK_FRAME = #WM_CAP_START + 5 
#WM_CAP_SET_CALLBACK_VIDEOSTREAM = #WM_CAP_START + 6 
#WM_CAP_SET_CALLBACK_WAVESTREAM = #WM_CAP_START + 7 
#WM_CAP_DRIVER_CONNECT = #WM_CAP_START + 10 
#WM_CAP_DRIVER_DISCONNECT = #WM_CAP_START + 11 
#WM_CAP_DRIVER_GET_CAPS = #WM_CAP_START + 14 
#WM_CAP_DLG_VIDEOFORMAT = #WM_CAP_START + 41 
#WM_CAP_DLG_VIDEOSOURCE = #WM_CAP_START + 42 
#WM_CAP_DLG_VIDEODISPLAY = #WM_CAP_START + 43 
#WM_CAP_SET_PREVIEW = #WM_CAP_START + 50 
#WM_CAP_SET_PREVIEWRATE = #WM_CAP_START + 52 
#WM_CAP_GET_STATUS = #WM_CAP_START + 54 
#WM_CAP_FILE_SAVEDIB = #WM_CAP_START + 25 
#WM_CAP_SET_SCALE = #WM_CAP_START + 53 
#WM_CAP_SET_CALLBACK_CAPCONTROL = #WM_CAP_START + 85 

#WM_CAP_EDIT_COPY = #WM_CAP_START + 30 
#WM_CAP_GRAB_FRAME = #WM_CAP_START+60 

InitSprite() 
InitSprite3D()
Rotate=0

Open_Window_0() 
OpenWindowedScreen(WindowID(),0,0,400,400,0,0,0)

OpenLibrary(0, "AVICAP32.DLL") 

hRobby = CallFunction(0, "capCreateCaptureWindowA", "Test",  #WS_CHILD, 0, 0, 384, 288, hWnd, 0) 
SendMessage_(hRobby, #WM_CAP_DRIVER_CONNECT, 0 , 0) 

Sprite3DQuality(1)

CreateSprite(#Link2,128,128,#PB_Sprite_Texture)
 
*Pointer =AllocateMemory(128*128*4)
*Pointer2=AllocateMemory(128*128*4)


For b=0 To 15
For a=0 To 15

  Sprites(a,b)=b*16+a+1000
  Sprites(a,b)=b*16+a+2000
  CreateSprite(Sprites(a,b),8,8,#PB_Sprite_Texture)
  StartDrawing(SpriteOutput(Sprites(a,b)))
    Box(0,0,7,7,RGB(127,127,127))
  StopDrawing()
  CreateSprite3D(Sp3D(a,b),Sprites(a,b))
Next
Next




Rausch=20
Repeat
  
  Event = WindowEvent() ; This line waits until an event is received from Windows 
  ; WaitWindowEvent()
  WindowID = EventWindowID() ; The Window where the event is generated, can be used in the gadget procedures 
  GadgetID = EventGadgetID() ; Is it a gadget event? 
  EventType = EventType() ; The event type 
  
  Link = GetClipboardData(#PB_ClipboardImage) 
       
      If Link <> 0        
       ClearScreen(0,0,0) ; Schwarz
        
        StartDrawing(SpriteOutput(#Link2))
        DrawImage(Link,0,0,128, 128)
         
        *Bild=DrawingBuffer()
        CopyMemory(*Bild, *Pointer, 128*128*4)
        If DrawingBufferPixelFormat() =  #PB_PixelFormat_32Bits_BGR : DrawText("32 Bit BGR") : EndIf
        
        StopDrawing()
        
        CopySprite(#Link2, #Link3, #PB_Sprite_Texture)
        CreateSprite3D(#Sprite3D, #Link3)
        
        ;{- Berechnungen
        ;R=-10+Random(Rausch)
        For i2=0 To 126 ; Bei 127 gibts noch ungeklärte Probleme
        For i=0 To 127
        
          P=127-i
          Farbe(0)=PeekB(*Pointer+i2*128*4+P*4+0)
          Farbe(1)=PeekB(*Pointer+i2*128*4+P*4+1)
          Farbe(2)=PeekB(*Pointer+i2*128*4+P*4+2)
          Farbe(3)=PeekB(*Pointer+i2*128*4+P*4+3)
        
          Farbe(4)=(Farbe(0)+Farbe(1)+Farbe(2))/3 ; Grau ... aber irgendwie nicht richtig
           ;R=Random(Rausch) 
          ;PokeB(*Pointer2+i2*128*4+i*4+0, Farbe(2)+R) ; Blue
          ;PokeB(*Pointer2+i2*128*4+i*4+1, Farbe(2)+R); Green
          ;PokeB(*Pointer2+i2*128*4+i*4+2, Farbe(2)+R); Red ... Rot ist am hellsten
          ;PokeB(*Pointer2+i2*128*4+i*4+3, Farbe(3)) ; Alpha
          
          v0=70
          v1=35
          v2=0
          ; If Farbe(0) <v0 And Farbe(1)<v1 And Farbe(2)<v2 ; Kantenfinden, wenn v2=50
            If (Farbe(0) <v0 And Farbe(1)<v1 And Farbe(2)>v2)<>1
             
              Farbe(0)=0
              Farbe(1)=0
              Farbe(2)=0
             
              Else  
              Farbe(0)=255
              Farbe(1)=255
              Farbe(2)=255
            EndIf
            
          For f=0 To 3  
            PokeB(*Pointer2+i2*128*4+i*4+f, Farbe(f))
          Next
          
          ;PokeB(*Pointer2+i2*128*4+i*4+3, Farbe(3)) ; Alpha
          
          
        Next i
        Next i2
        
        
        For b=0 To 15
        For a=0 To 15
        q=0
        
          For y=0 To 7
          For x=0 To 7
          
            xa=8*a+x
           ; Debug xa
            ya=8*b+y
            If  PeekB(*Pointer2+ya*128*4+xa*4) < 0 ; Gibt ja nur Schwarz und Weiß ... aber krisselt
              q=q+1
            EndIf
        
          Next
          Next
          If q>15 ; Mehr als ... bestimmt Anzahl der roten Punkte indirekt
            Feld(a,b)=1
          Else 
            Feld(a,b)=0
          EndIf
        
        Next
        Next
        
        ;/ Berechnungen zur Positionsbestimmung
        
        
        
        ;}- Ende Berechnungen
        
        CopyMemory(*Pointer2, *Bild, 128*128*4)
        
        CreateSprite3D(#Sprite3D2, #Link2)
        
        Rotate=(Rotate+3)%360
        ZoomSprite3D(#Sprite3D2,192,144)
       ; RotateSprite3D(#Sprite3D,Rotate,0)
        Start3D()
         DisplaySprite3D(#Sprite3D, 60, 60)
         DisplaySprite3D(#Sprite3D2, 180, 180)
         
         For b=0 To 15
           For a=0 To 15
              StartDrawing(SpriteOutput(Sprites(a,b)))
               If Feld(a,b)=1
                Box(0,0,7,7,RGB(255,0,0))
                Else
                Box(0,0,7,7,RGB(127,127,127)) 
                EndIf 
              StopDrawing()
              CreateSprite3D(Sp3D(a,b),Sprites(a,b))
             
            
            DisplaySprite3D(Sp3D(a,b),5+8*a,200+8*b) 
           Next
         Next
         
        Stop3D()
    
      EndIf 
 ;/ 
  SendMessage_(hRobby, #WM_CAP_GRAB_FRAME, 0 , 0) 
  SendMessage_(hRobby, #WM_CAP_EDIT_COPY, 0 , 0) ; SendMessage_(hRobby, #WM_CAP_EDIT_COPY   ,0,0); kopiert Bild ins Clipboard
  
  Delay(10) ; Prozessorauslastung verhindern ... vielleicht ;-) 
  FlipBuffers()
  
Until Event = #PB_Event_CloseWindow ; End of the event loop 

SendMessage_(hRobby, #WM_CAP_SET_PREVIEW, 0, 0) 
SendMessage_(hRobby, #WM_CAP_DRIVER_DISCONNECT, "Test", 0) 
CloseWindow(0) 
CloseLibrary(0) 

End