Tegne en trekant?

Hej.

Jeg opfatter det med en farvet trekant som, at den er udfyldt med farve.
Det har jeg ikke syslet med, men jeg har engang lavet et program der kan beregne vinkler og sider i trekanter.
http://www.jkfsoft.dk/trekant.htm

Det er skrevet i VB3, men du kan få kildekoden, hvis det har interesse.
Hvis du downloader programmet kræves vbrun300.dll i din \system-mappe.  Den og threed.vbx kan hentes fra siden /visual.htm på mit domæne.

M.v.h.  Jørn

Hvis det er en fyldt trekant, som Jørn siger, så er det ikke nogen simpel sag.
Det kan dog gøres med API, hvor der kan laves noget Fill med diverse Blt funktioner.

hvis du kunne nøjes med en trekant med farvet omrids er det rimelig simpelt:
Forudsat din form hedder Form1 (sæt Scalemode til pixels):

Sub TegnTrekant(ByVal lFarve As Long)

    Form1.Line (10, 10)-(110, 10), lFarve
    Form1.Line -Step(-50, 50), lFarve
    Form1.Line -Step(-50, -50), lFarve

End Sub

så kan du kalde den i f.eks. en knap:

Private Sub Command1_Click()

    TegnTrekant RGB(0, 0, 255)

End Sub

-Du kan så eksperimentere med forskellige DrawWidth og DrawMode i formen.

/tjacob

Du kan naturligvis også inputte placering og størrelse, hvis du vil.

Du kan vel bare lave en løkke, som fylder ud med faldende højde.

For i = 1 to 1000 (bredde)
      for j = 1 to 1001 - i 'højde. Du kan bare ændre formlen, hvis hældning
                            'skal være anderledes
            'Indsæt her kode til at lave en prik i ønsket farve på kort i,j
      next j
Next i

Er det ikke bare så simpelt, eller ???

Mvh
Martin

('Indsæt her kode til at lave en prik i ønsket farve på _koord i,j) - stavefejl

brobaek>>  Hvad hvis trekanten er skæv?  -eller drejet?

Private Sub Form_Load()
    Dim i As Integer, j As Integer
   
    For i = 100 To 2000 'Denne linje bestemmer bredden på kurven
        For j = 1 + (i / 2) To 1001 - (i / 4)
            Me.PSet (i, j), 6710886
        Next j
    Next i
   
End Sub

For j = 1 + (i / 2) To 1001 - (i / 4)
For j = "Bunden af trekanten" to "Toppen af trekanten".

Du kan selv definere funktioner - behøver ikke bruge bredde tælleren (i).

Brug evt. linjer istedet for punkter til at optimere hastigheden, som vist vha ascii nedenfor (linjerne kan evt. lægges på skrå). Så skal du bare lave en par for-løkker, som beregner start og slut punkt for linjerne.

-------
-----
  ---
  -

Hej.

Underligt at spørgeren ikke vender tilbage!

M.v.h.  Jørn

Hej! Jeg havde glemt at jeg havde spurgt, og min email notification var slået fra.