OPTION LCDPANEL ST7789, orientation, DCpin, RESETpin, CSpin

OPTION LCDPANEL ST7735S, orientation, DCpin, RESETpin, CSpin

Dim integer x1(1),y1(1),x2(1),y2(1),x3(1),y3(1)
Dim integer c(1)=(0,RGB(yellow)),c2(1)=(0,RGB(yellow))
Dim integer x1s,y1s,x2s,y2s,x3s,y3s
CLS
x1(1)=MM.HRes\2-6 :x1(0)=x1(1) :x1s=x1(0)
y1(1)=MM.VRes\2 :y1(0)=y1(1) :y1s=y1(0)
x2(1)=MM.HRes\2+6 :x2(0)=x2(1) :x2s=x2(0)
y2(1)=MM.VRes\2 :y2(0)=y2(1) :y2s=y2(0)
x3(1)=MM.HRes\2 :x3(0)=x3(1) :x3s=x3(0)
y3(1)=MM.VRes\2-75 :y3(0)=y3(1) :y3s=y3(0)
Arc MM.HRes\2,MM.VRes\2,99,101,210,150
Arc MM.HRes\2,MM.VRes\2,84,86,210,150
Arc MM.HRes\2,MM.VRes\2,86,99,210,90,RGB(green)
Arc MM.HRes\2,MM.VRes\2,86,99,90,150,RGB(red)
Pause 1000
rotatetriangle -150,MM.HRes\2, MM.VRes\2
Do
For i=-150 To 150
If(i>90)Then
c2(1)=RGB(red)
c(1)=RGB(yellow)
Else
c2(1)=RGB(yellow)
c(1)=RGB(red)
EndIf
rotatetriangle i,MM.HRes\2, MM.VRes\2
Triangle x1(),y1(),x2(),y2(),x3(),y3(),c(),c2()
Next i
For i=150 To -150 Step -1
If(i>90)Then
c2(1)=RGB(red)
c(1)=RGB(yellow)
Else
c2(1)=RGB(yellow)
c(1)=RGB(red)
EndIf
rotatetriangle i,MM.HRes\2, MM.VRes\2
Triangle x1(),y1(),x2(),y2(),x3(),y3(),c(),c2()
Next i
Loop

Sub rotatetriangle(angle As float, x As integer, y As integer)
Local float sine=Sin(Rad(angle)),cosine=Cos(Rad(angle))
Local integer x1a=x1s-x, y1a=y1s-y
Local integer x2a=x2s-x, y2a=y2s-y
Local integer x3a=x3s-x, y3a=y3s-y
x1(0)=x1(1):x2(0)=x2(1):x3(0)=x3(1)
y1(0)=y1(1):y2(0)=y2(1):y3(0)=y3(1)
x1(1)= x1a*cosine - y1a * sine + x
y1(1)= y1a*cosine + x1a * sine + y
x2(1)= x2a*cosine - y2a * sine + x
y2(1)= y2a*cosine + x2a * sine + y
x3(1)= x3a*cosine - y3a * sine + x
y3(1)= y3a*cosine + x3a * sine + y
End Sub