XProfan

 {$cleq}
cls

whileLoop 0,359 *1000, 1000 {

    setPixel 320+getCircP(100,loop),240+getCircP(100,loop +90000),rnd($FFFFFF)

}

waitInput
end

nProc getCircP(long r,w){

    return long(sin(0.0174532925199433*float(w)/1000.0)*float(r))

}

 {$cleq}
cls
usepen 0,0,$FF0000
/*
parameter:
1,2:draw where:x,y
3:size:radius
4,5:gradvon,gradbis
6:each wievielten point
7:line on how much strain
*/
paintWhl(50,50,50,150,210,5,-30)
paintWhl(120,50,50,150,210,5,-20)
paintWhl(190,50,50,150,210,5,-10)
paintWhl(260,50,50,150,210,5,0)
paintWhl(330,50,50,150,210,5,10)
paintWhl(400,50,50,150,210,5,20)
paintWhl(470,50,50,150,210,5,30)
waitinput
end

paintWhl(long xp,yp,r,df,dt,step,target){

    long x,y
    df=df*1000
    dt=dt*1000
    step=step*1000
    target=180-target
    target=target*1000

    whileLoop df,dt,step {

        x=GetCircP(r,loop)
        y=GetCircP(r,90000+loop)
        setpixel xp+x,yp+y,0

    }

    line xp,yp - xp+GetCircP(r,target),yp+GetCircP(r,target+90000)

}

getCircP(long r,w){

    return sin(0.0174532925199433*w/1000.0)*r

}

'{$cleq}
cls
usepen 0,0,$FF0000
'parameter:
'1,2:draw where:x,y
'3:size:radius
'4,5:gradvon,gradbis
'6:each wievielten point
'7:line on how much strain
paintWhl(50,50,50,150,210,5,-30)
paintWhl(120,50,50,150,210,5,-20)
paintWhl(190,50,50,150,210,5,-10)
paintWhl(260,50,50,150,210,5,0)
paintWhl(330,50,50,150,210,5,10)
paintWhl(400,50,50,150,210,5,20)
paintWhl(470,50,50,150,210,5,30)
waitinput
end

proc paintWhl

    parameters xp&,yp&,r&,df&,dt&,step&,target&
    declare x&,y&
    df&=df&*1000
    dt&=dt&*1000
    step&=step&*1000
    target&=180-target&
    target&=target&*1000

    whileLoop df&,dt&,step&

        x&=GetCircP(r&,&loop)
        y&=GetCircP(r&,90000+&loop)
        setpixel xp&+x&,yp&+y&,0

    wend

    line xp&,yp& - xp&+GetCircP(r&,target&),yp&+GetCircP(r&,target&+90000)

endproc

proc getCircP

    parameters r&,w&
    return sin(0.0174532925199433*w&/1000.0)*r&

endproc