aw = linewid/2
linewid = linewid*2/3
"{\tt .pic}" above
arrow <- right aw
M4: shadebox(box wid boxht "{\tt m4}")
arrow <- right aw
Src: shadebox(box wid boxwid*1.85)
s_box(Diagram source) at Src.nw above ljust
s_box(\tt\small\shortstack[l]{%
.PS \\
``include(libgen.m4)'' \\
cct\_init \\
$\;\cdots$}) with .w at 0.05 between Src.w and Src.e
arrow <- right aw from 0.35 between Src.ne and Src.se
Gen: shadebox(box wid boxwid*2.25 with .nw at (Here,Src.n))
s_box(\tt libgen.m4) at Gen.nw above ljust
s_box(\tt\small\shortstack[l]{%
``if..include(pstricks.m4)'' \\
$\;\cdots$ \\
``define(\char96cct\_init\char39,...)'' \\
$\;\cdots$}) with .w at 0.05 between Gen.w and Gen.e
arrow <- right aw from Gen.e
Conf: shadebox(box wid boxwid*1.8 "Configuration file")
{ s_box(\tt pstricks.m4) at Conf.nw above ljust }
Cct: shadebox(box wid Gen.wid with .nw at Gen.sw+(0,-0.25))
s_box(\tt libcct.m4) at Cct.nw above ljust
s_box(\tt\small\shortstack[l]{%
$\;\cdots$ \\
``define(\char96resistor\char39,...)'' \\
$\;\cdots$}) with .w at 0.05 between Cct.w and Cct.e
dw =(Cct.w.x-Src.e.x)/2
arrow from Cct.w left dw then up Src.y-Cct.y-0.05 then left dw
