/trunk/MSc_Matlab_Code/Common/laprint.m

http://thesisyossim.googlecode.com/ · Objective C · 1765 lines · 1629 code · 136 blank · 0 comment · 201 complexity · 2e5d9a0af40cec14c4b71e04963c2f2e MD5 · raw file

Large files are truncated click here to view the full file

    

  1. function laprint(figno,filename,varargin)

    2. 

  2. %LAPRINT prints a figure for inclusion in LaTeX documents.

    3. 

  3. %  LaPrint creates an eps-file and a tex-file. The tex-file contains

    4. 

  4. %  the annotation of the figure such as titles, labels and texts. The

    5. 

  5. %  eps-file contains the non-text part of the figure as well as the

    6. 

  6. %  position of the text-objects. The packages 'graphicx' (or 'epsfig')

    7. 

  7. %  and 'psfrag' (and possibly ''color'') are required for the LaTeX

    8. 

  8. %  run. A postscript driver like 'dvips' is required for printing.

    9. 

  9. %

    10. 

  10. %  Usage:   >> laprint

    11. 

  11. %

    12. 

  12. %  This opens a graphical user interface window, to control the

    13. 

  13. %  various settings. It includes a help facility. Just try it.

    14. 

  14. %

    15. 

  15. %  As an alternative to the GUI you can call laprint from the command

    16. 

  16. %  line with various extra input arguments. These arguments are

    17. 

  17. %  explained in the help window of the GUI, which can be also be

    18. 

  18. %  opened using the command

    19. 

  19. %      >> laprint helpwindow

    20. 

  20. %

    21. 

  21. %  There is an Users Guide available at

    22. 

  22. %      http://www.uni-kassel.de/fb16/rat/matlab/laprint/laprintdoc.ps

    23. 

  23. 

    24. 

  24. %  (c) Arno Linnemann.   All rights reserved.

    25. 

  25. %  The author of this program assumes no responsibility for any  errors

    26. 

  26. %  or omissions. In no event shall he be liable for damages  arising out of

    27. 

  27. %  any use of the software. Redistribution of the unchanged file is allowed.

    28. 

  28. %  Distribution of changed versions is allowed provided the file is renamed

    29. 

  29. %  and the source and authorship of the original version is acknowledged in

    30. 

  30. %  the modified file.

    31. 

  31. 

    32. 

  32. %  Please report bugs, suggestions and comments to:

    33. 

  33. %  Arno Linnemann

    34. 

  34. %  Control and Automation

    35. 

  35. %  Department of Electrical and Computer Engineering

    36. 

  36. %  University of Kassel

    37. 

  37. %  34109 Kassel

    38. 

  38. %  Germany

    39. 

  39. %  mailto:linnemann@uni-kassel.de

    40. 

  40. 

    41. 

  41. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

    42. 

  42. %%%%

    43. 

  43. %%%% Initialize

    44. 

  44. %%%%

    45. 

  45. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

    46. 

  46. 

    47. 

  47. laprintident = '3.16 (13.9.2004)';

    48. 

  48. vers = version;

    49. 

  49. vers = eval(vers(1:3));

    50. 

  50. if vers < 6.1

    51. 

  51.     error('Sorry. Matlab 6.1 or above is required.')

    52. 

  52. end

    53. 

  53. 

    54. 

  54. hf=131;

    55. 

  55. hhf=132;

    56. 

  56. 

    57. 

  57. % no output

    58. 

  58. if nargout

    59. 

  59.     error('No output argument, please.')

    60. 

  60. end

    61. 

  61. 

    62. 

  62. inter=get(0,'defaulttextinterpreter');

    63. 

  63. if ~strcmp(inter,'none')

    64. 

  64.     warning('LaPrint:general',['It is recommended to switch off the '...

    65. 

  65.         'text interpreter\nbefore creating a figure to be saved '...

    66. 

  66.         'with LaPrint. Use the command\n',...

    67. 

  67.         '   >> set(0,''defaulttextinterpreter'',''none'').'])

    68. 

  68. end

    69. 

  69. 

    70. 

  70. if nargin==0

    71. 

  71.     

    72. 

  72.     %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

    73. 

  73.     %%%%

    74. 

  74.     %%%% GUI

    75. 

  75.     %%%%

    76. 

  76.     %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

    77. 

  77.     

    78. 

  78.     try

    79. 

  79.         delete(hf)

    80. 

  80.     end

    81. 

  81.     try

    82. 

  82.         delete(hhf)

    83. 

  83.     end

    84. 

  84.     

    85. 

  85.     %---------------------------------

    86. 

  86.     % open window

    87. 

  87.     %---------------------------------

    88. 

  88.     

    89. 

  89.     hf = figure(hf);

    90. 

  90.     clf reset;

    91. 

  91.     set(hf,'NumberTitle','off',...

    92. 

  92.         'Name','LaPrint (LaTeX Print)',...

    93. 

  93.         'Units','points',...

    94. 

  94.         'CloseRequestFcn','laprint(''quit'');',...

    95. 

  95.         'menubar','none')

    96. 

  96.     h = uicontrol('Parent',hf,'Units','points');

    97. 

  97.     fsize = get(h,'Fontsize');

    98. 

  98.     delete(h)

    99. 

  99.     posf = get(hf,'Position');

    100. 

  100.     figheight = 10*fsize;

    101. 

  101.     figwidth  = 32*fsize;

    102. 

  102.     posf = [ posf(1) posf(2)+posf(4)-figheight figwidth figheight];

    103. 

  103.     set(hf,'Position',posf)

    104. 

  104.     uicontrol('Parent',hf,'style','frame','Units','points',...

    105. 

  105.         'Position',[0 0 figwidth figheight])

    106. 

  106.     curh = figheight-0*fsize;

    107. 

  107.     

    108. 

  108.     LAPRINTHAN=struct('figno',{0},'filename',{0},...

    109. 

  109.         'keepfontprops',{0},'asonscreen',{0},'keepticklabels',{0},...

    110. 

  110.         'mathticklabels',{0},'head',{0},'extrapicture',{0},...

    111. 

  111.         'verbose',{0},'figcopy',{0},'package_epsfig',{0},...

    112. 

  112.         'package_graphicx',{0},'color',{0},'createview',{0},...

    113. 

  113.         'processview',{0});

    114. 

  114.     

    115. 

  115.     %---------------------------------

    116. 

  116.     % figure no.

    117. 

  117.     %---------------------------------

    118. 

  118.     

    119. 

  119.     loch = 1.7*fsize;

    120. 

  120.     curh = curh-loch-1.5*fsize;

    121. 

  121.     h = uicontrol('Parent',hf,...

    122. 

  122.         'style','text',...

    123. 

  123.         'Units','points',...

    124. 

  124.         'Position',[1*fsize curh 18*fsize loch],...

    125. 

  125.         'HorizontalAlignment','left',...

    126. 

  126.         'string','Number of Figure to be saved:');

    127. 

  127.     h = uicontrol('Parent',hf,...

    128. 

  128.         'style','edit',...

    129. 

  129.         'Units','points',...

    130. 

  130.         'Position',[19*fsize curh 12*fsize loch],...

    131. 

  131.         'HorizontalAlignment','left',...

    132. 

  132.         'BackgroundColor',[1 1 1],...

    133. 

  133.         'Callback','laprint(''figno'');');

    134. 

  134.     LAPRINTHAN.figno = h;

    135. 

  135.     

    136. 

  136.     %---------------------------------

    137. 

  137.     % filename

    138. 

  138.     %---------------------------------

    139. 

  139.     

    140. 

  140.     loch = 1.7*fsize;

    141. 

  141.     curh = curh-loch-1*fsize;

    142. 

  142.     h = uicontrol('Parent',hf,...

    143. 

  143.         'style','text',...

    144. 

  144.         'Units','points',...

    145. 

  145.         'Position',[1*fsize curh 18*fsize loch],...

    146. 

  146.         'HorizontalAlignment','left',...

    147. 

  147.         'string','Basename of Files to be Created:');

    148. 

  148.     h = uicontrol('Parent',hf,...

    149. 

  149.         'style','edit',...

    150. 

  150.         'Units','points',...

    151. 

  151.         'Position',[19*fsize curh 12*fsize loch],...

    152. 

  152.         'HorizontalAlignment','left',...

    153. 

  153.         'BackgroundColor',[1 1 1],...

    154. 

  154.         'Callback','laprint(''filename'');');

    155. 

  155.     LAPRINTHAN.filename = h;

    156. 

  156.     

    157. 

  157.     %---------------------------------

    158. 

  158.     % save, quit

    159. 

  159.     %---------------------------------

    160. 

  160.     

    161. 

  161.     loch = 2*fsize;

    162. 

  162.     curh = curh-loch-1*fsize;

    163. 

  163.     h = uicontrol('Parent',hf,...

    164. 

  164.         'Style','pushbutton',...

    165. 

  165.         'Units','Points',...

    166. 

  166.         'Position',[19*fsize curh 5*fsize loch],...

    167. 

  167.         'HorizontalAlignment','center',...

    168. 

  168.         'String','Go !',...

    169. 

  169.         'Callback','laprint(''save'');');

    170. 

  170.     h = uicontrol('Parent',hf,...

    171. 

  171.         'Style','pushbutton',...

    172. 

  172.         'Units','Points',...

    173. 

  173.         'Position',[26*fsize curh 5*fsize loch],...

    174. 

  174.         'HorizontalAlignment','center',...

    175. 

  175.         'String','Quit',...

    176. 

  176.         'Callback','laprint(''quit'');');

    177. 

  177.     

    178. 

  178.     %---------------------------------

    179. 

  179.     % options uimenue

    180. 

  180.     %---------------------------------

    181. 

  181.     

    182. 

  182.     hm1 = uimenu('label','Options');

    183. 

  183.     

    184. 

  184.     uimenu(hm1,...

    185. 

  185.         'label','Sizes and Scalings ...',...

    186. 

  186.         'callback','laprint(''size'')');

    187. 

  187.     

    188. 

  188.     LAPRINTHAN.keepfontprops = uimenu(hm1,...

    189. 

  189.         'label','Translate Matlab Font Properties to LaTeX',...

    190. 

  190.         'callback','laprint(''keepfontprops'')');

    191. 

  191.     

    192. 

  192.     LAPRINTHAN.asonscreen = uimenu(hm1,...

    193. 

  193.         'label','Print Limits and Ticks as on Screen',...

    194. 

  194.         'separator','on',...

    195. 

  195.         'callback','laprint(''asonscreen'')');

    196. 

  196.     

    197. 

  197.     LAPRINTHAN.keepticklabels = uimenu(hm1,...

    198. 

  198.         'label','Keep Tick Labels within eps File',...

    199. 

  199.         'callback','laprint(''keepticklabels'')');

    200. 

  200.     

    201. 

  201.     LAPRINTHAN.mathticklabels = uimenu(hm1,...

    202. 

  202.         'label','Set Tick Labels in LaTeX Math Mode',...

    203. 

  203.         'callback','laprint(''mathticklabels'')');

    204. 

  204.     

    205. 

  205.     LAPRINTHAN.head = uimenu(hm1,...

    206. 

  206.         'label','Equip the tex File with a Head',...

    207. 

  207.         'separator','on',...

    208. 

  208.         'callback','laprint(''head'')');

    209. 

  209.     

    210. 

  210.     uimenu(hm1,...

    211. 

  211.         'label','Comment in the Head of the tex File ...',...

    212. 

  212.         'callback','laprint(''comment'')');

    213. 

  213.     

    214. 

  214.     uimenu(hm1,...

    215. 

  215.         'label','Place a LaTeX Caption in the tex File ...',...

    216. 

  216.         'callback','laprint(''caption'')');

    217. 

  217.     

    218. 

  218.     LAPRINTHAN.extrapicture = uimenu(hm1,...

    219. 

  219.         'label','Place an Extra Picture in each Axes',...

    220. 

  220.         'callback','laprint(''extrapicture'')');

    221. 

  221.     

    222. 

  222.     uimenu(hm1,...

    223. 

  223.         'label','Length of psfrag Replacement Strings ...',...

    224. 

  224.         'callback','laprint(''nzeros'')');

    225. 

  225.     

    226. 

  226.     LAPRINTHAN.verbose = uimenu(hm1,...

    227. 

  227.         'label','Call LaPrint in Verbose Mode',...

    228. 

  228.         'separator','on',...

    229. 

  229.         'callback','laprint(''verbose'')');

    230. 

  230.     

    231. 

  231.     LAPRINTHAN.figcopy = uimenu(hm1,...

    232. 

  232.         'label','Copy Figure and Modify that Copy',...

    233. 

  233.         'callback','laprint(''figcopy'')');

    234. 

  234.     

    235. 

  235.     uimenu(hm1,...

    236. 

  236.         'label','Matlab Print Command ...',...

    237. 

  237.         'separator','on',...

    238. 

  238.         'callback','laprint(''printcmd'')');

    239. 

  239.     

    240. 

  240.     h=uimenu(hm1,...

    241. 

  241.         'separator','on',...

    242. 

  242.         'label','LaTeX Graphics Package');

    243. 

  243.     

    244. 

  244.     LAPRINTHAN.package_graphicx = uimenu(h,...

    245. 

  245.         'label','graphicx',...

    246. 

  246.         'callback','laprint(''package_graphicx'')');

    247. 

  247.     

    248. 

  248.     LAPRINTHAN.package_epsfig = uimenu(h,...

    249. 

  249.         'label','epsfig',...

    250. 

  250.         'callback','laprint(''package_epsfig'')');

    251. 

  251.     

    252. 

  252.     LAPRINTHAN.color = uimenu(hm1,...

    253. 

  253.         'label','Use LaTeX ''color'' Package',...

    254. 

  254.         'callback','laprint(''color'')');

    255. 

  255.     

    256. 

  256.     h = uimenu(hm1,...

    257. 

  257.         'label','View File ...',...

    258. 

  258.         'separator','on');

    259. 

  259.     

    260. 

  260.     LAPRINTHAN.createview = uimenu(h,...

    261. 

  261.         'label','Create a View File',...

    262. 

  262.         'callback','laprint(''createview'')');

    263. 

  263.     

    264. 

  264.     uimenu(h,...

    265. 

  265.         'label','Name of the View File ...',...

    266. 

  266.         'callback','laprint(''viewfilename'')');

    267. 

  267.     

    268. 

  268.     LAPRINTHAN.processview = uimenu(h,...

    269. 

  269.         'label','Process the View File',...

    270. 

  270.         'separator','on',...

    271. 

  271.         'callback','laprint(''processview'')');

    272. 

  272.     

    273. 

  273.     uimenu(h,...

    274. 

  274.         'label','Executables for Processing View File...',...

    275. 

  275.         'callback','laprint(''cmdsview'')');

    276. 

  276.     

    277. 

  277.     %---------------------------------

    278. 

  278.     % Preferences uimenue

    279. 

  279.     %---------------------------------

    280. 

  280.     

    281. 

  281.     hm3=uimenu('label','Preferences');

    282. 

  282.     

    283. 

  283.     uimenu(hm3,...

    284. 

  284.         'label','Get Preferences',...

    285. 

  285.         'callback','laprint(''getpref'')')

    286. 

  286.     

    287. 

  287.     uimenu(hm3,...

    288. 

  288.         'label','Set Preferences to Current Settings',...

    289. 

  289.         'callback','laprint(''setpref'')')

    290. 

  290.     

    291. 

  291.     uimenu(hm3,...

    292. 

  292.         'label','Remove Preferences',...

    293. 

  293.         'callback','laprint(''rmpref'')')

    294. 

  294.     

    295. 

  295.     uimenu(hm3,...

    296. 

  296.         'label','Save Current Settings to a File ...',...

    297. 

  297.         'separator','on',...

    298. 

  298.         'callback','laprint(''savepref'')')

    299. 

  299.     

    300. 

  300.     uimenu(hm3,...

    301. 

  301.         'label','Load Settings from a File ...',...

    302. 

  302.         'callback','laprint(''loadpref'')')

    303. 

  303.     

    304. 

  304.     uimenu(hm3,...

    305. 

  305.         'label','Get Factory Defaults',...

    306. 

  306.         'separator','on',...

    307. 

  307.         'callback','laprint(''factory'')')

    308. 

  308.     

    309. 

  309.     

    310. 

  310.     %---------------------------------

    311. 

  311.     % Help uimenue

    312. 

  312.     %---------------------------------

    313. 

  313.     

    314. 

  314.     hm2=uimenu('label','Help');

    315. 

  315.     

    316. 

  316.     uimenu(hm2,...

    317. 

  317.         'label',['LaPrint Online Help ...'],...

    318. 

  318.         'callback','laprint(''helpwindow'')');

    319. 

  319.     

    320. 

  320.     uimenu(hm2,...

    321. 

  321.         'label','Get the LaPrint Users Guide',...

    322. 

  322.         'callback',['web www.uni-kassel.de/fb16/rat/matlab',...

    323. 

  323.         '/laprint/laprintdoc.ps -browser'])

    324. 

  324.     

    325. 

  325.     uimenu(hm2,...

    326. 

  326.         'label',['Look for a newer version of LaPrint ' ...

    327. 

  327.         '(Matlab Central File Exchange)...'],...

    328. 

  328.         'callback',['web http://www.mathworks.de/matlabcentral/',...

    329. 

  329.         'fileexchange/loadFile.do?objectId=4638',...

    330. 

  330.         '&objectType=file -browser'])

    331. 

  331.     

    332. 

  332.     uimenu(hm2,...

    333. 

  333.         'label','Version and Author ...',...

    334. 

  334.         'callback','laprint(''whois'')')

    335. 

  335.     

    336. 

  336.     %---------------------------------

    337. 

  337.     % make hf invisible

    338. 

  338.     %---------------------------------

    339. 

  339.     

    340. 

  340.     set(hf,'HandleVisibility','callback')

    341. 

  341.     

    342. 

  342.     %---------------------------------

    343. 

  343.     % get settings

    344. 

  344.     %---------------------------------

    345. 

  345.     

    346. 

  346.     LAPRINTOPT = prefsettings;

    347. 

  347.     if isempty(LAPRINTOPT)

    348. 

  348.         LAPRINTOPT = factorysettings;

    349. 

  349.     end

    350. 

  350.     

    351. 

  351.     %---------------------------------

    352. 

  352.     % get figure

    353. 

  353.     %---------------------------------

    354. 

  354.     

    355. 

  355.     gcfig=gcf;

    356. 

  356.     if gcfig == hf

    357. 

  357.         allfigs = findobj('type','figure');

    358. 

  358.         allfigs = allfigs(find(allfigs~=hf));

    359. 

  359.         if length(allfigs)

    360. 

  360.             figno = allfigs(1);

    361. 

  361.         else

    362. 

  362.             figure(1)

    363. 

  363.             figno=1;

    364. 

  364.         end

    365. 

  365.     else

    366. 

  366.         figno=gcfig;

    367. 

  367.     end

    368. 

  368.     LAPRINTOPT.figno = figno;

    369. 

  369.     

    370. 

  370.     %---------------------------------

    371. 

  371.     % update

    372. 

  372.     %---------------------------------

    373. 

  373.     

    374. 

  374.     updategui(LAPRINTHAN,LAPRINTOPT)

    375. 

  375.     sethf(hf,LAPRINTHAN,LAPRINTOPT)

    376. 

  376.     figure(hf)

    377. 

  377.     

    378. 

  378.     %---------------------------------

    379. 

  379.     % done

    380. 

  380.     %---------------------------------

    381. 

  381.     

    382. 

  382.     return

    383. 

  383.     

    384. 

  384. end  % if nargin==0

    385. 

  385. 

    386. 

  386. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

    387. 

  387. %%%%

    388. 

  388. %%%% callback calls ('factory' and 'getprefs' also

    389. 

  389. %%%%                  used from command line)

    390. 

  390. %%%%

    391. 

  391. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

    392. 

  392. 

    393. 

  393. if isa(figno,'char')

    394. 

  394.     

    395. 

  395.     switch figno

    396. 

  396.         case 'figno'

    397. 

  397.             [LAPRINTHAN,LAPRINTOPT]=gethf(hf);

    398. 

  398.             LAPRINTOPT.figno=eval(get(LAPRINTHAN.figno,'string'));

    399. 

  399.             figure(LAPRINTOPT.figno)

    400. 

  400.             figure(hf)

    401. 

  401.             sethf(hf,LAPRINTHAN,LAPRINTOPT);

    402. 

  402.         case 'filename'

    403. 

  403.             [LAPRINTHAN,LAPRINTOPT]=gethf(hf);

    404. 

  404.             LAPRINTOPT.filename=get(LAPRINTHAN.filename,'string');

    405. 

  405.             [texfullnameext,texbasenameext,texbasename,texdirname] = ...

    406. 

  406.                 getfilenames(LAPRINTOPT.filename,'tex',0);

    407. 

  407.             [epsfullnameext,epsbasenameext,epsbasename,epsdirname] = ...

    408. 

  408.                 getfilenames(LAPRINTOPT.filename,'eps',0);

    409. 

  409.             sethf(hf,LAPRINTHAN,LAPRINTOPT);

    410. 

  410.         case 'save'

    411. 

  411.             %     lapcmd = [ 'laprint(' int2str(LAPRINTOPT.figno) ...

    412. 

  412.             % 	   ', ''' LAPRINTOPT.filename ''''...

    413. 

  413.             % 	   ', ''options'', LAPRINTOPT)'];

    414. 

  414.             lapcmd = 'laprint({})';

    415. 

  415.             eval(lapcmd)

    416. 

  416.         case 'quit'

    417. 

  417.             delete(hf)

    418. 

  418.             try

    419. 

  419.                 delete(hhf)

    420. 

  420.             end

    421. 

  421.         case 'size'

    422. 

  422.             [LAPRINTHAN,LAPRINTOPT]=gethf(hf);

    423. 

  423.             answer = inputdlg({['Please enter the width (in centimeters) ',...

    424. 

  424.                 'of the graphics in the LaTeX document (The height ',...

    425. 

  425.                 'will be computed such that the aspect ratio of the ',...

    426. 

  426.                 'figure on screen is retained.) :'],...

    427. 

  427.                 ['Please enter the factor by which the size of the '...

    428. 

  428.                 'graphics in the LaTeX document differs from the size of the '...

    429. 

  429.                 'Postscipt graphics ( Explaination: A factor <1 scales ',...

    430. 

  430.                 'the picture down. This means that lines become thinner ',...

    431. 

  431.                 'and fonts become smaller. ) :'],...

    432. 

  432.                 ['Please specify if you want to scale the fonts along with ',...

    433. 

  433.                 'the graphics (enter ''on'' or ''off'') : '] },...

    434. 

  434.                 'LaPrint Settings',1,{num2str(LAPRINTOPT.width),...

    435. 

  435.                 num2str(LAPRINTOPT.factor),...

    436. 

  436.                 valueyn(LAPRINTOPT.scalefonts)},'on');

    437. 

  437.             if length(answer)

    438. 

  438.                 LAPRINTOPT.width=eval(answer{1});

    439. 

  439.                 LAPRINTOPT.factor = eval(answer{2});

    440. 

  440.                 LAPRINTOPT.scalefonts = value01(answer{3});

    441. 

  441.             end

    442. 

  442.             sethf(hf,LAPRINTHAN,LAPRINTOPT);

    443. 

  443.         case 'keepfontprops'

    444. 

  444.             [LAPRINTHAN,LAPRINTOPT]=gethf(hf);

    445. 

  445.             if LAPRINTOPT.keepfontprops==1

    446. 

  446.                 LAPRINTOPT.keepfontprops=0;

    447. 

  447.                 set(LAPRINTHAN.keepfontprops,'check','off')

    448. 

  448.             else

    449. 

  449.                 LAPRINTOPT.keepfontprops=1;

    450. 

  450.                 set(LAPRINTHAN.keepfontprops,'check','on')

    451. 

  451.             end

    452. 

  452.             sethf(hf,LAPRINTHAN,LAPRINTOPT);

    453. 

  453.         case 'asonscreen'

    454. 

  454.             [LAPRINTHAN,LAPRINTOPT]=gethf(hf);

    455. 

  455.             if LAPRINTOPT.asonscreen==1

    456. 

  456.                 LAPRINTOPT.asonscreen=0;

    457. 

  457.                 set(LAPRINTHAN.asonscreen,'check','off')

    458. 

  458.             else

    459. 

  459.                 LAPRINTOPT.asonscreen=1;

    460. 

  460.                 set(LAPRINTHAN.asonscreen,'check','on')

    461. 

  461.             end

    462. 

  462.             sethf(hf,LAPRINTHAN,LAPRINTOPT);

    463. 

  463.         case 'keepticklabels'

    464. 

  464.             [LAPRINTHAN,LAPRINTOPT]=gethf(hf);

    465. 

  465.             if LAPRINTOPT.keepticklabels==1

    466. 

  466.                 LAPRINTOPT.keepticklabels=0;

    467. 

  467.                 set(LAPRINTHAN.keepticklabels,'check','off')

    468. 

  468.             else

    469. 

  469.                 LAPRINTOPT.keepticklabels=1;

    470. 

  470.                 set(LAPRINTHAN.keepticklabels,'check','on')

    471. 

  471.             end

    472. 

  472.             sethf(hf,LAPRINTHAN,LAPRINTOPT);

    473. 

  473.         case 'mathticklabels'

    474. 

  474.             [LAPRINTHAN,LAPRINTOPT]=gethf(hf);

    475. 

  475.             if LAPRINTOPT.mathticklabels==1

    476. 

  476.                 LAPRINTOPT.mathticklabels=0;

    477. 

  477.                 set(LAPRINTHAN.mathticklabels,'check','off')

    478. 

  478.             else

    479. 

  479.                 LAPRINTOPT.mathticklabels=1;

    480. 

  480.                 set(LAPRINTHAN.mathticklabels,'check','on')

    481. 

  481.             end

    482. 

  482.             sethf(hf,LAPRINTHAN,LAPRINTOPT);

    483. 

  483.         case 'head'

    484. 

  484.             [LAPRINTHAN,LAPRINTOPT]=gethf(hf);

    485. 

  485.             if LAPRINTOPT.head==1

    486. 

  486.                 LAPRINTOPT.head=0;

    487. 

  487.                 set(LAPRINTHAN.head,'check','off')

    488. 

  488.             else

    489. 

  489.                 LAPRINTOPT.head=1;

    490. 

  490.                 set(LAPRINTHAN.head,'check','on')

    491. 

  491.             end

    492. 

  492.             sethf(hf,LAPRINTHAN,LAPRINTOPT);

    493. 

  493.         case 'comment'

    494. 

  494.             [LAPRINTHAN,LAPRINTOPT]=gethf(hf);

    495. 

  495.             answer = inputdlg({['Please enter a describing comment to '...

    496. 

  496.                 'be placed into the head of the tex file:']},...

    497. 

  497.                 'LaPrint Settings',1,{LAPRINTOPT.comment},'on');

    498. 

  498.             if length(answer)

    499. 

  499.                 LAPRINTOPT.comment = answer{1};

    500. 

  500.             end

    501. 

  501.             sethf(hf,LAPRINTHAN,LAPRINTOPT);

    502. 

  502.         case 'caption'

    503. 

  503.             [LAPRINTHAN,LAPRINTOPT]=gethf(hf);

    504. 

  504.             answer = inputdlg(['If the following text is nonempty, ' ...

    505. 

  505.                 'then it will be placed as a \caption{} into the tex '...

    506. 

  506.                 'file along with \label{fig:' LAPRINTOPT.filename '}. '...

    507. 

  507.                 'Please enter the caption text:'],...

    508. 

  508.                 'LaPrint Settings',1,{LAPRINTOPT.caption},'on');

    509. 

  509.             if length(answer)

    510. 

  510.                 LAPRINTOPT.caption = answer{1};

    511. 

  511.             end

    512. 

  512.             sethf(hf,LAPRINTHAN,LAPRINTOPT);

    513. 

  513.         case 'extrapicture'

    514. 

  514.             [LAPRINTHAN,LAPRINTOPT]=gethf(hf);

    515. 

  515.             if LAPRINTOPT.extrapicture==1

    516. 

  516.                 LAPRINTOPT.extrapicture=0;

    517. 

  517.                 set(LAPRINTHAN.extrapicture,'check','off')

    518. 

  518.             else

    519. 

  519.                 LAPRINTOPT.extrapicture=1;

    520. 

  520.                 set(LAPRINTHAN.extrapicture,'check','on')

    521. 

  521.             end

    522. 

  522.             sethf(hf,LAPRINTHAN,LAPRINTOPT);

    523. 

  523.         case 'nzeros'

    524. 

  524.             [LAPRINTHAN,LAPRINTOPT]=gethf(hf);

    525. 

  525.             answer = inputdlg({['Please enter length of the psfrag replacement '...

    526. 

  526.                 'strings (must be >= 3) :']},...

    527. 

  527.                 'LaPrint Settings',1,{num2str(LAPRINTOPT.nzeros)},'on');

    528. 

  528.             if length(answer)

    529. 

  529.                 LAPRINTOPT.nzeros = max(eval(answer{1}),3);

    530. 

  530.             end

    531. 

  531.             sethf(hf,LAPRINTHAN,LAPRINTOPT);

    532. 

  532.         case 'verbose'

    533. 

  533.             [LAPRINTHAN,LAPRINTOPT]=gethf(hf);

    534. 

  534.             if LAPRINTOPT.verbose==1

    535. 

  535.                 LAPRINTOPT.verbose=0;

    536. 

  536.                 set(LAPRINTHAN.verbose,'check','off')

    537. 

  537.             else

    538. 

  538.                 LAPRINTOPT.verbose=1;

    539. 

  539.                 set(LAPRINTHAN.verbose,'check','on')

    540. 

  540.             end

    541. 

  541.             sethf(hf,LAPRINTHAN,LAPRINTOPT);

    542. 

  542.         case 'figcopy'

    543. 

  543.             [LAPRINTHAN,LAPRINTOPT]=gethf(hf);

    544. 

  544.             if LAPRINTOPT.figcopy==1

    545. 

  545.                 LAPRINTOPT.figcopy=0;

    546. 

  546.                 set(LAPRINTHAN.figcopy,'check','off')

    547. 

  547.             else

    548. 

  548.                 LAPRINTOPT.figcopy=1;

    549. 

  549.                 set(LAPRINTHAN.figcopy,'check','on')

    550. 

  550.             end

    551. 

  551.             sethf(hf,LAPRINTHAN,LAPRINTOPT);

    552. 

  552.         case 'printcmd'

    553. 

  553.             [LAPRINTHAN,LAPRINTOPT]=gethf(hf);

    554. 

  554.             answer = inputdlg({['Please enter the Matlab command '...

    555. 

  555.                 'to be used for printing the eps file '...

    556. 

  556.                 '(LaPrint will internally replace <figurenumber> by the '...

    557. 

  557.                 'number of the figure <filename.eps> by the ' ...

    558. 

  558.                 'eps-filename and <filename> '...

    559. 

  559.                 'by the basename of the file, respectively). You can add options '...

    560. 

  560.                 'here (like ''-loose'') or use a different program '...

    561. 

  561.                 'for printing (like ''exportfig'') :']},...

    562. 

  562.                 'LaPrint Settings',1,{LAPRINTOPT.printcmd},'on');

    563. 

  563.             if length(answer)

    564. 

  564.                 LAPRINTOPT.printcmd = answer{1};

    565. 

  565.             end

    566. 

  566.             sethf(hf,LAPRINTHAN,LAPRINTOPT);

    567. 

  567.         case 'package_epsfig'

    568. 

  568.             [LAPRINTHAN,LAPRINTOPT]=gethf(hf);

    569. 

  569.             LAPRINTOPT.package='epsfig';

    570. 

  570.             set(LAPRINTHAN.package_epsfig,'check','on')

    571. 

  571.             set(LAPRINTHAN.package_graphicx,'check','off')

    572. 

  572.             sethf(hf,LAPRINTHAN,LAPRINTOPT);

    573. 

  573.         case 'package_graphicx'

    574. 

  574.             [LAPRINTHAN,LAPRINTOPT]=gethf(hf);

    575. 

  575.             LAPRINTOPT.package='graphicx';

    576. 

  576.             set(LAPRINTHAN.package_epsfig,'check','off')

    577. 

  577.             set(LAPRINTHAN.package_graphicx,'check','on')

    578. 

  578.             sethf(hf,LAPRINTHAN,LAPRINTOPT);

    579. 

  579.         case 'color'

    580. 

  580.             [LAPRINTHAN,LAPRINTOPT]=gethf(hf);

    581. 

  581.             if LAPRINTOPT.color==1

    582. 

  582.                 LAPRINTOPT.color=0;

    583. 

  583.                 set(LAPRINTHAN.color,'check','off')

    584. 

  584.             else

    585. 

  585.                 LAPRINTOPT.color=1;

    586. 

  586.                 set(LAPRINTHAN.color,'check','on')

    587. 

  587.             end

    588. 

  588.             sethf(hf,LAPRINTHAN,LAPRINTOPT);

    589. 

  589.         case 'createview'

    590. 

  590.             [LAPRINTHAN,LAPRINTOPT]=gethf(hf);

    591. 

  591.             if LAPRINTOPT.createview==1

    592. 

  592.                 LAPRINTOPT.createview=0;

    593. 

  593.                 LAPRINTOPT.processview=0;

    594. 

  594.                 set(LAPRINTHAN.createview,'check','off')

    595. 

  595.                 set(LAPRINTHAN.processview,'check','off')

    596. 

  596.             else

    597. 

  597.                 LAPRINTOPT.createview=1;

    598. 

  598.                 set(LAPRINTHAN.createview,'check','on')

    599. 

  599.             end

    600. 

  600.             sethf(hf,LAPRINTHAN,LAPRINTOPT);

    601. 

  601.         case 'viewfilename'

    602. 

  602.             [LAPRINTHAN,LAPRINTOPT]=gethf(hf);

    603. 

  603.             trydlg=1;

    604. 

  604.             txt=['Please enter the name of the '...

    605. 

  605.                 'viewfile (without extension .tex) : '];

    606. 

  606.             txt2='';

    607. 

  607.             while trydlg

    608. 

  608.                 answer = inputdlg({[txt txt2]},...

    609. 

  609.                     'LaPrint Settings',1,{LAPRINTOPT.viewfilename},'on');

    610. 

  610.                 if length(answer)

    611. 

  611.                     if strcmp(answer{1},LAPRINTOPT.filename)

    612. 

  612.                         txt2=['The name must be different from the name of the '...

    613. 

  613.                             'graphics file):'];

    614. 

  614.                     else

    615. 

  615.                         trydlg=0;

    616. 

  616.                         LAPRINTOPT.viewfilename = answer{1};

    617. 

  617.                         [viewfullnameext,viewbasenameext,viewbasename,viewdirname] = ...

    618. 

  618.                             getfilenames(LAPRINTOPT.viewfilename,'tex',0);

    619. 

  619.                     end

    620. 

  620.                 else

    621. 

  621.                     trydlg=0;

    622. 

  622.                 end

    623. 

  623.             end

    624. 

  624.             sethf(hf,LAPRINTHAN,LAPRINTOPT);

    625. 

  625.         case 'processview'

    626. 

  626.             [LAPRINTHAN,LAPRINTOPT]=gethf(hf);

    627. 

  627.             if LAPRINTOPT.processview==1

    628. 

  628.                 LAPRINTOPT.processview=0;

    629. 

  629.                 set(LAPRINTHAN.processview,'check','off')

    630. 

  630.             else

    631. 

  631.                 LAPRINTOPT.processview=1;

    632. 

  632.                 set(LAPRINTHAN.processview,'check','on')

    633. 

  633.                 LAPRINTOPT.createview=1;

    634. 

  634.                 set(LAPRINTHAN.createview,'check','on')

    635. 

  635.             end

    636. 

  636.             sethf(hf,LAPRINTHAN,LAPRINTOPT);

    637. 

  637.         case 'cmdsview'

    638. 

  638.             [LAPRINTHAN,LAPRINTOPT]=gethf(hf);

    639. 

  639.             answer = inputdlg({...

    640. 

  640.                 ['Please enter up to 8 commands to process the view-file. ',...

    641. 

  641.                 'Leave any of the fields empty, if you have ',...

    642. 

  642.                 'less than 8 commands. ',...

    643. 

  643.                 'In any of the following commands, LaPrint internally '...

    644. 

  644.                 'replaces the tag <viewfile> by the name of the viewfile ',...

    645. 

  645.                 'and the tag <filename> by the basename specified in the ',...

    646. 

  646.                 'main LaPrint Window. ',...

    647. 

  647.                 'At minimum you should enter the commands for the LaTeX ',...

    648. 

  648.                 'compilation and for the dvi-to-postscript conversion ',...

    649. 

  649.                 'here. See the LaPrint Online-Help for futher ',...

    650. 

  650.                 'suggestions.   ',...

    651. 

  651.                 'Please enter the 1st command:'],...

    652. 

  652.                 'Please enter the 2nd command:',...

    653. 

  653.                 'Please enter the 3rd command:',...

    654. 

  654.                 'Please enter the 4th command:',...

    655. 

  655.                 'Please enter the 5th command:',...

    656. 

  656.                 'Please enter the 6th command:',...

    657. 

  657.                 'Please enter the 7th command:',...

    658. 

  658.                 'Please enter the 8th command:'},...

    659. 

  659.                 'LaPrint Settings',1,{LAPRINTOPT.cmd1,...

    660. 

  660.                 LAPRINTOPT.cmd2,LAPRINTOPT.cmd3,...

    661. 

  661.                 LAPRINTOPT.cmd4,LAPRINTOPT.cmd5,LAPRINTOPT.cmd6,...

    662. 

  662.                 LAPRINTOPT.cmd7,LAPRINTOPT.cmd8},'on');

    663. 

  663.             if length(answer)==8

    664. 

  664.                 LAPRINTOPT.cmd1=answer{1};

    665. 

  665.                 LAPRINTOPT.cmd2=answer{2};

    666. 

  666.                 LAPRINTOPT.cmd3=answer{3};

    667. 

  667.                 LAPRINTOPT.cmd4=answer{4};

    668. 

  668.                 LAPRINTOPT.cmd5=answer{5};

    669. 

  669.                 LAPRINTOPT.cmd6=answer{6};

    670. 

  670.                 LAPRINTOPT.cmd7=answer{7};

    671. 

  671.                 LAPRINTOPT.cmd8=answer{8};

    672. 

  672.             end

    673. 

  673.             sethf(hf,LAPRINTHAN,LAPRINTOPT);

    674. 

  674.         case 'getpref'

    675. 

  675.             [LAPRINTHAN,LAPRINTOPT]=gethf(hf);

    676. 

  676.             out = prefsettings;

    677. 

  677.             if ~isempty(out)

    678. 

  678.                 oldfigno = LAPRINTOPT.figno;   % keep this!

    679. 

  679.                 LAPRINTOPT = out;

    680. 

  680.                 LAPRINTOPT.figno = oldfigno;

    681. 

  681.             else

    682. 

  682.                 errordlg('No LaPrint preferences available.')

    683. 

  683.             end

    684. 

  684.             updategui(LAPRINTHAN,LAPRINTOPT);

    685. 

  685.             sethf(hf,LAPRINTHAN,LAPRINTOPT);

    686. 

  686.         case 'setpref'

    687. 

  687.             [LAPRINTHAN,LAPRINTOPT]=gethf(hf);

    688. 

  688.             setpref('LaPrint','LAPRINTOPT',LAPRINTOPT);

    689. 

  689.         case 'rmpref'

    690. 

  690.             if ispref('LaPrint')

    691. 

  691.                 rmpref('LaPrint');

    692. 

  692.             else

    693. 

  693.                 errordlg('Preference does not exist.')

    694. 

  694.             end

    695. 

  695.         case 'savepref'

    696. 

  696.             [LAPRINTHAN,LAPRINTOPT]=gethf(hf);

    697. 

  697.             txt = 'Save preferences file ';

    698. 

  698.             [preffile,prefpath]=uiputfile('laprint.mat',txt);

    699. 

  699.             save([prefpath preffile],'LAPRINTOPT');

    700. 

  700.         case 'loadpref'

    701. 

  701.             [LAPRINTHAN,LAPRINTOPT]=gethf(hf);

    702. 

  702.             txt = ['Load preferences file '...

    703. 

  703.                 '(must be previously created by LaPrint)'];

    704. 

  704.             [preffile,prefpath]=uigetfile('laprint.mat',txt);

    705. 

  705.             if ~isequal(preffile,0) & ~isequal(prefpath,0)

    706. 

  706.                 oldfigno = LAPRINTOPT.figno;   % keep this!

    707. 

  707.                 load([prefpath preffile]); % hope file contains correct

    708. 

  708.                 LAPRINTOPT.figno = oldfigno;                   % LAPRINTOPT

    709. 

  709.                 updategui(LAPRINTHAN,LAPRINTOPT);

    710. 

  710.                 sethf(hf,LAPRINTHAN,LAPRINTOPT);

    711. 

  711.             end

    712. 

  712.         case 'factory'

    713. 

  713.             [LAPRINTHAN,LAPRINTOPT]=gethf(hf);

    714. 

  714.             out = factorysettings;

    715. 

  715.             if ~isempty(out)

    716. 

  716.                 oldfigno = LAPRINTOPT.figno;   % keep this!

    717. 

  717.                 LAPRINTOPT = out;

    718. 

  718.                 LAPRINTOPT.figno = oldfigno;

    719. 

  719.             else

    720. 

  720.                 errordlg('No LaPrint preferences available.')

    721. 

  721.             end

    722. 

  722.             updategui(LAPRINTHAN,LAPRINTOPT);

    723. 

  723.             sethf(hf,LAPRINTHAN,LAPRINTOPT);

    724. 

  724.         case 'helpwindow'

    725. 

  725.             hhf=figure(hhf);

    726. 

  726.             set(hhf,'Name','LaPrint Online Help',...

    727. 

  727.                 'Numbertitle','off',...

    728. 

  728.                 'menubar','none',...

    729. 

  729.                 'HandleVisibility','callback',...

    730. 

  730.                 'resize','on',...

    731. 

  731.                 'ResizeFcn','laprint(''helpwindow'');');

    732. 

  732.             hht=uicontrol('Parent',hhf,...

    733. 

  733.                 'style','listbox',...

    734. 

  734.                 'units','normalized',...

    735. 

  735.                 'position',[0.005 0.005 0.9 0.99],...

    736. 

  736.                 'BackgroundColor','w',...

    737. 

  737.                 'Fontsize',12,...

    738. 

  738.                 'foregroundcolor','k',...

    739. 

  739.                 'FontName','FixedWidth',...

    740. 

  740.                 'HorizontalAlignment','left');

    741. 

  741.             [txt,hhtpos]=textwrap(hht,helptext);

    742. 

  742.             set(hht,'string',txt)

    743. 

  743.             set(hht,'position',[0.005 0.005 0.99 0.99])

    744. 

  744.             set(hht,'HandleVisibility','callback')

    745. 

  745.         case 'whois'

    746. 

  746.             msgbox({['This is LaPrint, Version ' laprintident],...

    747. 

  747.                 '',...

    748. 

  748.                 'To blame for LaPrint:',...

    749. 

  749.                 'Arno Linnemann','Control and Automation',...

    750. 

  750.                 'Department of Electrical and Computer Engineering',...

    751. 

  751.                 'University of Kassel',...

    752. 

  752.                 '34109 Kassel',...

    753. 

  753.                 'Germany',...

    754. 

  754.                 'mailto:linnemann@uni-kassel.de'},...

    755. 

  755.                 'LaPrint Info')

    756. 

  756.         otherwise

    757. 

  757.             error('unknown callback option')

    758. 

  758.     end

    759. 

  759.     return

    760. 

  760. end    % if isa(figno,'char')

    761. 

  761. 

    762. 

  762. % nargin >=1 and ~isa(figno,'char')

    763. 

  763. 

    764. 

  764. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

    765. 

  765. %%%%

    766. 

  766. %%%% PART 1 of advanced usage:

    767. 

  767. %%%% Check inputs and initialize

    768. 

  768. %%%%

    769. 

  769. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

    770. 

  770. 

    771. 

  771. if isa(figno,'cell') % called from GUI (all set)

    772. 

  772.     

    773. 

  773.     [LAPRINTHAN,LAPRINTOPT]=gethf(hf);

    774. 

  774.     figno=LAPRINTOPT.figno;

    775. 

  775.     filename=LAPRINTOPT.filename;

    776. 

  776.     

    777. 

  777. else % advanced usage

    778. 

  778.     

    779. 

  779.     % get settings

    780. 

  780.     LAPRINTOPT = prefsettings;

    781. 

  781.     if isempty(LAPRINTOPT)

    782. 

  782.         LAPRINTOPT = factorysettings;

    783. 

  783.     end

    784. 

  784.     

    785. 

  785.     % modify prefs

    786. 

  786.     if ~isa(figno,'double')

    787. 

  787.         figno

    788. 

  788.         error('This is not a figure handle.')

    789. 

  789.     end

    790. 

  790.     if ~any(get(0,'children')==figno)

    791. 

  791.         figno

    792. 

  792.         error('This is not a figure handle.')

    793. 

  793.     end

    794. 

  794.     LAPRINTOPT.figno = figno;

    795. 

  795.     

    796. 

  796.     if nargin>1

    797. 

  797.         if ~isa(filename,'char')

    798. 

  798.             filename

    799. 

  799.             error('This is not a file name.')

    800. 

  800.         end

    801. 

  801.         LAPRINTOPT.filename=filename;

    802. 

  802.     end

    803. 

  803. end

    804. 

  804. 

    805. 

  805. % read and check command line options

    806. 

  806. 

    807. 

  807. try  % try old usage (Version 2.03)

    808. 

  808.     if nargin <=2

    809. 

  809.         error('lets take new usage')

    810. 

  810.     end

    811. 

  811.     % 2.03 defaults

    812. 

  812.     width           = 12;

    813. 

  813.     factor          = 0.8;

    814. 

  814.     scalefonts      = 1;

    815. 

  815.     keepfontprops   = 0;

    816. 

  816.     asonscreen      = 0;

    817. 

  817.     keepticklabels  = 0;

    818. 

  818.     mathticklabels  = 0;

    819. 

  819.     head            = 1;

    820. 

  820.     comment         = '';

    821. 

  821.     caption         = '';

    822. 

  822.     extrapicture    = 1;

    823. 

  823.     nzeros          = 5;

    824. 

  824.     verbose         = 0;

    825. 

  825.     figcopy         = 1;

    826. 

  826.     printcmd        = ['print(''-f<figurenumber>'',' ...

    827. 

  827.         '''-deps'',''<filename.eps>'')'];

    828. 

  828.     package         = 'epsfig';

    829. 

  829.     color           = 0;

    830. 

  830.     createview      = 0;

    831. 

  831.     viewfilename    = [filename '_'];

    832. 

  832.     processview     = 0;

    833. 

  833.     cmd1            = '';

    834. 

  834.     cmd2            = '';

    835. 

  835.     cmd3            = '';

    836. 

  836.     cmd4            = '';

    837. 

  837.     cmd5            = '';

    838. 

  838.     cmd6            = '';

    839. 

  839.     cmd7            = '';

    840. 

  840.     cmd8            = '';

    841. 

  841.     for i=1:nargin-2

    842. 

  842.         if ~isa(varargin{i},'char')

    843. 

  843.             error('Options must be character arrays.')

    844. 

  844.         end

    845. 

  845.         oriopt=varargin{i}(:)';

    846. 

  846.         opt=[ lower(strrep(oriopt,' ','')) '                   ' ];

    847. 

  847.         if strcmp(opt(1:7),'verbose')

    848. 

  848.             verbose=1;

    849. 

  849.         elseif strcmp(opt(1:10),'asonscreen')

    850. 

  850.             asonscreen=1;

    851. 

  851.         elseif strcmp(opt(1:14),'keepticklabels')

    852. 

  852.             keepticklabels=1;

    853. 

  853.         elseif strcmp(opt(1:14),'mathticklabels')

    854. 

  854.             mathticklabels=1;

    855. 

  855.         elseif strcmp(opt(1:13),'keepfontprops')

    856. 

  856.             keepfontprops=1;

    857. 

  857.         elseif strcmp(opt(1:14),'noextrapicture')

    858. 

  858.             extrapicture=0;

    859. 

  859.         elseif strcmp(opt(1:14),'noextrapicture')

    860. 

  860.             extrapicture=0;

    861. 

  861.         elseif strcmp(opt(1:5),'loose')

    862. 

  862.             printcmd = ['print(''-f<figurenumber>'',' ...

    863. 

  863.                 '''-deps'',''-loose'',''<filename.eps>'')'];

    864. 

  864.         elseif strcmp(opt(1:9),'nofigcopy')

    865. 

  865.             figcopy=0;

    866. 

  866.         elseif strcmp(opt(1:12),'noscalefonts')

    867. 

  867.             scalefonts=0;

    868. 

  868.         elseif strcmp(opt(1:6),'nohead')

    869. 

  869.             head=0;

    870. 

  870.         elseif strcmp(opt(1:7),'caption')

    871. 

  871.             eqpos=findstr(oriopt,'=');

    872. 

  872.             if isempty(eqpos)

    873. 

  873.                 caption='Matlab Figure';

    874. 

  874.             else

    875. 

  875.                 caption=oriopt(eqpos+1:length(oriopt));

    876. 

  876.             end

    877. 

  877.         elseif strcmp(opt(1:8),'comment=')

    878. 

  878.             eqpos=findstr(oriopt,'=');

    879. 

  879.             comment=oriopt(eqpos(1)+1:length(oriopt));

    880. 

  880.         elseif strcmp(opt(1:9),'viewfile=')

    881. 

  881.             createview=1;

    882. 

  882.             eqpos=findstr(oriopt,'=');

    883. 

  883.             viewfilename=oriopt(eqpos(1)+1:length(oriopt));

    884. 

  884.         elseif strcmp(opt(1:6),'width=')

    885. 

  885.             eval([ opt ';' ]);

    886. 

  886.         elseif strcmp(opt(1:7),'factor=')

    887. 

  887.             eval([ opt ';' ]);

    888. 

  888.         else

    889. 

  889.             error([ 'Option ' varargin{i} ' not recognized.'])

    890. 

  890.         end

    891. 

  891.     end

    892. 

  892.     

    893. 

  893.     warning('LaPrint:general',['You are using the old LaPrint '...

    894. 

  894.         'syntax. This syntax might not be supported in '...

    895. 

  895.         'future releases of LaPrint.'])

    896. 

  896.     

    897. 

  897. catch % old usage doesn't work, take new one

    898. 

  898.     

    899. 

  899.     % restore preferences / factory defaults

    900. 

  900.     width           = LAPRINTOPT.width;

    901. 

  901.     factor          = LAPRINTOPT.factor;

    902. 

  902.     scalefonts      = LAPRINTOPT.scalefonts;

    903. 

  903.     keepfontprops   = LAPRINTOPT.keepfontprops;

    904. 

  904.     asonscreen      = LAPRINTOPT.asonscreen;

    905. 

  905.     keepticklabels  = LAPRINTOPT.keepticklabels;

    906. 

  906.     mathticklabels  = LAPRINTOPT.mathticklabels;

    907. 

  907.     head            = LAPRINTOPT.head;

    908. 

  908.     comment         = LAPRINTOPT.comment;

    909. 

  909.     caption         = LAPRINTOPT.caption;

    910. 

  910.     extrapicture    = LAPRINTOPT.extrapicture;

    911. 

  911.     nzeros          = LAPRINTOPT.nzeros;

    912. 

  912.     verbose         = LAPRINTOPT.verbose;

    913. 

  913.     figcopy         = LAPRINTOPT.figcopy;

    914. 

  914.     printcmd        = LAPRINTOPT.printcmd;

    915. 

  915.     package         = LAPRINTOPT.package;

    916. 

  916.     color           = LAPRINTOPT.color;

    917. 

  917.     createview      = LAPRINTOPT.createview;

    918. 

  918.     viewfilename    = LAPRINTOPT.viewfilename;

    919. 

  919.     processview     = LAPRINTOPT.processview;

    920. 

  920.     cmd1            = LAPRINTOPT.cmd1;

    921. 

  921.     cmd2            = LAPRINTOPT.cmd2;

    922. 

  922.     cmd3            = LAPRINTOPT.cmd3;

    923. 

  923.     cmd4            = LAPRINTOPT.cmd4;

    924. 

  924.     cmd5            = LAPRINTOPT.cmd5;

    925. 

  925.     cmd6            = LAPRINTOPT.cmd6;

    926. 

  926.     cmd7            = LAPRINTOPT.cmd7;

    927. 

  927.     cmd8            = LAPRINTOPT.cmd8;

    928. 

  928.     

    929. 

  929.     if nargin > 2

    930. 

  930.         if rem(nargin,2)

    931. 

  931.             error('Option names/values must appear in pairs.')

    932. 

  932.         end

    933. 

  933.         for i=1:2:nargin-2

    934. 

  934.             if ~isa(varargin{i},'char')

    935. 

  935.                 error('Option name must be a character array.')

    936. 

  936.             end

    937. 

  937.             opt = lower(strrep(varargin{i}(:)',' ',''));

    938. 

  938.             val = varargin{i+1}(:)';

    939. 

  939.             switch opt

    940. 

  940.                 case 'options'

    941. 

  941.                     if isa(val,'char')

    942. 

  942.                         if strcmp(val,'factory')

    943. 

  943.                             val = factorysettings;

    944. 

  944.                         else

    945. 

  945.                             load(val)

    946. 

  946.                             val = LAPRINTOPT;

    947. 

  947.                         end

    948. 

  948.                     end

    949. 

  949.                     if ~isa(val,'struct')

    950. 

  950.                         error('Value of options must be a structure array.')

    951. 

  951.                     end

    952. 

  952.                     % no error checking here!

    953. 

  953.                     width           = val.width;

    954. 

  954.                     factor          = val.factor;

    955. 

  955.                     scalefonts      = val.scalefonts;

    956. 

  956.                     keepfontprops   = val.keepfontprops;

    957. 

  957.                     asonscreen      = val.asonscreen;

    958. 

  958.                     keepticklabels  = val.keepticklabels;

    959. 

  959.                     mathticklabels  = val.mathticklabels;

    960. 

  960.                     head            = val.head;

    961. 

  961.                     comment         = val.comment;

    962. 

  962.                     caption         = val.caption;

    963. 

  963.                     extrapicture    = val.extrapicture;

    964. 

  964.                     nzeros          = val.nzeros;

    965. 

  965.                     verbose         = val.verbose;

    966. 

  966.                     figcopy         = val.figcopy;

    967. 

  967.                     printcmd        = val.printcmd;

    968. 

  968.                     package         = val.package;

    969. 

  969.                     color           = val.color;

    970. 

  970.                     createview      = val.createview;

    971. 

  971.                     viewfilename    = val.viewfilename;

    972. 

  972.                     processview     = val.processview;

    973. 

  973.                     cmd1            = val.cmd1;

    974. 

  974.                     cmd2            = val.cmd2;

    975. 

  975.                     cmd3            = val.cmd3;

    976. 

  976.                     cmd4            = val.cmd4;

    977. 

  977.                     cmd5            = val.cmd5;

    978. 

  978.                     cmd6            = val.cmd6;

    979. 

  979.                     cmd7            = val.cmd7;

    980. 

  980.                     cmd8            = val.cmd8;

    981. 

  981.                 case 'width'

    982. 

  982.                     if ~isa(val,'double')

    983. 

  983.                         error('Value of width must be a double.')

    984. 

  984.                     end

    985. 

  985.                     width = val;

    986. 

  986.                 case 'factor'

    987. 

  987.                     if ~isa(val,'double')

    988. 

  988.                         error('Value of factor must be a double.')

    989. 

  989.                     end

    990. 

  990.                     factor=val;

    991. 

  991.                 case 'scalefonts'

    992. 

  992.                     scalefonts = value01(val,opt);

    993. 

  993.                 case 'keepfontprops'

    994. 

  994.                     keepfontprops = value01(val,opt);

    995. 

  995.                 case 'asonscreen'

    996. 

  996.                     asonscreen = value01(val,opt);

    997. 

  997.                 case 'keepticklabels'

    998. 

  998.                     keepticklabels = value01(val,opt);

    999. 

  999.                 case 'mathticklabels'

    1000. 

  1000.                     mathticklabels = value01(val,opt) ;

    1001. 

  1001.                 case 'head'

    1002. 

  1002.                     head = value01(val,opt);

    1003. 

  1003.                 case 'comment'

    1004. 

  1004.                     if ~isa(val,'char')

    1005. 

  1005.                         error('Value of comment must be a character array.')

    1006. 

  1006.                     end

    1007. 

  1007.                     comment = val;

    1008. 

  1008.                 case 'caption'

    1009. 

  1009.                     if ~isa(val,'char')

    1010. 

  1010.                         error('Value of caption must be a character array.')

    1011. 

  1011.                     end

    1012. 

  1012.                     caption = val;

    1013. 

  1013.                 case 'extrapicture'

    1014. 

  1014.                     extrapicture = value01(val,opt);

    1015. 

  1015.                 case 'nzeros'

    1016. 

  1016.                     if ~isa(val,'double')

    1017. 

  1017.                         error('Value of nzeros must be a double.')

    1018. 

  1018.                     end

    1019. 

  1019.                     nzeros = val;

    1020. 

  1020.                 case 'verbose'

    1021. 

  1021.                     verbose = value01(val,opt);

    1022. 

  1022.                 case 'figcopy'

    1023. 

  1023.                     figcopy = value01(val,opt);

    1024. 

  1024.                 case 'printcmd'

    1025. 

  1025.                     if ~isa(val,'char')

    1026. 

  1026.                         error('Value of printcmd must be a character array.')

    1027. 

  1027.                     end

    1028. 

  1028.                     printcmd = val;

    1029. 

  1029.                 case 'package'

    1030. 

  1030.                     if ~isa(val,'char')

    1031. 

  1031.                         error('Value of package must be a character array.')

    1032. 

  1032.                     end

    1033. 

  1033.                     val = lower(strrep(val,' ',''));

    1034. 

  1034.                     switch val

    1035. 

  1035.                         case {'graphicx','epsfig'}

    1036. 

  1036.                             % fine

    1037. 

  1037.                         otherwise

    1038. 

  1038.                             error('Value of package is unknown.')

    1039. 

  1039.                     end

    1040. 

  1040.                     package = val;

    1041. 

  1041.                 case 'color'

    1042. 

  1042.                     color = value01(val,opt);

    1043. 

  1043.                 case 'createview'

    1044. 

  1044.                     createview = value01(val,opt);

    1045. 

  1045.                 case 'viewfilename'

    1046. 

  1046.                     if ~isa(val,'char')

    1047. 

  1047.                         error('Value of viewfilename must be a character array.')

    1048. 

  1048.                     end

    1049. 

  1049.                     viewfilename = val;

    1050. 

  1050.                 case 'processview'

    1051. 

  1051.                     processview = value01(val,opt);

    1052. 

  1052.                 case 'cmd1'

    1053. 

  1053.                     if ~isa(val,'char')

    1054. 

  1054.                         error('Value of cmd1 must be a character array.')

    1055. 

  1055.                     end

    1056. 

  1056.                     cmd1 = val;

    1057. 

  1057.                 case 'cmd2'

    1058. 

  1058.                     if ~isa(val,'char')

    1059. 

  1059.                         error('Value of cmd2 must be a character array.')

    1060. 

  1060.                     end

    1061. 

  1061.                     cmd2 = val;

    1062. 

  1062.                 case 'cmd3'

    1063. 

  1063.                     if ~isa(val,'char')

    1064. 

  1064.                         error('Value of cmd3 must be a character array.')

    1065. 

  1065.                     end

    1066. 

  1066.                     cmd3 = val;

    1067. 

  1067.                 case 'cmd4'

    1068. 

  1068.                     if ~isa(val,'char')

    1069. 

  1069.                         error('Value of cmd4 must be a character array.')

    1070. 

  1070.                     end

    1071. 

  1071.                     cmd4 = val;

    1072. 

  1072.                 case 'cmd5'

    1073. 

  1073.                     if ~isa(val,'char')

    1074. 

  1074.                         error('Value of cmd5 must be a character array.')

    1075. 

  1075.                     end

    1076. 

  1076.                     cmd5 = val;

    1077. 

  1077.                 case 'cmd6'

    1078. 

  1078.                     if ~isa(val,'char')

    1079. 

  1079.                         error('Value of cmd6 must be a character array.')

    1080. 

  1080.                     end

    1081. 

  1081.                     cmd6 = val;

    1082. 

  1082.                 case 'cmd7'

    1083. 

  1083.                     if ~isa(val,'char')

    1084. 

  1084.                         error('Value of cmd7 must be a character array.')

    1085. 

  1085.                     end

    1086. 

  1086.                     cmd7 = val;

    1087. 

  1087.                 case 'cmd8'

    1088. 

  1088.                     if ~isa(val,'char')

    1089. 

  1089.                         error('Value of cmd8 must be a character array.')

    1090. 

  1090.                     end

    1091. 

  1091.                     cmd8 = val;

    1092. 

  1092.                 otherwise

    1093. 

  1093.                     error(['Option ''' opt ''' unknown'])

    1094. 

  1094.             end % switch opt

    1095. 

  1095.         end % for i=3:2:nargin

    1096. 

  1096.     end % if nargin > 2

    1097. 

  1097. end % try / catch

    1098. 

  1098. 

    1099. 

  1099. if verbose,

    1100. 

  1100.     disp([ 'This is LaPrint, version ' laprintident '.' ]);

    1101. 

  1101. end

    1102. 

  1102. 

    1103. 

  1103. comment   = strrep(strrep(comment,'\','\\'),'%','%%');

    1104. 

  1104. caption   = strrep(strrep(caption,'\','\\'),'%','%%');

    1105. 

  1105. iscaption = logical(length(caption));

    1106. 

  1106. 

    1107. 

  1107. if nzeros < 3

    1108. 

  1108.     warning('LaPrint:general',...

    1109. 

  1109.         'The value of nzero should be >=3. I will use nzeros=3.')

    1110. 

  1110.     nzeros=3;

    1111. 

  1111. end

    1112. 

  1112. 

    1113. 

  1113. if processview

    1114. 

  1114.     createview=1;

    1115. 

  1115. end

    1116. 

  1116. 

    1117. 

  1117. if mathticklabels

    1118. 

  1118.     Do='$';

    1119. 

  1119. else

    1120. 

  1120.     Do='';

    1121. 

  1121. end

    1122. 

  1122. 

    1123. 

  1123. % eps- and tex- filenames

    1124. 

  1124. [epsfullnameext,epsbasenameext,epsbasename,epsdirname] = ...

    1125. 

  1125.     getfilenames(filename,'eps',verbose);

    1126. 

  1126. [texfullnameext,texbasenameext,texbasename,texdirname] = ...

    1127. 

  1127.     getfilenames(filename,'tex',verbose);

    1128. 

  1128. if ~strcmp(texdirname,epsdirname)

    1129. 

  1129.     warning('LaPrint:files',['The eps-file and tex-file are '...

    1130. 

  1130.         'placed in different directories.']);

    1131. 

  1131. end

    1132. 

  1132. 

    1133. 

  1133. if createview | processview

    1134. 

  1134.     [viewfullnameext,viewbasenameext,viewbasename,viewdirname] = ...

    1135. 

  1135.         getfilenames(viewfilename,'tex',verbose);

    1136. 

  1136.     if strcmp(texfullnameext,viewfullnameext)

    1137. 

  1137.         viewfilename=[ viewfilename '_'];

    1138. 

  1138.         warning('LaPrint:files',['The tex- and view-file coincide. '...

    1139. 

  1139.             'I''ll use '' ' viewfilename ' ''. Hope that''s ok.' ])

    1140. 

  1140.     end

    1141. 

  1141.     [viewfullnameext,viewbasenameext,viewbasename,viewdirname]= ...

    1142. 

  1142.         getfilenames(viewfilename,'tex',verbose);

    1143. 

  1143.     if ~strcmp(texdirname,viewdirname)

    1144. 

  1144.         warning('LaPrint:files',['The eps-file and view-file are '...

    1145. 

  1145.             'placed in different directories.' ])

    1146. 

  1146.     end

    1147. 

  1147. end

    1148. 

  1148. 

    1149. 

  1149. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

    1150. 

  1150. %%%%

    1151. 

  1151. %%%% PART 2 of advanced usage:

    1152. 

  1152. %%%% Create new figure, insert tags, and bookkeep original text

    1153. 

  1153. %%%%

    1154. 

  1154. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

    1155. 

  1155. 

    1156. 

  1156. % show all

    1157. 

  1157. shh = get(0,'ShowHiddenHandles');

    1158. 

  1158. set(0,'ShowHiddenHandles','on');

    1159. 

  1159. 

    1160. 

  1160. % preparing check for copyobj bug

    1161. 

  1161. figno_ori = figno;

    1162. 

  1162. number_children_ori = length(get(figno_ori,'children'));

    1163. 

  1163. 

    1164. 

  1164. % open new figure (if required) and set properties

    1165. 

  1165. if figcopy

    1166. 

  1166.     figno = copyobj(figno,0);

    1167. 

  1167.     set(figno,'visible','off')

    1168. 

  1168.     set(figno,'Numbertitle','off')

    1169. 

  1169.     set(figno,'MenuBar','none')

    1170. 

  1170.     pause(0.5)

    1171. 

  1171. end

    1172. 

  1172. 

    1173. 

  1173. if asonscreen

    1174. 

  1174.     xlimmodeauto       = findobj(figno,'xlimmode','auto');

    1175. 

  1175.     xtickmodeauto      = findobj(figno,'xtickmode','auto');

    1176. 

  1176.     xticklabelmodeauto = findobj(figno,'xticklabelmode','auto');

    1177. 

  1177.     ylimmodeauto       = findobj(figno,'ylimmode','auto');

    1178. 

  1178.     ytickmodeauto      = findobj(figno,'ytickmode','auto');

    1179. 

  1179.     yticklabelmodeauto = findobj(figno,'yticklabelmode','auto');

    1180. 

  1180.     zlimmodeauto       = findobj(figno,'zlimmode','auto');

    1181. 

  1181.     ztickmodeauto      = findobj(figno,'ztickmode','auto');

    1182. 

  1182.     zticklabelmodeauto = findobj(figno,'zticklabelmode','auto');

    1183. 

  1183.     set(xlimmodeauto,'xlimmode','manual')

    1184. 

  1184.     set(xtickmodeauto,'xtickmode','manual')

    1185. 

  1185.     set(xticklabelmodeauto,'xticklabelmode','manual')

    1186. 

  1186.     set(ylimmodeauto,'ylimmode','manual')

    1187. 

  1187.     set(ytickmodeauto,'ytickmode','manual')

    1188. 

  1188.     set(yticklabelmodeauto,'yticklabelmode','manual')

    1189. 

  1189.     set(zlimmodeauto,'ylimmode','manual')

    1190. 

  1190.     set(ztickmodeauto,'ytickmode','manual')

    1191. 

  1191.     set(zticklabelmodeauto,'yticklabelmode','manual')

    1192. 

  1192. end

    1193. 

  1193. set(figno,'paperunits','centimeters');

    1194. 

  1194. set(figno,'units','centimeters');

    1195. 

  1195. orip = get(figno,'Position');

    1196. 

  1196. 

    1197. 

  1197. % determine width and height

    1198. 

  1198. if factor <= 0

    1199. 

  1199.     factor = width/orip(3);

    1200. 

  1200. end

    1201. 

  1201. latexwidth = width;

    1202. 

  1202. epswidth   = latexwidth/factor;

    1203. 

  1203. epsheight  = epswidth*orip(4)/orip(3);

    1204. 

  1204. 

    1205. 

  1205. set(figno,'PaperPosition',[0 0 epswidth epsheight ])

    1206. 

  1206. set(figno,'papersize',[epswidth epsheight])

    1207. 

  1207. set(figno,'Position',[orip(1)+0.5 orip(2)-0.5 epswidth epsheight ])

    1208. 

  1208. set(figno,'Name',[ 'To be printed; size: ' num2str(factor,3) ...

    1209. 

  1209.     ' x (' num2str(epswidth,3) 'cm x ' num2str(epsheight,3) 'cm)' ])

    1210. 

  1210. 

    1211. 

  1211. % some warnings

    1212. 

  1212. if verbose

    1213. 

  1213.     if (epswidth<13) | (epsheight<13*0.75)

    1214. 

  1214.         warning('LaPrint:size',['The size of the eps-figure is quite '...

    1215. 

  1215.             'small. The text objects might not be properly set. '...

    1216. 

  1216.             'Reducing ''factor'' might help.'])

    1217. 

  1217.     end

    1218. 

  1218.     if latexwidth/epswidth<0.5

    1219. 

  1219.         warning('LaPrint:size',['The size of the eps-figure is large ' ...

    1220. 

  1220.             'compared to the latex figure. '...

    1221. 

  1221.             'The text size might be too small. '...

    1222. 

  1222.             'Increasing ''factor'' might help.'])

    1223. 

  1223.     end

    1224. 

  1224.     if (orip(3)-epswidth)/orip(3) > 0.1

    1225. 

  1225.         warning('LaPrint:size',['The size of the eps-figure is much '...

    1226. 

  1226.             'smaller than the original '...

    1227. 

  1227.             'figure on screen. Matlab might save different ticks '...

    1228. 

  1228.             'and ticklabels than in the original figure. '...

    1229. 

  1229.             'See option ''asonscreen''.'])

    1230. 

  1230.     end

    1231. 

  1231.     disp('Strike any key to continue.');

    1232. 

  1232.     pause

    1233. 

  1233. end

    1234. 

  1234. 

    1235. 

  1235. %

    1236. 

  1236. % TEXT OBJECTS: modify new figure

    1237. 

  1237. %

    1238. 

  1238. 

    1239. 

  1239. % find all text objects

    1240. 

  1240. hxl = get(findobj(figno,'type','axes'),'xlabel');

    1241. 

  1241. hyl = get(findobj(figno,'type','axes'),'ylabel');

    1242. 

  1242. hzl = get(findobj(figno,'type','axes'),'zlabel');

    1243. 

  1243. hti = get(findobj(figno,'type','axes'),'title');

    1244. 

  1244. hte = findobj(figno,'type','text');

    1245. 

  1245. 

    1246. 

  1246. % array of all text handles

    1247. 

  1247. htext = unique([ celltoarray(hxl) celltoarray(hyl) celltoarray(hzl) ...

    1248. 

  1248.     celltoarray(hti) celltoarray(hte)]);

    1249. 

  1249. nt = length(htext);

    1250. 

  1250. 

    1251. 

  1251. % set(celltoarray(hxl),'VerticalAlignment','top');

    1252. 

  1252. % get alignments

    1253. 

  1253. hora  = get(htext,'HorizontalAlignment');

    1254. 

  1254. vera  = get(htext,'VerticalAlignment');

    1255. 

  1255. align = cell(nt,1);

    1256. 

  1256. for i=1:nt

    1257. 

  1257.     align{i} = hora{i}(1);

    1258. 

  1258.     switch vera{i}

    1259. 

  1259.         case 'top'

    1260. 

  1260.             align{i} = [align{i} 't'];

    1261. 

  1261.         case 'cap'

    1262. 

  1262.             %     if ~isempty(get(htext(i),'string'))

    1263. 

  1263.             %       warning('LaPrint:text',['Using vertical ' ...

    1264. 

  1264.             %             'alignment ''top'' instead of ''cap''.'])

    1265. 

  1265.             %     end

    1266. 

  1266.             align{i} = [align{i} 't'];

    1267. 

  1267.         case 'middle'

    1268. 

  1268.             align{i} = [align{i} 'c'];

    1269. 

  1269.         case 'baseline'

    1270. 

  1270.             align{i} = [align{i} 'B'];

    1271. 

  1271.         case 'bottom'

    1272. 

  1272.             align{i} = [align{i} 'b'];

    1273. 

  1273.         otherwise

    1274. 

  1274.             warning('LaPrint:text',['Vertical alignment ' vera{i} ...

    1275. 

  1275.                 ' unknown. Using ''c''.'])

    1276. 

  1276.             align{i} = [align{i} 'c'];

    1277. 

  1277.     end

    1278. 

  1278. end

    1279. 

  1279. 

    1280. 

  1280. % generate new strings and store old ones

    1281. 

  1281. oldstr   = get(htext,'string');

    1282. 

  1282. newstr   = cell(nt,1);

    1283. 

  1283. basestr  = ['s' char(48*ones(1,nzeros-1))];

    1284. 

  1284. extrastr = 0;

    1285. 

  1285. for i=1:nt

    1286. 

  1286.     osi = oldstr{i};

    1287. 

  1287.     oldstr{i} = ['\setlength{\tabcolsep}{0pt}\begin{tabular}{' ...

    1288. 

  1288.         align{i}(1) '}'];

    1289. 

  1289.     isnonempty_osi = 0;

    1290. 

  1290.     if strcmp(get(get(htext(i),'parent'),'tag'),'legend')

    1291. 

  1291.         newstr1 = [];

    1292. 

  1292.         if isa(osi,'cell')

    1293. 

  1293.             % Legend/cell : Don't use tabular, employ extra strings

    1294. 

  1294.             nlines = length(osi);

    1295. 

  1295.             if nlines > 1

    1296. 

  1296.                 newstr{nt+extrastr+nlines-1} = [];

    1297. 

  1297.                 oldstr{nt+extrastr+nlines-1} = [];

    1298. 

  1298.                 htext((nt+extrastr+1):(nt+extrastr+nlines-1))=htext(i);

    1299. 

  1299.                 for line=1:nlines-1

    1300. 

  1300.                     oldstr{nt+extrastr+line} = ...

    1301. 

  1301.                         strrep(strrep(osi{line},'\','\\'),'%','%%');

    1302. 

  1302.                     newstr{nt+extrastr+line} = ...

    1303. 

  1303.                         overwritetail(basestr,nt+extrastr+line);

    1304. 

  1304.                     newstr1 = [newstr1; overwritetail(basestr,nt+extrastr+line)];

    1305. 

  1305.                 end

    1306. 

  1306.                 extrastr = extrastr+nlines-1;

    1307. 

  1307.             end

    1308. 

  1308.             if nlines > 0

    1309. 

  1309.                 oldstr{i} = strrep(strrep(osi{nlines},'\','\\'),'%','%%');

    1310. 

  1310.                 newstr{i} = overwritetail(basestr,i);

    1311. 

  1311.                 newstr1   = [newstr1; overwritetail(basestr,i)];

    1312. 

  1312.             end

    1313. 

  1313.             % replace strings in figure

    1314. 

  1314.             set(htext(i),'string',cellstr(newstr1));

    1315. 

  1315.         else

    1316. 

  1316.             % Legend/matrix : Don't use tabular, employ extra strings

    1317. 

  1317.             nlines=size(osi,1);

    1318. 

  1318.             if nlines > 1

    1319. 

  1319.                 newstr{nt+extrastr+nlines-1} = [];

    1320. 

  1320.                 oldstr{nt+extrastr+nlines-1} = [];

    1321. 

  1321.                 htext((nt+extrastr+1):(nt+extrastr+nlines-1))=htext(i);

    1322. 

  1322.                 for line=1:nlines-1

    1323. 

  1323.                     oldstr{nt+extrastr+line} = ...

    1324. 

  1324.                         strrep(strrep(osi(line,:),'\','\\'),'%','%%');

    1325. 

  1325.                     newstr{nt+extrastr+line} = ...

    1326. 

  1326.                         overwritetail(basestr,nt+extrastr+line);

    1327. 

  1327.                     newstr1 = [newstr1; ov…
    1328.