source("http://macosa.dima.unige.it/r.R")
BF=3; HF=3
PLANE(0,100,0,100)
segm(50,5, 50,100, "black")
x=c(50,55,70,80,86,88,85,80,72,65,60,55,50)
y=c(100,90,70,60,50,40,30,20,12,10,11,12,14)
polyC(x,y,"green")
polyline(x,y,"black")
co="black"
X=c(50,60); Y=c(70,75);   polyline(X,Y,co)
X=c(50,65); Y=c(58,65.5); polyline(X,Y,co)
X=c(50,70); Y=c(46,56);   polyline(X,Y,co)
X=c(50,76); Y=c(34,47);   polyline(X,Y,co)
X=c(50,75); Y=c(22,33.5); polyline(X,Y,co)
coldash="black"; gridH( seq(0,100,10) ); gridV( seq(0,100,10) )
# La soluzione:
x1=-x+100
polyline(x1,y,"black")
X=c(50,-60+100); Y=c(70,75);   polyline(X,Y,co)
X=c(50,-65+100); Y=c(58,65.5); polyline(X,Y,co)
X=c(50,-70+100); Y=c(46,56);   polyline(X,Y,co)
X=c(50,-76+100); Y=c(34,47);   polyline(X,Y,co)
X=c(50,-75+100); Y=c(22,33.5); polyline(X,Y,co)