Api Update

[peter]

Hi,


New api.inc.


New elements are:


GetR(color)
GetG(color)
GetB(color)


Music and Sound are now also possible.


Examples:


Uses "ui"
#INCLUDE "api.inc"


DWord hdc, hwnd
hwnd = Canvas_Window("api_app",xMid(640),yMid(480),640,480)
Canvas_Attach(hwnd,0,%TRUE)
hdc = Canvas_GetDC()
Canvas_Font "courier",16, %CANVAS_FONTSTYLE_BOLD


Dim ic1,ic2 As Long
Dim c, k As DWord
Dim r,g,b As Byte

ic1 = LoadIcon "icon/bild3.ico"
ic2 = LoadIcon "icon/shoot.ico"


While IsWindow(hwnd) And Keydown(%VK_ESCAPE)=0
DrawIcon hdc,ic1,0,0,640,480,0
DrawIcon hdc,ic2,256,300,128,128,0

c = Canvas_GetPixel 320,384
r = GetR(c)
g = GetG(c)
b = GetB(c)
Canvas_Ellipse 200,200,80+200,60+200, Rgb(r,g,b),-1

DrawText 10,72,"Color c Components",Rgb(255,255,255)
DrawText 10,10,"RED " & r, Rgb(255,255,255)
DrawText 10,26,"GREEN " & g, Rgb(255,255,255)
DrawText 10,42,"BLUE " & b, Rgb(255,255,255)

k = Canvas_GetPixel 320,360
r = GetR(k)
g = GetG(k)
b = GetB(k)
Canvas_Ellipse 380,200,80+380,60+200, Rgb(r,g,b),-1

DrawText 300,72,"Color k Components",Rgb(255,255,255)
DrawText 300,10,"RED " & r, Rgb(255,255,255)
DrawText 300,26,"GREEN " & g, Rgb(255,255,255)
DrawText 300,42,"BLUE " & b, Rgb(255,255,255)

Canvas_Redraw
Sleep 10

Wend
Canvas_Window End




Uses "ui"
#INCLUDE "api.inc"
#INCLUDE "bass.inc"


DWord hdc, hwnd
hwnd=Canvas_Window("Music",100,100,640,480)
Canvas_Attach(hwnd,0,%TRUE)
Canvas_Font("verdana",16,%CANVAS_FONTSTYLE_BOLD)


Canvas_Clear(Rgb(0,0,255))
InitBass()


Long music = LoadMusic("music/g.mod")
PlayMusic(music)


DrawText 176,100,"Playing Skogens Djur",&hFFFFFF


Canvas_Redraw
Canvas_WaitKey
FreeBass
Canvas_Window End hwnd