XProfan

Window Title "BITTE MIT MAUSLINIE URKNALL ERZEUGEN!"
Window Style 24
Window (%maxx-500)/2,(%maxy-520)/2 - 500,520
var n&=34'Arraygröße
var g&=14'Dot-Size
declare p![1,n&+1,n&+1],v&,i&,j&,x&,y&

Repeat

    v&=NOT(v&)

    Whileloop n&:i&=&Loop:Whileloop n&:j&=&Loop

        P![hardship(v&),i&,j&]=(P![v&,i&-1,j&]+P![v&,i&+1,j&]+P![v&,i&,j&-1]+P![v&,i&,j&+1])*.25
        endwhile:endwhile

        Whileloop n&:i&=&Loop:Whileloop n&:j&=&Loop

            P![v&,i&,j&]=(P![v&,i&,j&]+P![hardship(v&),i&,j&])*0.0012
            endwhile:endwhile

            Whileloop n&:i&=&Loop:y&=i&*g&:Whileloop n&:j&=&Loop:x&=j&*g&

                usepen 3,g&-1,sqr(P![v&,i&,j&])
                line x&,y& - x&,y&
                endwhile:endwhile

                if %mousepressed

                    p![hardship(v&),n&\2*%mousey/240,n&\2*%mousex/240] = 2^26

                endif

            until 0

Windowstyle 24:Window 700,%maxy:Windowtitle "POP ART: Why not!"
declare x!,y!,z!,t!,f!,xh&,yh&,dx&,dy&,wh&,co&,L&'demonstration 2016-9 P.woodpecker
f!=1/100:xh&=350:yh&=350:co&=rgb(255,0,0):wh&=rgb(255,255,255)

while 1:whileloop 30:L&=&Loop:whileloop 315,-314,-21:t!=&Loop*f!

    whileloop -300,300,21:x!=&Loop:whileloop -300,300,21:y!=&Loop

        z!=Cos(3*sqrt(sqr(x!*f!)+sqr(y!*f!))+t!)
        dx&=xh&+x!:dy&=yh&-y!
        usepen 0,20,wh&:line dx&,dy& - dx&+1,dy&
        usepen 0,z!*20,co&:line dx&,dy& - dx&,dy&+L&-15
        wend:wend:wend:wend:wend

Windowtitle "  A b s t r a k t o r":Windowstyle 24
randomize:Window 0,0 - %maxx,%maxy:cls 0
var xh&=width(%hwnd)\4:var yh&=height(%hwnd)\2
line 0,yh& - 2*xh&,yh&:line xh&,0 - xh&,2*yh&
declare x1!,x2!,x3!,x4!,a!,b!,c!,d!
x1!=1.2:x2!=1:x3!=1:a!=1:b!=0.03:c!=0.09:d!=1/pi()

repeat

    x4!=x1!*sin(A!*x3!+B!)+sin(C!*x2!+D!)
    usepen 0,x4!,rgb(100*x3!,100*x2!,100*x1!)
    line xh&+128*x3!,(128*x2!) - xh&+128*x3!+1,128*x2!

    if rnd()<0.002

        d!=Pi()*rnd()-0.2
        a!=Pi()*rnd()-0.5
        b!=Pi()*rnd()
        c!=Pi()*rnd()
        waitinput 42
        case rnd()<0.005:cls 0

    endif

    x1!=x2!:x2!=x3!:x3!=x4!

until %key>0:end

Window Title "Radar":Window Style 24
Window (%maxx-%maxy++40)/2,0-%maxy,%maxy-30:Cls 0
var xh&=width(%hwnd)\2:var yh&=height(%hwnd)\2
declare x!,y!,r!,w!,f!,dp!,w1&,dw&,w2&,nn&
f!=Pi()/1800:r!=xh&*0.9:nn& = -xh&/2

repeat

    whileloop 0,3599,5:w1&=&Loop

        whileloop 0,255,5:dw&=&Loop

            w2&=w1&-dw&:case w2&<0:w2&=w2&+3600
            w!=w2&*f!:x!=r!*cos(w!):y!=r!*sin(w!)
            usepen 0,1,rgb(0,255-dw&*0.8,0)
            line xh&,yh& - (xh&+x!+rnd(2)),yh&-y!+rnd(2)

            if (w1&=1350) and (dw&=255)

                usepen 0,15,rgb(255,255,0)
                line xh&+nn&,(yh&+nn&) - xh&+nn&-1,yh&+nn&
                inc nn&,2

            endif

        endwhile

    endwhile

until 0