XProfan

var C&=0
var OC&=0
RANDOMIZE
CLS
SETINNERSIZE 640,480
MCLS 640,480
DECLARE X&[]
DECLARE Y&[]
DECLARE XX&[]
DECLARE YY&[]
STARTPAINT -1

WHILELOOP 170

    X&[&LOOP]=RND(640)
    XX&[&LOOP]=RND(640)
    Y&[&LOOP]=RND(480)
    YY&[&LOOP]=RND(480)
    USEPEN 0,10,$777777+&LOOP
    LINE X&[&LOOP],Y&[&LOOP] - XX&[&LOOP],YY&[&LOOP]

ENDWHILE

WHILELOOP 170

    USEPEN 0,2,&LOOP
    LINE X&[&LOOP],Y&[&LOOP] - XX&[&LOOP],YY&[&LOOP]

ENDWHILE

ENDPAINT
USEPEN 0,0,0

WHILELOOP 170

    LINE X&[&LOOP],Y&[&LOOP] - XX&[&LOOP],YY&[&LOOP]

ENDWHILE

USERMESSAGES $0200

WHILE 1

    WAITINPUT

    SELECT %UMESSAGE

        CASEOF $0200

        STARTPAINT -1
        C&=GETPIXEL(LOWORD(&ULPARAM),HIWORD(&ULPARAM))
        ENDPAINT

        SELECT C&

            CASEOF 0,$FFFFFF

            IF OC&

                USEPEN 0,0,0
                LINE X&[OC&],Y&[OC&] - XX&[OC&],YY&[OC&]
                OC&=0

            ENDIF

            OTHERWISE

            IF C&>$777777

                DEC C&,$777777

            ENDIF

            IFNOT OC&=C&

                IF OC&

                    USEPEN 0,0,0
                    LINE X&[OC&],Y&[OC&] - XX&[OC&],YY&[OC&]

                ENDIF

                USEPEN 0,0,$0000FF
                LINE X&[C&],Y&[C&] - XX&[C&],YY&[C&]
                OC&=C&

            ENDIF

        ENDSELECT

    ENDSELECT

ENDWHILE

proc SETINNERSIZE

    PARAMETERS X&,Y&
    SETWINDOWPOS %HWND=%WINLEFT,%WINTOP - ((%WINRIGHT-%WINLEFT)-(WIDTH(%HWND)-X&)),((%WINBOTTOM-%WINTOP)-(HEIGHT(%HWND)-Y&));<

 {$cleq}
long c,oc
randomize
cls
Setinnersize 640,480
mcls 640,480
longs x,y,xx,yy
startPaint -1

whileLoop 170

    x[bucle]=rnd(640)
    xx[bucle]=rnd(640)
    y[bucle]=rnd(480)
    yy[bucle]=rnd(480)
    usePen 0,10,$777777+bucle
    line x[bucle],y[bucle] - xx[bucle],yy[bucle]

wend

whileLoop 170

    usePen 0,2,bucle
    line x[bucle],y[bucle] - xx[bucle],yy[bucle]

wend

endPaint
usePen 0,,0

whileLoop 170

    line x[bucle],y[bucle] - xx[bucle],yy[bucle]

wend

mensajes de los usuarios wm_mouseMove

mientras que 1

    waitInput

    seleccionar uMessage

        caseof wm_mouseMove

        startPaint -1
        c=getPixel(loword(ulParam),hiword(ulParam))
        endPaint

        seleccionar c

            caseof 0,$FFFFFF

            if oc

                usePen 0,,0
                line x[oc],y[oc] - xx[oc],yy[oc]
                oc=0

            endif

            otherWise
            caso c>$777777 : dec c,$777777

            ifnot oc==c

                if oc

                    usePen 0,,0
                    line x[oc],y[oc] - xx[oc],yy[oc]

                endif

                usePen 0,,$0000FF
                line x[c],y[c] - xx[c],yy[c]
                oc=c

            endif

        EndSelect

    EndSelect

wend

end

Proc Setinnersize(long x,y)

    Setwindowpos Hwnd = Winleft,Wintop - ((Winright-Winleft)-(Width(Hwnd)-x)),((Winbottom-Wintop)-(Height(Hwnd)-y));0

ENDPROC