|
|
1.1 ! root 1: .PS 8.0i ! 2: .ps 20 ! 3: circlerad=circlerad/4 ! 4: define boxright @ ! 5: B$1: box invis with .nw at B$2.ne ! 6: @ ! 7: define boxdown @ ! 8: B$1: box invis with .nw at B$2.sw ! 9: @ ! 10: define node @ ! 11: C$1: circle shaded with .w at B$1.w; move to (C$1.w.x, C$1.s.y-lineht/10) $2 ! 12: @ ! 13: define data @ ! 14: B$1: box width boxwid/4 height boxht/4 with .w at (C$1.e.x+linewid/4, C$1.e.y) "DU" ! 15: line from C$1.e to B$1.w ! 16: @ ! 17: define linefrom @ ! 18: line from C$1.s to C$2.n ! 19: @ ! 20: ## figure 4b ! 21: ## EXAMPLE: GENERAL HIERARCHICAL CONSTRAINT SET ! 22: B0: box invis ! 23: boxright(1,0) ! 24: boxright(2,1) ! 25: B12: box invis with .c at B1.e ! 26: boxright(3,2) ! 27: boxdown(4,0) ! 28: B13: box invis with .c at B4.e ! 29: boxright(5,4) ! 30: boxright(6,5) ! 31: boxright(7,6) ! 32: boxdown(8,4) ! 33: boxright(9,8) ! 34: boxright(10,9) ! 35: boxright(11,10) ! 36: ## ! 37: node(12,) ! 38: data(12) ! 39: node(13,) ! 40: node(8,"\ fred" ljust) ! 41: data(8) ! 42: node(9,"\ wilma" ljust) ! 43: data(9) ! 44: node(10,"\ pebbles" ljust) ! 45: node(7,) ! 46: data(7) ! 47: node(11,"\ dino" ljust) ! 48: data(11) ! 49: ## ! 50: linefrom(12,13) ! 51: linefrom(12,10) ! 52: linefrom(12,7) ! 53: linefrom(13,8) ! 54: linefrom(13,9) ! 55: linefrom(7,11) ! 56: ## ! 57: define fadu @ ! 58: F$1: box invis with .w at (C$1.w.x-linewid/10, C$1.w.y) \ ! 59: width 3*boxwid/4 height boxht ! 60: @ ! 61: fadu(8) ! 62: fadu(9) ! 63: fadu(10) ! 64: fadu(11) ! 65: ## ! 66: F13: box dashed with .sw at F8.sw \ ! 67: width (F9.e.x-F8.w.x) \ ! 68: height (C13.w.y-F8.s.y)+boxht/2 ! 69: ## ! 70: F7: box dashed with .sw at F11.sw \ ! 71: width (F11.e.x-F11.w.x) \ ! 72: height (C7.w.y-F11.s.y)+boxht/2 ! 73: ## ! 74: F12: box invis with .sw at F8.sw \ ! 75: width (F11.e.x-F8.w.x) \ ! 76: height (C12.w.y-F8.s.y)+boxht/2 ! 77: ## ! 78: ## line from (F12.sw.x, F12.sw.y-lineht/4) \ ! 79: ## to (F12.se.x, F12.se.y-lineht/4) ! 80: ## ! 81: .PE
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.