# A compass:

gonio()
a=60
text(cos(a/180*pi)*0.79,sin(a/180*pi)*0.79, srt=a, cex=0.9, font=2, "90")
text(cos((a+90)/180*pi)*0.79,sin((a+90)/180*pi)*0.79, srt=a, cex=0.9, font=2, "0")
text(cos((a+180)/180*pi)*0.79,sin((a+180)/180*pi)*0.79, srt=a, cex=0.9, font=2, "270")
text(cos((a+270)/180*pi)*0.79,sin((a+270)/180*pi)*0.79, srt=a, cex=0.9, font=2, "180")
text(cos((a+90)/180*pi)*0.6,sin((a+90)/180*pi)*0.6, srt=a, cex=0.9, font=2, "Nord")
Directio(0,0, a+90,0.53,"brown")
Directio(cos((a+90)/180*pi)*0.65,sin((a+90)/180*pi)*0.65, a+90,0.07,"brown")
d = c(0,180,270); Directio(0,0, d+60,0.66, "brown")
b = 30
Arrow(-cos(b/180*pi)*0.7,-sin(b/180*pi)*0.7, b, 0.001,"black")
Arrow(-cos(b/180*pi)*0.7,-sin(b/180*pi)*0.7, b, 1.45,"black")
POINT(0,0, "red")

    

Back