XProfan

Declarar hWin&,hDlg&,hDCWin&
Declarar xy&
dim xy&,16
Largo xy&,0 = 30
Largo xy&,4 = 30
Largo xy&,8 = 100
Largo xy&,12 = 100
hWin& = Crear("Window", %hWnd, "Test", 10, 10, 500, 500)
Ventana 510, 10 - 200, 200
grafik_api(hwin&,xy&)
WaitKey
End

nProc grafik_api(Largo hwin,xy)

    Largo hdcWin,brush,mypen
    hDCWin=GetDC(hWin)
    brush = CreateSolidBrush($00ffff)
    FillRect(hdcwin, xy, brush)
    mypen=CreatePen(PS_SOLID, 1,$0000ff)
    Seleccionar objeto( hdcwin, MyPen )
    MoveToEx(hDCWin, 10,10, 0)
    LineTo(hDCWin, 200,200)
    DeleteObject(MyPen)

ENDPROC

declarar vordergrpic&
Ventana 20,20-800,600
Cls RGB(220,220,220)
vordergrpic& = create("hNewPic", 500,500,rgb(255,255,0))
erzeugestern(vordergrpic&)
drawpic vordergrpic&,20,20;0
WaitKey
end

nProc getCircP(long r,w)

    volver long(sin(0.0174532925199433*float(w)/1000.0)*float(r))

ENDPROC

nProc erzeugestern(long hPic)

    Largo x,y,r,mypen
    long hDCBits=createCompatibleDC(hDC)
    selectObject(hDCBits, hPic)
    mypen=CreatePen(PS_SOLID, 1,$0000ff)
    Seleccionar objeto( hDCBits, MyPen )
    r=250

    whileloop 0,360000,1000

        x=getcircp(r,&bucle)
        y=getcircp(r,&bucle+90000)
        MoveToEx(hDCBits,250,250,0)
        LineTo(hDCBits,250+x,250+y)

    EndWhile

    deleteDC(hDCBits)

ENDPROC

Declarar test% SharedInFbProcs
 {$FBSYNTAX on}
declarar dib&,array&,groesse&,hoehe&,ende&,bild&
DEF CreateDIB(2) !"dib","CreateDIB"
DEF FreeDIB(1) !"dib","FreeDIB"
DEF DrawDIB(4) !"dib","DrawDIB"
DEF CloneDIB(1) !"dib","CloneDIB"
dib&=usedll("dib.dll")
fbProc gehe(ByVal b As Integer, ByVal g as integer)
FOR test% = 0 TO g-735000 step 3
poke byte,test%+g,&hFF0000
next test%

ENDPROC

array&=CreateDIB(700,700)
groesse&=700*700*3
hoehe&=700
Ventana 20,20-750,800
Cls RGB(255,255,0)
bild&= Largo(array&,40)
gehe(bild&,groesse&)
DrawDIB(%hdc,10,10,array&)
WaitKey
FreeDIB(dib&)
End

fbProc gehe(ByVal b As Integer, ByVal g As Integer) As Integer Export
  Dim test As Integer
  FOR test = 0 TO (g-735000) step 3
    poke byte,test+g,&hFF0000
  next test
  volver 0
ENDPROC