Italia
Fonte/ Codesnippets

Ellipsen in Horizontallage mittels modifiziertem Bresenham-Kreisalgorithmus

 

p.specht

Vorsicht, schnarchlangsam da nur Prinzip-Demo:
WindowTitle "BRESENHAM-ELLIPSEN IN HORIZONTALLAGE"
' Q: https://de.wikipedia.org/wiki/Bresenham-Algorithmus
' Auf XProfan gequält von P. Specht 2012-06. Demo, keine Gewähr!
WindowStyle 16 | 64
Font 2:randomize
Window 0,0 - %maxx,%maxy
var xm&=%maxx\2 : var ym&=%maxy\2:var cnt&= 0
var a&=300:var b&=160:var co&=rgb(255,0,0)
var bco&= rgb(210,210,210)+rgb(rnd(46),rnd(46),rnd(46))
Begin:
inc cnt&:ifnot cnt& mod 200:cls bco&:print " Abbruch mit ESC ";:endif
BrEllipse 2*xm&*rnd(),2*ym&*rnd(), a&*rnd(),b&*rnd(), rnd(8^8)
WaitInput 100
case %key=27:End
goto "Begin"

proc BrEllipse : parameters xm&, ym&, a&, b&,co&

    var dx& = 0: var dy& = b&' im I. Quadranten von links oben nach rechts unten
    var a2! = a&*a&: var b2! = b&*b&
    var err! = b2!-(2*b&-1)*a2! : var e2!=0' Fehler im 1. Schritt

    Repeat

        setPixel xm&+dx&, ym&-dy&, co&'  I. Quadrant
        setPixel xm&-dx&, ym&-dy&, co&' II. Quadrant
        setPixel xm&-dx&, ym&+dy&,co&'III. Quadrant
        setPixel xm&+dx&, ym&+dy&, co&'IV. Quadrant
        e2! = 2*err!

        if e2! < ((2*dx&+1)*b2!) : inc dx& : err! = err! + (2*dx&+1)*b2! : endif

            if e2! > (-(2*dy&-1)*a2!) : dec dy&: err! = err! - (2*dy& -1)*a2! : endif

            Until  dy& < 0

            While dx& <= a&

                inc dx&' Gegen den fehlerhaften Abbruch bei flachen Ellipsen mit b=1:
                setPixel xm&+dx&, ym&,co&' -> Spitze der Ellipse vollenden
                setPixel xm&-dx&, ym&,co&

            EndWhile

        EndProc

 
XProfan 11
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...
25.04.2021  
 



Zum Quelltext


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

636 Views

Untitledvor 0 min.
N.Art21.07.2022
Ernst21.07.2021
Uwe ''Pascal'' Niemeier13.06.2021
R.Schneider28.05.2021
Di più...

Themeninformationen

Dieses Thema hat 1 subscriber:

p.specht (1x)


Admins  |  AGB  |  Applications  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Il mio XProfan
Private Notizie
Eigenes Ablageforum
Argomenti-Merkliste
Eigene Beiträge
Eigene Argomenti
Zwischenablage
Annullare
 Deutsch English Français Español Italia
Traduzioni

Informativa sulla privacy


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie