1


2      3

;maldreieck
Graphics 800,600,32,2

Local px[3]
Local py[3]

While Not KeyDown(1)
   
   If MouseHit(1)
      px[x]=MouseX()
      py[x]=MouseY()
      x=x+1
   EndIf
   
   c=0
   For y=0 To 2
      If px[y]>0 And py[y]>0 Then c=c+1
   Next
   
   If c=3
      Line px[0],py[0],px[1],py[1]
      Line px[1],py[1],px[2],py[2]
      Line px[2],py[2],px[0],py[0]
      
      wink#=ATan2(px[2]-px[1],py[2]-py[1])
      
      dis#=Sqr((px[1]-px[2])^2+(py[1]-py[2])^2)
      
      For c=0 To dis#
         tx=px[1]+Sin(wink#)*c
         ty=py[1]+Cos(wink#)*c
         Line tx,ty,px[0],py[0]
      Next
   EndIf
   
   Flip
   
Wend

End

Graphics 400,400
SetBuffer BackBuffer()
Repeat

Cls

x1=200+Cos(y)*180
y1=200+Sin(y)*-180

x2=200+Cos(y+120)*180
y2=200+Sin(y+120)*-180

x3=200+Cos(y+240)*180
y3=200+Sin(y+240)*-180






Line x1,y1,x2,y2
Line x2,y2,x3,y3
Line x3,y3,x1,y1

Text x1,y1,"1"
Text x2,y2,"2"
Text x3,y3,"3"

winkel=ATan2(x2-x1,y2-y1)+90
For i#=1 To Sqr((X2-X3)^2+(Y2-Y3)^2)-1 Step 1
   
   Line x2+Cos(winkel)*i,y2+Sin(winkel)*-i,x3,y3
Next

winkel=ATan2(x3-x2,y3-y2)+90
For i#=1 To Sqr((X2-X3)^2+(Y2-Y3)^2)-1 Step 1
   
   Line x3+Cos(winkel)*i,y3+Sin(winkel)*-i,x1,y1
Next

winkel=ATan2(x1-x3,y1-y3)+90
For i#=1 To Sqr((X2-X3)^2+(Y2-Y3)^2)-1 Step 1
   
   Line x1+Cos(winkel)*i,y1+Sin(winkel)*-i,x2,y2
Next

r=r+1
r=r Mod 255

g=g-2
If g<0 Then g=255+g


b=b+2
b=b Mod 255

Color r,g,b

Text 0,0,r+","+g+","+b

y=y+2
y=y Mod 360
Flip
Until KeyHit(1)

Dim FPS (3)
Graphics 800 ,600
SetBuffer BackBuffer ()

Repeat
    Cls
   
    x1 = 400 + Cos (y) * 180
    y1 = 300 + Sin (y) * 180
   
    x2 = 400 + Cos (y + 120) * 180
    y2 = 300 + Sin (y + 120) * 180
   
    x3 = 400 + Cos (y + 240) * 180
    y3 = 300 + Sin (y + 240) * 180
    y = y + 1
    y = y Mod 360
   
    Fill_Triangle (x1,y1,x2,y2,x3,y3)
   
    Text 10 ,10,FPS (1) : FPS (2) = FPS (2) + 1 : If MilliSecs () > FPS (3) + 999 Then FPS (1) = FPS (2) : FPS (2) = 0 : FPS (3) = MilliSecs ()
   
    Flip 0
Until KeyHit (1)
End


Function Fill_Triangle(x1,y1,x2,y2,x3,y3)
   ;einsortieren der y_koordinate nach Höhe (kleinste zuerst)
   If y1 > y2 Then x= x1 : x1 = x2 : x2 = x: y= y1 : y1 = y2 : y2 = y
   If y2 > y3 Then x= x2 : x2 = x3 : x3 = x: y= y2 : y2 = y3 : y3 = y
   If y1 > y2 Then x= x1 : x1 = x2 : x2 = x: y= y1 : y1 = y2 : y2 = y
   ;fertig sortiert
   Grad_1x2# =ATan2 (y1-y2,x1-x2)
   Grad_1x3# = ATan2 (y1-y3,x1-x3)
   Grad_3x2# = ATan2(y3-y2,x3-x2)
   If y2<>y1 Then
      For i = 0 To y2 - y1 -1
         Lines ((i / Tan (Grad_1x3) ) + x1,y1 + i, ( i / Tan (Grad_1x2) ) + x1)
      Next
   End If
   If y2<>y3 Then
      For i = y2 - y3  To 0
         Lines ((i / Tan (Grad_1x3) ) + x3,y3 + i, (i / Tan (Grad_3x2) ) + x3)
      Next
   End If
End Function

Function Lines (x1,y1,x2)
   If x1 < x2 Then
      Rect x1,y1,x2-x1,1
   Else
      Rect x2,y1,x1-x2,1
   End If
End Function