XProfan

cls
long lops=lineOfnumPoints(0,0,30,30,7)
imprimir "points:",long(lops,0)

whileloop 1,long(lops,0) {

    imprimir "ptx:",long(lops,bucle*8)
    imprimir "pty:",long(lops,bucle*8+4)
    imprimir "-"

}

globalFree(lops)
waitInput
end

nProc lineOfNumPoints(long x,y,xx,yy,cnt){

    long data

    if cnt>2 {

        float 	fcnt=float(cnt-1),\
        sx=float(xx-x)/fcnt,\
        sy=float(yy-y)/fcnt,\
        px=float(x),\
        py=float(y)
        data=dim(8+cnt*8)
        long data&,0=cnt,0,x,y
        sub cnt,2
        long offs=16

        whileLoop cnt {

            px=px+sx
            py=py+sy
            long data&,offs=long(px),long(py)
            add offs,8

        }

        long data&,offs=xx,yy
        volver data

    } más if cnt<1 {

        data=dim(8)
        long data&,0=0
        volver data

    } más if cnt==1 {

        data=dim(16)
        long data&,0=1,0,long(float(xx-x)*0.5),long(float(yy-y)*0.5)
        volver data

    }

    data=dim(24)
    long data&,0=1,0,x,y,xx,yy
    volver data

}

 {$NOSHORTNAMES}
Declarar  x&,y&,r&
Ventana 20,20-600,600
Cls $ffffff
USEP 0,1,RGB(255,0,0)
grafik_api(100,100)
waitkey
End

nProc grafik_api(long r,w)

    MoveToEx(%hdc,20,20,0)
    LineTo(%hdc, r,w)
    LineTo(%hdc, 15,200)
    LineTo(%hdc, 100,200)
    Rectángulo(%hdc,170,170, 300,300)
    Rectángulo(%hdc,150,150, 250,250)
    Arc(%hdc,150,150,400,400,300,300,300,300)
    Ellipse(%hdc,300,300,500,400)
    Ellipse(%hdc,400,300,500,400)

    whileloop 50,430

        SetPixel(%hdc,200,&bucle,$ff00ff)

    EndWhile

ENDPROC