XProfan

'Windowtitle "BILDSCHIRMSCHONER: Schiefe Astroide como Evolute el Ellipse"
'(CL) CopyLeft 2015-07 by P.Pájaro carpintero, Wien; OHNE JEGLICHE GEWÄHR!
'(Vereinfachte Formeln para Schmiegekreis-Mittelpunkt y -Radius)
Windowstyle 16 | 64'24
Ventana 0,0-%maxx,%maxy:Selección aleatoria:font 2
var xh&=width(%hwnd)\2:var yh&=height(%hwnd)\2
declarar a!,b!,x!,y!,xa!,ya!,xe!,ye!,xo!,yo!,w!
declarar cw!,cccw!,sw!,sssw!,aa!,bb!,aambbda!,bbmaadb!
declarar r!,v!,xl!,yl!,xv!,yv!
var f!=Pi()/180:usebrush 0,1
MEHR:
imprimir "\n ENDE: ESC HALTEN! "
a!=-400
b!=200

REPEAT

    aa!=sqr(a!):bb!=sqr(b!)

    if a!<>0:aambbda!=(aa!-bb!)/a!:más :aambbda!=10000:endif

        if b!<>0:bbmaadb!=(bb!-aa!)/b!:más :bbmaadb!=10000:endif

            usepen 0,1+rnd(15),rgb(255,0,0):Ellipse xh&-a!,yh&+b! - xh&+a!,yh&-b!'Alternative A: Hier
            x!=a!:y!=0 : xe!=aambbda!:ye!=0

            whileloop 0,360,30 :w!=&Loop*f!

                cw!=cos(w!):cccw!=cw!*sqr(cw!):sw!=sin(w!):sssw!=sw!*sqr(sw!)
                'Ellipsensegment:
                xa!=x!:ya!=y!:x!=a!*cw!:y!=b!*sw!
                '  usepen 0,1,rgb(255,0,0):line xh&+x!,(yh&-y!) - xh&+xa!,(yh&-ya!) 'Alternative B
                'Zugehöriges Schief-Asteroidensegment:
                xo!=xe!:yo!=ye!:xe!=aambbda!*cccw!:ye!=bbmaadb!*sssw!
                ' usepen 0,1,rgb(0,0,255):line xh&+xe!,(yh&-ye!) - xh&+xo!,(yh&-yo!) ' Pos 1
                ' Schmiegekreis einzeichnen
                r!=sqrt(sqr(x!-xe!)+sqr(y!-ye!))
                usepen 0,1,rgb(255,200,255): ellipse xh&+xe!+r!,yh&+ye!+r! - xh&+xe!-r!,yh&+ye!-r!
                usepen 0,1,rgb(0,0,255):line xh&+xe!,(yh&-ye!) - xh&+xo!,(yh&-yo!)' Alternative Pos. 2

            endwhile

            waitinput 10
            ' Achsenänderung por Durchlauf:
            a!=a!+1
            b!=b!-1

            if a!>800

                a!=-200
                b!=400

            endif

        until %key=27

        FIN