# source("http://macosa.dima.unige.it/r.R")
# Come tracciare poligoni in scala monometrica
# La porzione di piano scelta:
BF=3; HF=3
PLANE(-5,5, -5,5)
# Il triangolo con le x -4,4,0 e le y -4,-4,4 con sfondo giallo
x = c(-4,4,0); y = c(-4,-4,4); polyC(x,y,"yellow")
# Coloriamo di verde mare parte dell'esterno del triangolo
A = function(x,y) y >= 8/4*(x+4)-4 | y >= -8/4*(x-4)-4
for(i in 1:10) diseq2(B,0,"seagreen")
# Una spezzata (chiusa) in marrone
x = c(-2,2,2,-2,-2); y = c(-3,-3,4,2,-3); polyline(x,y,"brown")
# Un cerchio blu
circle(1,1, 2, "blue")
# Un cerchio pieno rosso e il suo contorno, sottile
circleC(1,-1, 1/2, "red"); circl(1,-1, 1/2, "black")
#
# Lo stesso senza griglia:
PLANEww(-5,5, -5,5)
x = c(-4,4,0); y = c(-4,-4,4); polyC(x,y,"yellow")
A = function(x,y) y >= 8/4*(x+4)-4 | y >= -8/4*(x-4)-4
for(i in 1:10) diseq2(B,0,"seagreen")
x = c(-2,2,2,-2,-2); y = c(-3,-3,4,2,-3); polyline(x,y,"brown")
circle(1,1, 2, "blue")
circleC(1,-1, 1/2, "red")
circl(1,-1, 1/2, "black")