XProfan

 {$cleq}
#include compatible.inc
#include pixels.inc
windowstyle 112
window maxx,maxy
var xx&=320
var yy&=200
var Pixels&=create("pixels",xx&,yy&,0)
pixels.random(pixels&)
pixels.startpaint(pixels&)
useFont "Arial",050,0,0,0,0
textcolor 0,-1
drawtext 50,100,"Hallo Welt"
useFont "Arial",010,0,1,0,0
textcolor $FF5555,-1
drawtext 50,130,"Und der Rest naturalmente auch!"
usebrush 0,0
usepen 0,5,$0000FF
rectangle 10,10 - xx&-10,yy&-10
usepen 0,0,$FFFFFF

whileLoop 0,60,2

    rectangle 0+loop*10,loop*10 - xx&-loop*10,yy&-loop*10

wend

pixels.endpaint(pixels&)
var nPixels&=0

whilenot (%scankey=27) or %mousePressed

    case nPixels& : deletepixels(nPixels&)
    nPixels&=pixels.copy(pixels&)
    pixels.sinus(nPixels&,getTickCount,-mousex*0.1,mousey*0.1)
    'pixels.blur(npixels&)
    drawSizedPixels(npixels&,0,0,width(hwnd)-1,height(hwnd)-1,0)

wend

deletePixels(pixels&)
end