source("http://macosa.dima.unige.it/R/r.R")
BF=2.8; HF=2.8
f = function(t) cos(t); g = function(t) sin(t)
PLANE(-1,3, -2,2)
param(f,g, 0, pi, "red")
param(f,g, pi,2*pi, "brown")
h = function(z) z^2+z+1; k = function(a,b) h(a+b*1i)
f1 = function(t) Re(k(f(t),g(t)))
g1 = function(t) Im(k(f(t),g(t)))
param(f1,g1, 0,pi, "blue")
param(f1,g1, pi,2*pi, "black")