home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fonts 1 / freshfonts1.bin / programs / amiga / pastex / macros / eepic / eepicemu.sty < prev    next >
Text File  |  1991-12-11  |  3KB  |  95 lines
  1. % eepicemu Version 1.1a < Febrary 1, 1988 >
  2. %    Written by Conrad Kwok
  3. %
  4. % Internet : kwok@iris.ucdavis.edu
  5. % csnet    : kwok@ucd.csnet
  6. % csnet    : kwok%iris.ucdavis.edu@csnet.relay
  7. % UUCP       : ...!ucbvax!ucdavis!iris!kwok
  8. %
  9. % The macros are in public domain.
  10. % You may distribute or modify it in any ways you like.
  11. % Please report any bugs, enhancements, comments, suggestions, etc.
  12. %
  13. % Change logs:
  14. % o Febrary 1, 1989
  15. %   Add \newdimen\maxovaldiam for compatility with eepic
  16. %
  17. % o Febrary 1, 1989
  18. %   Enhanced to handle new commands in eepic 1.1 
  19. %
  20. \typeout{Emulation of EEPIC using EPIC. Version 1.1a - Released Febrary 1, 1988}
  21. \let\path\drawline
  22. \def\ellipse{%
  23.     \@ifstar{\@ellipse}{\@ellipse}}
  24. \def\@ellipse#1#2{%
  25.     \ifnum #1=#2%
  26.     \circle{#1}%
  27.     \else
  28.     \oval(#1,#2)
  29.     \fi\relax}
  30. \let\Thicklines\thicklines
  31. \def\circle{%
  32.     \@ifstar
  33.     {\@emudot}%
  34.     {\@emucirc}%
  35. }
  36. \def\@emudot#1{%
  37.     \@tempdimb #1\unitlength
  38.     \ifdim \@tempdimb > 15pt
  39.         \oval(#1,#1)%
  40.     \else
  41.         \@dot{#1}%
  42.     \fi
  43. }
  44. \def\@emucirc#1{%
  45.      \@tempdimb #1\unitlength
  46.      \ifdim \@tempdimb > 40pt
  47.     \oval(#1,#1)%
  48.      \else
  49.     \@circle{#1}%
  50.      \fi
  51. }
  52. \def\arc#1#2#3{\typeout{arc function is not supported in emulation package}}
  53. \newcount\@spxcnt
  54. \newcount\@spycnt
  55. \newcount\@ispxcnt
  56. \newcount\@ispycnt
  57. \newcount\@cmidxcnt
  58. \newcount\@cmidycnt
  59.  
  60. \def\spline(#1,#2){%
  61.     \@ifnextchar ({\@ispline(#1,#2)}%
  62.           {\ignorespaces}}
  63. \def\@ispline(#1,#2)(#3,#4){%
  64.     \@ifnextchar ({\@iispline(#1,#2)(#3,#4)}%
  65.               {\@drawline[0](#1,#2)(#3,#4)\ignorespaces}}
  66. \def\@iispline(#1,#2)(#3,#4)(#5,#6){%
  67.     \@ifnextchar ({%
  68.         \@spxcnt=#3 \advance\@spxcnt by #5 \divide\@spxcnt by 2\relax
  69.         \@spycnt=#4 \advance\@spycnt by #6 \divide\@spycnt by 2\relax
  70.         \@chaikin{#1}{#2}{#3}{#4}{\@spxcnt}{\@spycnt}%
  71.         \@ispxcnt=\@spxcnt\relax \@ispycnt=\@spycnt\relax
  72.         \@iispline(\@ispxcnt,\@ispycnt)(#5,#6)}%
  73. %   else
  74.        {\@chaikin{#1}{#2}{#3}{#4}{#5}{#6}}}
  75. \def\@chaikin#1#2#3#4#5#6{%
  76.     \@cmidxcnt=#1 \advance\@cmidxcnt by #3
  77.     \advance\@cmidxcnt by #3 \advance\@cmidxcnt by #5
  78.     \divide\@cmidxcnt by 4
  79.     \@cmidycnt=#2 \advance\@cmidycnt by #4
  80.     \advance\@cmidycnt by #4 \advance\@cmidycnt by #6
  81.     \divide\@cmidycnt by 4
  82.     \@drawline[0](#1,#2)(\@cmidxcnt,\@cmidycnt)%
  83.     \@drawline[0](\@cmidxcnt,\@cmidycnt)(#5,#6)%
  84. }
  85. \def\allinethickness#1{\thicklines\linethickness{#1}}
  86. %
  87. \newdimen\maxovaldiam \maxovaldiam 40pt\relax
  88. %
  89. \def\filltype#1{}
  90. \def\blacken{}
  91. \def\whiten{}
  92. \def\shade{}
  93. \def\texture{}
  94. \endinput
  95.