V10/vol2/cip/menus.new

.PS
scale=100
define macro0 |
[
spline  from 109,258\
to 119,260\
to 109,250\
to 119,253
arc from 98,256 to 88,256 at 93,240
line  from 67,255 to 77,255 
ellipse ht 6 wid 12 at 51,255
box ht 7 wid 10 with .nw at 25,258 
circle rad 5 at 10,255
box ht 19 wid 19 with .nw at 0,264 
box ht 19 wid 19 with .nw at 20,264 
box ht 19 wid 19 with .nw at 41,264 
box ht 19 wid 19 with .nw at 62,264 
box ht 19 wid 19 with .nw at 83,264 
box ht 19 wid 19 with .nw at 104,264 
box ht 19 wid 19 with .nw at 125,264 "\s5Text\s0"
box ht 176 wid 145 with .nw at 0,245 
box ht 25 wid 64 with .nw at 81,65 
box ht 8 wid 18 with .nw at 85,53 
box ht 8 wid 18 with .nw at 124,53 
box ht 8 wid 10 with .nw at 108,53 
line  from 133,49 to 121,24 
line  from 113,49 to 93,10 
line  from 94,49 to 68,0 
] |

define macro1 |
[
line  from 11,8 to 0,35 
line  from 82,114 to 82,114 
line  from 81,114 to 64,128 
line  from 64,128 to 23,109 
line  from 23,109 to 23,81 
line  from 23,81 to 77,63 
line  from 77,63 to 86,20 
line  from 86,20 to 51,0 
line  from 51,0 to 11,8 
spline  from 81,114\
to 64,128\
to 23,109\
to 23,81\
to 77,63\
to 86,20\
to 51,0\
to 11,8\
to 0,35
] |

define macro2 |
[
box ht 10 wid 35 with .nw at 0,50 "\s5delete\s0"
box ht 10 wid 35 with .nw at 0,40 "\s5copy\s0"
box ht 10 wid 35 with .nw at 0,30 "\s5arrow\s0"
box ht 10 wid 35 with .nw at 0,20 "\s5reflect x\s0"
box ht 10 wid 35 with .nw at 0,10 "\s5reflect y\s0"
] |

define macro3 |
[
line <- from 0,16 to 13,0 
] |

define macro4 |
[
spline  from 8,114\
to 25,128\
to 66,109\
to 66,81\
to 12,63\
to 3,20\
to 38,0\
to 78,8\
to 89,35
line  from 38,0 to 78,8 
line  from 3,20 to 38,0 
line  from 12,63 to 3,20 
line  from 66,81 to 12,63 
line  from 66,109 to 66,81 
line  from 25,128 to 66,109 
line  from 8,114 to 25,128 
line  from 7,114 to 7,114 
line  from 78,8 to 89,35 
] |

define macro6 |
[
box ht 10 wid 45 with .nw at 0,80 "\s5get file\s0"
box ht 10 wid 45 with .nw at 0,70 "\s5put file\s0"
box ht 10 wid 45 with .nw at 0,60 "\s5clear screen\s0"
box ht 10 wid 45 with .nw at 0,50 "\s5redraw screen\s0"
box ht 10 wid 45 with .nw at 0,40 "\s5define macro\s0"
box ht 10 wid 45 with .nw at 0,30 "\s5grid\s0"
box ht 10 wid 45 with .nw at 0,20 "\s5reverse video\s0"
box ht 10 wid 45 with .nw at 0,10 "\s5quit\s0"
] |

define macro7 |
[
spline  from 8,114\
to 25,128\
to 66,109\
to 66,81\
to 12,63\
to 3,20\
to 38,0\
to 78,8\
to 89,35
] |

define macro8 |
[
circle rad 55 at 59,59
circle rad 45 at 59,59
circle rad 35 at 59,59
circle rad 25 at 59,59
circle rad 15 at 59,59
circle rad 5 at 59,59
] |

macro0 with .nw at 5,-33
macro1 with .nw at 36,-78
macro3 with .nw at 70,-159
"a) select spline" at 10,-8 ljust

macro0 with .nw at 160,-33
macro1 with .nw at 191,-78
macro2 with .nw at 203,-140
.ps 36
line from 203,-185 to 238,-185
line from 203,-182 to 238,-182
.ps
"b) get spline menu," at 165,-8 ljust
"choose \fBreflect y\fR" at 182,-23 ljust

macro0 with .nw at 315,-33
macro3 with .nw at 380,-159
macro4 with .nw at 346,-78
"c) release button" at 320,-8 ljust

macro0 with .nw at 470,-33
macro3 with .nw at 584,-65
macro7 with .nw at 501,-78
"d) select nothing" at 475,-8 ljust

macro0 with .nw at 5,-400
macro6 with .nw at 100,-430
.ps 36
line from 100,-475 to 145,-475
line from 100,-472 to 145,-472
.ps
macro7 with .nw at 36,-445
"e) get command menu" at 10,-375 ljust

macro0 with .nw at 160,-400
macro6 with .nw at 255,-430
.ps 36
line from 255,-435 to 300,-435
line from 255,-432 to 300,-432
.ps
macro7 with .nw at 191,-445
"f) choose \fBget file\fR" at 165,-375 ljust

macro0 with .nw at 315,-400
macro3 with .nw at 435,-430
"\s8FILE? target\s0" at 315,-610 ljust
"g) release button" at 320,-375 ljust
"type filename" at 337,-390 ljust

macro0 with .nw at 470,-400
macro8 with .nw at 489,-449
macro3 with .nw at 590,-430
"h) see new picture" at 475,-375 ljust

"menu" at 590,-652
"menu" at 437,-653
"menu" at 285,-651
"menu" at 130,-652
"select" at 535,-676
"select" at 385,-679
"select" at 229,-676
"select" at 74,-677
"menu" at 586,-285
"menu" at 435,-282
"menu" at 284,-282
"menu" at 134,-282
"edit" at 404,-297
"edit" at 254,-294
"edit" at 101,-296
"select" at 532,-310
"select" at 381,-312
"select" at 225,-308
"select" at 72,-311
.PE