Greca (voluta amb trams rectilinis) i sanefa

;----------------------------------------------------------
; Aquest programa dibuixa una greca i la reprodueix
; com una sanefa en una dirección (esquerra-dreta)
;
;   © Joan Aranes Clua, 1998
; ----------------------------------------------------------

procediment greca
fes.gruix 5
av 50 gd 90
av 50 gd 90
av 40 gd 90
av 30 gd 90
av 20 gd 90
av 10 gd 90
av 10 ge 90
av 10 ge 90
av 20 ge 90
av 30 ge 90
av 40 ge 90
av 50 ge 90
fi

procediment sanefa
id
no.llapis
ge 90 av 100 gd 90
llapis
fes.color 10
fes.fons 12
repeteix 4 [greca]
fes.color 1
fi
; ----------------------------------------------------------

% sanefa ;exemple d'ús