Graphics 640,480,16,1
SetBuffer BackBuffer()

Global PausePointHoehe=25
Global PausePointSize=100
Global PausePointHoeheDrehung#=360
Global PausePointWeiteDrehung#=360
Global PausePointWeiteSpeed#=1.5
Global PausePointHoeheSpeed#=1.5

Repeat

 Cls

 PausePointWeiteDrehung#=PausePointWeiteDrehung#+PausePointWeiteSpeed#
 PausePointHoeheDrehung#=PausePointHoeheDrehung#+PausePointHoeheSpeed#

 hoehe=(PausePointHoehe/2)*Sin(PausePointHoeheDrehung#)
 width=PausePointSize
 height=PausePointSize

 x1=320+Sin(PausePointWeiteDrehung#)*width
 y1=240+Cos(PausePointWeiteDrehung#)*(height*Cos(PausePointHoeheDrehung#))
 x2=320+Sin(PausePointWeiteDrehung#+120)*width
 y2=240+Cos(PausePointWeiteDrehung#+120)*(height*Cos(PausePointHoeheDrehung#))
 x3=320+Sin(PausePointWeiteDrehung#+240)*width
 y3=240+Cos(PausePointWeiteDrehung#+240)*(height*Cos(PausePointHoeheDrehung#))

  Triangle(x1+zx,y1+hoehe+zy,x2+zx,y2+hoehe+zy,x3+zx,y3+hoehe+zy,255,255,0)
  Triangle(x1+zx,y1-hoehe+zy,x2+zx,y2-hoehe+zy,x3+zx,y3-hoehe+zy,255,255,0)
  Color 255,255,0
  Line x1+zx,y1+hoehe+zy,x1+zx,y1-hoehe+zy
  Line x2+zx,y2+hoehe+zy,x2+zx,y2-hoehe+zy
  Line x3+zx,y3+hoehe+zy,x3+zx,y3-hoehe+zy

 Flip

Until KeyHit(1)

End

Function Triangle(x1,y1,x2,y2,x3,y3,r,g,b)
Color r,g,b
Line x1,y1,x2,y2
Line x2,y2,x3,y3
Line x3,y3,x1,y1
End Function