Hallo
bin mal wieder am Grafikdisplay 7" mit SSD1963 am Programmieren und versuche, suche eine Funktion zu schreiben mit dem man Dreiecke und gefüllte Dreiecke Zeichnen kann. Mir fehlt aber leider der gedankliche Ansatz wie man es machen kann.
Ja mit drei Lienien bekomme ich auch ein Dreieck erstellt. Aber verstehe noch nicht ganz wie die Funktionen von Hkipnik und Six1 richtig funktionieren womit zB ein Kreis oder eine Box gefüllt werden.
Bräuchte ein bischen Hilfe zum verstehen der Funktionen.
Alles anzeigen
Gruß Jörg
bin mal wieder am Grafikdisplay 7" mit SSD1963 am Programmieren und versuche, suche eine Funktion zu schreiben mit dem man Dreiecke und gefüllte Dreiecke Zeichnen kann. Mir fehlt aber leider der gedankliche Ansatz wie man es machen kann.
Ja mit drei Lienien bekomme ich auch ein Dreieck erstellt. Aber verstehe noch nicht ganz wie die Funktionen von Hkipnik und Six1 richtig funktionieren womit zB ein Kreis oder eine Box gefüllt werden.
Bräuchte ein bischen Hilfe zum verstehen der Funktionen.
Quellcode
- '-------------------------------------------------------------------------------
- 'LCD Fill Circle
- '-------------------------------------------------------------------------------
- Sub Lcd_fill_circle(byval X As Word , Byval Y As Word , Byval Radius As Word , Byval Color1 As Word)
- Local Xy_radius As Integer
- Local Zahly As Integer
- Local Zahlx As Integer
- Local Y1 As Integer
- Local X1 As Integer
- Local Y11 As Integer
- Local X11 As Integer
- Local Xy As Integer
- Local X2 As Word , Y2 As Word
- Xy_radius = Radius * Radius
- Y1 = -radius
- X1 = -radius
- For Zahly = Y1 To Radius
- Y11 = Zahly * Zahly
- For Zahlx = X1 To Radius
- X11 = Zahlx * Zahlx
- Xy = X11 + Y11
- If Xy <= Xy_radius Then
- X2 = X + Zahlx
- Y2 = Y + Zahly
- Call Lcd_set_pixel(x2 , Y2 , Color1)
- End If
- Next
- Next
- End Sub
Gruß Jörg