`This run file demonstrates:
`-Finding hull dimensions in GHS,
`-Writing a run file from within another run file,
`-Invoking Part Maker to create a component for some temporary use, and
`-Running a separate session of GHS and getting the results.


`If you make a tank to fill the entire hull, you can get the hull dimensions from it.

read tanker
macro LBD
 enter pm
 create temp.c
 ends -999, 999
 fit hull.c
 //
 write temp.gf
 clear
 quit pm
 me (report) temp.rf
 me read temp.gf
 me tank temp.c
 me variable T_L,T_B,T_D
 me set T_L={{TLENGTH}}, T_B={{TBREADTH}}, T_D={{TTOP}} minus {{TBOT}}
 me write (var) temp.dat /name:T_*
 me quit
 me (report) off
 shell ghs32 temp.rf /spawn /wait
 run temp.dat /call
/
.LBD
me "Length: {T_L}   Breadth: {T_B}   Depth: {T_D}