PureBasic Forums - English

Code: Select all

@prepare_midi
hMidiIn& = 1
IdMidiIn& = 1
~@@midiInOpen(V:hMidiIn&,IdMidiIn&,WIN(1),0,CALLBACK_WINDOW%)
~@@midiInStart(hMidiIn&)
PROCEDURE prepare_midi
  DLL #1, "mmsystem.dll"
    DECL LONG timeSetEvent(w,w,l,l,w)
    DECL LONG timeKillEvent(w)
    DECL LONG midiOutShortMsg(w,l)
    DECL LONG midiOutOpen(l,w,l,l,l)
    DECL LONG midiOutClose(w)
    DECL LONG timeGetDevCaps(l,w)
    DECL LONG timeBeginPeriod(w)
    DECL LONG timeEndPeriod(w)
    DECL WORD midiInGetNumDevs()
    DECL WORD midiInGetDevCaps(w,l,w)
    DECL LONG midiInOpen(l,w,l,l,l)
    DECL LONG midiInStart(w)
    DECL LONG midiInStop(w)
    DECL LONG midiInClose(w)
    DECL WORD midiOutGetNumDevs()
    DECL WORD midiOutGetDevCaps(w,l,w)
    DECL WORD midiOutGetErrorText(w,l,w)
  ENDDLL
  LET CALLBACK_WINDOW% = $10000
  LET CALLBACK_FUNCTION% = $30000
  LET MM_MIM_DATA& = $3C3
  LET  MMSYSERR_ERROR&        = 1 /* unspecified error */
  LET  MMSYSERR_BADDEVICEID&  = 2  /* device ID out of range
  LET  MMSYSERR_NOTENABLED&   = 3  /* driver failed enable
  LET  MMSYSERR_ALLOCATED     = 4  /* device already allocated /*
  RETURN

Code: Select all

;Binary raster operation - october 7 - 2003 - by Einander 
;Combines the bits from the selected pen with the bits in the destination bitmap. 
;(Bit-block transfer of color Data from source DC into a destination DC) 

; -********Choose your BitMap on line 48************* 
;With Debugger option Off, gets your BitMap; else, only part of debug window 

; 15 combination modes: 
;#BLACKNESS, #DSTINVERT, #MERGECOPY, #MERGEPAINT, #NOTSRCCOPY, #NOTSRCERASE ;#PATCOPY 
; #PATINVERT, #PATPAINT, #SRCAND, #SRCCOPY, #SRCERASE, #SRCINVERT, #SRCPAINT, #WHITENESS 

Procedure Get(X,Y,Wi,He)    ; Get source image - returns image handle 
   SRC=GETDC_(WindowID()) 
   DEST = CreateCompatibleDC_(SRC) 
   SelectObject_(DEST,CreateImage(0,Wi,He))  
   BitBlt_(DEST,0,0,Wi,He,SRC,X,Y,#SRCCOPY) 
   ReleaseDC_(WindowID(),Src)
   ProcedureReturn DEST 
EndProcedure 

Procedure Put(X,Y,IMG,MODE) ; Draws image from IMG TO DEST (DEST = GetDC_(SrcID))  
    hDC=GETDC_(WindowID())
    BitBlt_(hDC,X,Y,ImageWidth(),ImageHeight(),IMG,0,0,MODE) 
    ReleaseDC_(WindowID(),hDC)
EndProcedure 

Procedure Stretch(X,Y,Wi,He,IMG,MODE)  ; draws stretched image  
     hDC=GETDC_(WindowID())
     StretchBlt_(hDC,X,Y,Wi,He,IMG,0,0,ImageWidth(),ImageHeight(),MODE) 
     ReleaseDC_(WindowID(),hDC)
EndProcedure 

Procedure Grab(StartX,StartY,Wi,He,IMG,X,Y,MODE)  ; draws part of image 
    hDC=GETDC_(WindowID())
    BitBlt_(hDC,X,Y,Wi,He,IMG,StartX,StartY,MODE) 
    ReleaseDC_(WindowID(),hDC)
EndProcedure 

Procedure CLS(COLOR)   ; clear screen 
    StartDrawing(WindowOutput()) 
    Box(0,0,WindowWidth(),WindowHeight(),COLOR) 
    StopDrawing() 
EndProcedure 
;__________________________ 

IMAGE$="**************CHOOSE  HERE YOUR BMP******************************" 

LoadImage(1,Image$) 
WIMG=100 : HIMG=100 
ResizeImage(1,WIMG,HIMG)  ; STARTING  WITH 100 X 100 PIXS 

id=OpenWindow(0,0,0,WIMG,HIMG,#PB_Window_BorderLess  ,"")    
StartDrawing(WindowOutput()) 
DrawImage(UseImage(1),0,0) 
IMG=Get(0,0,WIMG,HIMG) 
StopDrawing() 
CloseWindow(0) 

_X=GetSystemMetrics_(#SM_CXSCREEN) : _Y=GetSystemMetrics_(#SM_CYSCREEN) 
hWnd=OpenWindow(0,0,0,_X,_Y,#WS_OVERLAPPEDWINDOW | #WS_MAXIMIZE,"") 
CLS(#blue)      

;Testing some modes 

PUT(220,100,IMG,#SRCCOPY) 
PUT(350,100,IMG,#SRCPAINT) 

STRETCH(20,200,200,200,IMG,#NOTSRCERASE) 
x=0 : y=_Y-150 

Repeat 
   GRAB(0,0,50,50,IMG,20+i,y,#SRCINVERT) 
   i+50 
   GRAB(50,50,50,50,IMG,20+i,y,#SRCINVERT) 
   y-50 
Until  y<50 

Repeat 
Until WaitWindowEvent()= #PB_Event_CloseWindow  

End