# 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