XProfan

Windowtitle "Gedämpftes Pendel im Auf- und Seitenriss [Ende: ESC halten]"
'(CL) 2014-3 by P.Specht, Wien. Keine wie auch immer geartete Gewähr!
windowstyle 24:window 0,0-%maxx,%maxy-40:randomize:font 2
declare xx&,yy&,xh!,yh!,zoom! : xx&=width(%hwnd) : yy&=height(%hwnd)
declare xd!,yd!,r!,gamma!,x!,y!,omega!,t!,g!,a!,daempfg!,tm&
declare xs!,ys!,xv!,yv!,dist!
xh!=0.6666*xx&:yh!=0.4*yy&'Koordinatenursprung
zoom!=4000'Pixelmaßstab der Pendellänge [m]
xd!=-0.5*xh!:yd!=0'Pendelaufhängepunkt [Pixel]
xs!=(xx&-xh!)/2:ys!=0'Aufhängung im Seitenriss
xv!=xd!:yv!=-200'Viewpoint (bestimmt Größe im Seitenriss)
g!=9.80665'Erdbeschleunigung [m/s²]
r!=0.01*8'cm             'Pendellänge [m]
gamma!=Pi()/180*180.02' [Grad] Auslenkung beim Start
daempfg!=.001*0.8'Promille Dämpfung
t!=0.013's              'Zeitschritt. Für Echtzeit 1 / Fps
omega!=2*pi()/60* -200'Start-Drehzahl [U/min,'-' = im Uhrzeigersinn]
MCls %maxx,%maxy

Repeat

    tm&=&gettickcount
    StartPaint -1
    CLS
    usepen 0,1,0:line xh!,0 - xh!,yy& : line 0,yh! - xx&,yh!
    'Aufriss:
    usepen 0,5,255:line xh!+xd!,(yh!-yd!) - xh!+xd!+x!,yh!-yd!-y!
    usepen 0,53,200:line xh!+xd!+x!,(yh!-yd!-y!-1) - xh!+xd!+x!,yh!-yd!-y!
    'Seitenriß:
    dist!=sqrt(sqr(x!-xv!)+sqr(y!-yv!))
    usepen 0,5,255:line xh!+xs!,(yh!-ys!) - xh!+xs!,yh!-ys!-y!
    usepen 0,53*r!*zoom!/dist!,200:line xh!+xs!,(yh!-ys!-y!-1) - xh!+xs!,yh!-ys!-y!
    ' Viewpoint
    usepen 0,25,rgb(0,0,200)
    line 15,(yh!-yv!-1) - 15,yh!-yv!
    EndPaint
    MCopyBMP 0,0 - %maxx,%maxy > 0,0;0
    a!=g!*sin(-gamma!)*t!
    omega!=omega!-a!/r!
    omega!=omega!*(1-daempfg!)
    gamma!=gamma!-omega!*t!
    x!=-r!*sin(gamma!)*zoom!
    y!=-r!*cos(gamma!)*zoom!

    if rnd()<0.04:waitinput 5:endif

        t!=(&gettickcount-tm&)*0.0005

    until %key=27

    End