clear
clear all
enter pm
create hull\top.c
 ends -80,-120
 top 20
 bot 10@-80, 20@-120
 out 10
/
create hull\mid.c
 ends -45,-80
 top 20
 bot 5@-45, 15@-80
 out 10
 join top.c
/
create hull\bot.c
 ends -10,-45
 top 20
 bot 0@-10, 10@-45
 out 10
 join top.c
/
create hull\trunk.c
 ends 0,-10
 top 20
 bot 15@0 15@-10
 out 2
 join top.c
/
`di
write tree.gf
quit `pm

dr 25
vcg 3
`solve we, lcg
status

add "TREE"  60  -5   0 3 /len:0,-10;
           700 -25.5 0 3 /len:-10,-45;
           525 -60   0 3 /len:-45,-80;
           300 -93   0 3 /len:-80,-120


add "ADJ"  {25*120} -60 0 3/len:0,-120

disk tree2.dat
weight report /all /profile
print preview /-land
report off