7 addanno.menu
/*
/*   Called by:	editanno.menu
/*  Calls made:	checkcoo.aml
/*		changeannosym.aml
/*		addanno.aml
/*		placeanno.aml
/*		addannoplus.menu
/*
/* Description:	Simple menu for adding and editing annotation
/*
 %pubscale
 %size

 %sym      %symbol

 Text: %text

 Placement of annotation
 %placement

 Add annotation / justification
 %a  %d  %g    %j
 %b  %e  %h    %k
 %c  %f  %i    %l              %more
%pubscale display .ae$pubscale 30 value
%size choice .ae$annoptsizebar pairs query ~
 '&if [show number select] > 0 and %.ae$annoptsizebar% <> 0 &then; ~
  CALCULATE $size = [calc %.ae$annoptsizebar% * %.ae$scale% * ~
  %.ae$annoconstant%]' n/a 0 5 5 6 6 7 7 8 8 9 9 10 10 12 12 14 14
%sym button return 'Symbol:' &run changeannosym
%symbol input .ae$annosymbol 31 required query ~
 '&if [show number select] > 0 &then; CALCULATE $symbol = ~
  [extract 1 %.ae$annosymbol%]' typein yes char
%text input .ae$annostring 35 required typein yes scroll no query ~
 '&if [show number select] > 0 &then; CALCULATE $text = ~
  [quote [value .ae$annostring]]' character
%placement choice placement pairs query ~
 '&if [show number select] = 1 &then; &run placeanno %placement%; ~
  &if [show number select] <> 1 &then; ~
  &ty Only one annotation feature can be repositioned' ~
  'By Points' points 'To an Arc' line 'At 90°' 90
%a button icon jul.icon query '&if [show number select] > 0 &then; ~
  CALCULATE $justify = [quote UL]' 'UL' ANNOPOSITION UL; ANNOFIT OFF; ~
  ANNOSYMBOL [extract 1 %.ae$annosymbol%]; ANNOALIGNMENT LEFT; ~
  ANNOSIZE [calc %.ae$annoptsizebar% * %.ae$scale% * %.ae$annoconstant%]; ~
  &run addanno USER %placement% [quote %.ae$annostring%]
%b button icon jcl.icon query '&if [show number select] > 0 &then; ~
  CALCULATE $justify = [quote CL]' 'CL' ANNOPOSITION CL; ANNOFIT OFF; ~
  ANNOSYMBOL [extract 1 %.ae$annosymbol%]; ANNOALIGNMENT LEFT; ~
  ANNOSIZE [calc %.ae$annoptsizebar% * %.ae$scale% * %.ae$annoconstant%]; ~
  &run addanno USER %placement% [quote %.ae$annostring%]
%c button icon jll.icon query '&if [show number select] > 0 &then; ~
  CALCULATE $justify = [quote LL]' 'LL' ANNOPOSITION LL; ANNOFIT OFF; ~
  ANNOSYMBOL [extract 1 %.ae$annosymbol%]; ANNOALIGNMENT LEFT; ~
  ANNOSIZE [calc %.ae$annoptsizebar% * %.ae$scale% * %.ae$annoconstant%]; ~
  &run addanno USER %placement% [quote %.ae$annostring%]
%d button icon juc.icon query '&if [show number select] > 0 &then; ~
  CALCULATE $justify = [quote UC]' 'UC' ANNOPOSITION UC; ANNOFIT OFF; ~
  ANNOSYMBOL [extract 1 %.ae$annosymbol%]; ANNOALIGNMENT LEFT; ~
  ANNOSIZE [calc %.ae$annoptsizebar% * %.ae$scale% * %.ae$annoconstant%]; ~
  &run addanno USER %placement% [quote %.ae$annostring%]
%e button icon jcc.icon query '&if [show number select] > 0 &then; ~
  CALCULATE $justify = [quote CC]' 'CC' ANNOPOSITION CC; ANNOFIT OFF; ~
  ANNOSYMBOL [extract 1 %.ae$annosymbol%]; ANNOALIGNMENT LEFT; ~
  ANNOSIZE [calc %.ae$annoptsizebar% * %.ae$scale% * %.ae$annoconstant%]; ~
  &run addanno USER %placement% [quote %.ae$annostring%]
%f button icon jlc.icon query '&if [show number select] > 0 &then; ~
  CALCULATE $justify = [quote LC]' 'LC' ANNOPOSITION LC; ANNOFIT OFF; ~
  ANNOSYMBOL [extract 1 %.ae$annosymbol%]; ANNOALIGNMENT LEFT; ~
  ANNOSIZE [calc %.ae$annoptsizebar% * %.ae$scale% * %.ae$annoconstant%]; ~
  &run addanno USER %placement% [quote %.ae$annostring%]
%g button icon jur.icon query '&if [show number select] > 0 &then; ~
  CALCULATE $justify = [quote UR]' 'UR' ANNOPOSITION UR; ANNOFIT OFF; ~
  ANNOSYMBOL [extract 1 %.ae$annosymbol%]; ANNOALIGNMENT LEFT; ~
  ANNOSIZE [calc %.ae$annoptsizebar% * %.ae$scale% * %.ae$annoconstant%]; ~
  &run addanno USER %placement% [quote %.ae$annostring%]
%h button icon jcr.icon query '&if [show number select] > 0 &then; ~
  CALCULATE $justify = [quote CR]' 'CR' ANNOPOSITION CR; ANNOFIT OFF; ~
  ANNOSYMBOL [extract 1 %.ae$annosymbol%]; ANNOALIGNMENT LEFT; ~
  ANNOSIZE [calc %.ae$annoptsizebar% * %.ae$scale% * %.ae$annoconstant%]; ~
  &run addanno USER %placement% [quote %.ae$annostring%]
%i button icon jlr.icon query '&if [show number select] > 0 &then; ~
  CALCULATE $justify = [quote LR]' 'LR' ANNOPOSITION LR; ANNOFIT OFF; ~
  ANNOSYMBOL [extract 1 %.ae$annosymbol%]; ANNOALIGNMENT LEFT; ~
  ANNOSIZE [calc %.ae$annoptsizebar% * %.ae$scale% * %.ae$annoconstant%]; ~
  &run addanno USER %placement% [quote %.ae$annostring%]
%j button icon juu.icon query '&if [show number select] > 0 &then; ~
  CALCULATE $justify = [quote UU]' 'UU' ANNOPOSITION UU; ANNOFIT OFF; ~
  ANNOSYMBOL [extract 1 %.ae$annosymbol%]; ANNOALIGNMENT LEFT; ~
  ANNOSIZE [calc %.ae$annoptsizebar% * %.ae$scale% * %.ae$annoconstant%]; ~
  &run addanno USER %placement% [quote %.ae$annostring%]
%k button icon jcu.icon query '&if [show number select] > 0 &then; ~
  CALCULATE $justify = [quote CU]' 'CU' ANNOPOSITION CU; ANNOFIT OFF; ~
  ANNOSYMBOL [extract 1 %.ae$annosymbol%]; ANNOALIGNMENT LEFT; ~
  ANNOSIZE [calc %.ae$annoptsizebar% * %.ae$scale% * %.ae$annoconstant%]; ~
  &run addanno USER %placement% [quote %.ae$annostring%]
%l button icon jlu.icon query '&if [show number select] > 0 &then; ~
  CALCULATE $justify = [quote LU]' 'LU' ANNOPOSITION LU; ANNOFIT OFF; ~
  ANNOSYMBOL [extract 1 %.ae$annosymbol%]; ANNOALIGNMENT LEFT; ~
  ANNOSIZE [calc %.ae$annoptsizebar% * %.ae$scale% * %.ae$annoconstant%]; ~
  &run addanno USER %placement% [quote %.ae$annostring%]
%more button return 'More...' ~
  &s .ae$annoptsize %.ae$annoptsizebar%; &menu addannoplus ~
  &position &left &thread edit &stripe 'Adding & Editing Annotation' ~
  &pinaction '&s .ae$addannoplus .FALSE.'
%forminit &run checkcoo; ~
  &s .ae$addannoplus .FALSE.