source("http://macosa.dima.unige.it/r.R")
BF=4; HF=4
PIANOss(0,10, 0,10)  # scelgo il "piano" Senza tracciamenti
coltrat="brown"      # faccio una griglia in colore marrone
grigliaO(seq(0,10,1/2)); grigliaV(seq(0,10,1/2))
# gli assi dell'aquilone
x1 <- c(1.5,1.5); y1 <- c(0,2); x2 <- c(0,3); y2 <- c(1,1)
spezzata(x1,y1, "red")
spezzata(x2,y2, "red")
# il bordo dell'aquilone
x <- c(0,1.5,3,1.5,0); y <- c(1,0,1,2,1)
spezzata(x,y,"blue")
# l'ingrandimento (del triplo)
spezzata(x1*3,y1*3+2,"red")
spezzata(x2*3,y2*3+2,"red")
spezzata(x*3,y*3+2,"blue")
#
# ovvero:
BF=4; HF=4
PLANEww(0,10, 0,10)
gridHC( seq(0,10, 1/2), "brown"); gridVC( seq(0,10, 1/2), "brown")
x1 = c(1.5,1.5); y1 = c(0,2); x2 = c(0,3); y2 = c(1,1)
polyline(x1,y1, "red"); polyline(x2,y2, "red")
x = c(0,1.5,3,1.5,0); y = c(1,0,1,2,1); polyline(x,y, "blue")
polyline(x1*3,y1*3+2, "red"); polyline(x2*3,y2*3+2, "red")
polyline(x*3,y*3+2, "blue")