.\"
.\"--- .iP to draw textport & read-in "\!" prepended ps file
.\"
.\"--- .iP playground_height_cm "header title" hue_deg incclude_file
.\"
.de iP			\" begin macro of troff-ps mix
.br 
.sp \\$1c		\" extra space, 1st part
.\"
.if \\n(.P=0 .ig IG     \" ignore if not printed
\!%					% ps starts
\!  PB 					% begin isolated ps (save)
\!
\!  P_ctm_rest2                      	% mm scale
\!
\!  /tg 5.0 d_				% gap: top
\!  /bg 5.0 d_				% gap: bot
\!
\!  /hh \\$1 10 mul d_			% height of playground, mm
\!  /hu \\$3        d_			% hue, degrees
\!
\!  32 currentpoint exch pop hh sub 6 sub tg sub translate
\!
\!  0 0 150 hh (\\$2) hu P_tport2 	% textport
\!
\!  P_ctm_save5 0.05 P_width 2.0 P_fhs	% default font for rest of ps 
\!
.so \\$4				% read-in ps file
\!
\!  PE					% end ps (restore)
\!.					% ps ends
.IG
.sp 1.28c		\" extra space, 2nd part: (gap_top+gap_b+6.0-3.2) / 10
..			\" end macro of troff-ps mix