XProfan

Window Style 24:Window 0,0-%maxx,%maxy:showmax:randomize
'Q:https://blog.kenperlin.com/?p=5641 <== DEMO ONLY!
cls 0:declare x!,y!,w!,p!,q!,xh&,yh& , w1!,w2!,pl!,ql!
xh&=Width(%hwnd)\2:yh&=Height(%hwnd)\2:running:
Window Title mkstr$(" ",rnd(200))+"MOUSEOGRAPH - KLICKEN SIE WOHIN!"
WaitInput 5000:pl!=p!:ql!=q!:p!=%MouseX/xh&:q!=%MouseY/yh&

if (pl!=p!) and (ql!=q!):p!=rnd(2*xh&)/xh&:q!=rnd(2*yh&)/yh&:endif

    cls 0:clear x!,y!,w!:moveto xh&,yh&
    usepen 0,2,rgb(128+rnd(128),128+rnd(128),128+rnd(128))

    Whileloop 3000+rnd(5000)

        x!=x!+cos(w!)/10:y!=y!+sin(w!)/10:lineto xh&+x!*100,yh&-y!*120
        w1!=(sqr(x!)*q!)^p!:w2!=(sqr(y!)/q!):case w2!=0:w2!=0.0001
        w!=w!+(w1!+w2!^p!)/20
        Endwhile:goto "lauf"