SoloCodigo

FUNCTION uLong GetDC (uLong hwnd) &
   LIBRARY "user32.dll" ALIAS FOR "GetDC; ansi"
   
FUNCTION uLong LineTo (uLong hdc, uLong x, uLong y) &
   LIBRARY "gdi32.dll" ALIAS FOR "LineTo; ansi"

FUNCTION uLong MoveToEx (uLong hdc, uLong x, uLong y, REF POINTAPI lpPoint) &
   LIBRARY "gdi32.dll" ALIAS FOR "MoveToEx; ansi"

unsignedlong | X
unsignedlong | Y

uLong dc
dc = GetDC(HANDLE(Parent))

POINTAPI lpPoint // estructura POINTAPI
lpPoint.x = 0; lpPoint.y = 0

// Linea Simple
MoveToEx(dc, 10, 10, lpPoint)
LineTo(dc, 120, 50)

uLong dc
dc = GetDC(HANDLE(Parent))

POINTAPI lpPoint // estructura POINTAPI
lpPoint.x = 0; lpPoint.y = 0

// Dibujando Sin(x)
Integer dx, dy
dx = 10; dy = 20
Double pX, pY
pX = 0 ;
pY = Sin(pX/5) * 15
MoveToEx(dc, dx + pX, dy + pY, lpPoint)
FOR pX = 0 TO 100
   pY = Sin(pX/5) * 15
   LineTo(dc, dx + pX, dy + pY)
NEXT