GNU PIC で DFD

GNU PIC DFD

GNU PIC で DFD を書く。

図 GNU PIC で DFD

pic のソースは以下のとおり。
DFD.pic

.ps 14 # font size
.PS
scale = 2.54; # inch -> cm
arrowwid=0.25;

define storage {[
    box $1 wid $2 invisible;
    line from last box.nw to last box.ne;
    line from last box.sw to last box.se;
]}

IO1: box "order" width 2;

arrow "order list" above 3;
Process1: circle "accept" rad 1;

arrow;
Process2: circle "shipment" rad 1.1;

arrow;
IO2: box "delivery" width 3;

arrow "add goods" rjust down from Process1.s;
Storage: storage("goods list", 3);

line "refer goods" ljust down from Process2.s to (Process2.s.x, Storage.e.y) <-;
line from last line.end to Storage.e;
.PE