|
|
1.1 ! root 1: .PS 8.5i ! 2: .ps 20 ! 3: ## figure 9 ! 4: ellipsewid = ellipsewid*3/2 ! 5: ellipseht = ellipseht*5/4 ! 6: linewid = linewid*3/2 ! 7: ## ! 8: B1: ellipse "RO spec" ! 9: B2: box "ROSY" "compiler" \ ! 10: with .w at (B1.e.x+linewid, B1.e.y) ! 11: arrow from B1.e to B2.w ! 12: B2a: ellipse invis with .s at (B2.n.x, B2.n.y+lineht) ! 13: B2b: ellipse "stub" "defs/tables" "for operations" \ ! 14: with .c at B2a.c width 9*ellipsewid/8 height 9*ellipseht/8 ! 15: arrow from B2.n to B2b.s ! 16: ## ! 17: B3: box "POSY" "compiler" \ ! 18: with .w at (B2.e.x+linewid, B2.e.y) ! 19: arrow from B2.e to B3.w ! 20: B3a: ellipse invis with .s at (B3.n.x, B3.n.y+lineht) ! 21: B3b: ellipse "structure defs" "for data types" \ ! 22: with .c at B3a.c width 9*ellipsewid/8 height 9*ellipseht/8 ! 23: arrow from B3.n to B3b.s ! 24: ## ! 25: B4: box "PEPY" "compiler" \ ! 26: with .w at (B3.e.x+linewid, B3.e.y) ! 27: arrow from B3.e to B4.w ! 28: B4a: ellipse invis with .s at (B4.n.x, B4.n.y+lineht) ! 29: B4b: ellipse "conversion" "routines" "for data types" \ ! 30: with .c at B4a.c width 9*ellipsewid/8 height 9*ellipseht/8 ! 31: arrow from B4.n to B4b.s ! 32: ## ! 33: box dashed with .nw at (B2a.w.x-linewid/2, B2a.n.y+lineht/2) \ ! 34: height ellipseht+boxht width B4a.e.x-B2a.w.x+boxwid ! 35: ## ! 36: .PE
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.