home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fonts 1 / freshfonts1.bin / programs / amiga / pastex / macros / misc / wasyfont.2 < prev    next >
Text File  |  1994-06-07  |  5KB  |  121 lines
  1. %
  2. % this is a substitute if the wasy fonts are missing
  3. %
  4. \font\tenwasy = lasy10
  5. \font\wasyb = lasyb10
  6. \font\ninewasy = lasy9
  7. \font\eightwasy = lasy8
  8. \font\sevenwasy = lasy7
  9. \font\fivewasy = lasy5
  10. \newfam\wasyfam
  11. \newcount\wasyfamcount
  12. \wasyfamcount=\wasyfam \multiply\wasyfamcount by 256
  13. \def\wasy{\fam\wasyfam\tenwasy}
  14. \textfont\wasyfam=\tenwasy
  15. \scriptfont\wasyfam=\sevenwasy
  16. \scriptscriptfont\wasyfam=\fivewasy
  17. %%%%%% special macro
  18. \def\overstrike#1#2{{\setbox0\hbox{$#2$}\hbox to \wd0{\hss
  19.     $#1$\hss}\kern-\wd0\box0}}
  20. %%%%%%%%%%%%%%%%%%%%%% <) angle
  21. \def\varangle{\hbox{$<$\lower 0.5pt\hbox{\kern -0.5em\tt)}}}
  22. %%%%%%%%%%%%%%%%%%%%%% < approx, > approx
  23. \def\apprle{\mathrel{\mathpalette\buildover{<\sim {-1.15pt}{-0.25pt}}}}
  24. \def\apprge{\mathrel{\mathpalette\buildover{>\sim {-1.15pt}{-0.25pt}}}}
  25. \newdimen\buildraise\newdimen\buildspace
  26. \def\buildover#1#2{\getargs#2\raise\buildraise\vbox{%
  27.     \resetall{\buildspace}\halign{$#1\hfil##\hfil$\crcr
  28.     \buildtop\crcr\buildbot\crcr}}}
  29. \def\getargs#1#2#3#4{\def\buildtop{#1}\def\buildbot{#2}%
  30.     \global\buildraise=#3\global\buildspace=#4\relax}
  31. \def\resetall#1{\mathsurround=0pt\everycr={}\tabskip=0pt
  32.     \baselineskip=0pt\lineskiplimit=0pt\lineskip=#1}
  33. %%%%%%%%%%%%%%%%%%%%%% >O<
  34. \def\currency{\hbox{\tt\kern -1.0pt
  35.     \lower 4.4pt\hbox to 0pt{\char"13\hss}%
  36.     \lower 1.3pt\hbox to 0pt{\kern 0.82pt\char"12\hss}%
  37.     \kern  2.9pt{\tensy\char"0E}\kern -3.3pt%
  38.     \lower 1.3pt\hbox to 0pt{\char"13\hss}%
  39.     \lower 4.4pt\hbox to 0pt{%
  40.     \kern 0.82pt\char"12\hss}\kern 4.2pt}}
  41. %%%%%%%%%%%%%%%%%%%%%%
  42. \def\clock{\hbox{\kern 1pt
  43.     \vrule width 0.4pt height 3.6pt depth -1.2pt
  44.     \vrule width 0.4pt height 1.2pt depth -0.8pt\kern -0.4pt
  45.     \vrule width 0.4pt height 4.0pt depth -3.6pt
  46.     \vrule width 0.4pt height 0.8pt depth -0.4pt\kern -0.4pt
  47.     \vrule width 0.4pt height 4.4pt depth -4.0pt
  48.     \vrule width 2.4pt height 0.4pt depth  0.0pt\kern -2.4pt
  49.     \vrule width 2.4pt height 4.8pt depth -4.4pt\kern -1.4pt
  50.     \vrule width 0.4pt height 3.6pt depth -2.2pt
  51.     \vrule width 1.0pt height 2.6pt depth -2.2pt
  52.     \vrule width 0.4pt height 0.8pt depth -0.4pt\kern -0.4pt
  53.     \vrule width 0.4pt height 4.4pt depth -4.0pt
  54.     \vrule width 0.4pt height 1.2pt depth -0.8pt\kern -0.4pt
  55.     \vrule width 0.4pt height 4.0pt depth -3.6pt
  56.     \vrule width 0.4pt height 3.6pt depth -1.2pt
  57.     \kern 1pt}}
  58. %%%%%%%%%%%%%%%%%%%%%% bell
  59. \def\bell{\hbox{\kern 1pt
  60.     \vrule width 0.8pt height 0.8pt depth 0pt
  61.     \vrule width 1.0pt height 4.5pt depth 0pt
  62.     \vrule width 0.8pt height 5.3pt depth 0.8pt
  63.     \vrule width 1.0pt height 4.5pt depth 0pt
  64.     \vrule width 0.8pt height 0.8pt depth 0pt
  65.     \kern 1pt}}
  66. %%%%%%%%%%%%%%%%%%%%%% note
  67. \def\eighthnote{\hbox{\kern 0.5pt\lower 0.2pt
  68.     \hbox{\sevensy\char"0F\kern -0.9pt}%
  69.     \vrule width 0.2pt height 6.8pt depth -1.4pt
  70.     \raise 0.8pt\hbox{\tt\kern -1.3pt\char"12}\kern -1pt}}
  71. %%%%%%%%%%%%%%%%%%%%%%
  72. \def\phone{\hbox{Tel.}}
  73. \def\Box{\hbox{\wasy\char"32}}\let\Square\Box
  74. \def\Diamond{\hbox{\wasy\char"33}}
  75. \def\RIGHTarrow{{\wasy\char"03}}
  76. \def\LEFTarrow{{\wasy\char"01}}
  77. %%%%%%%%%%%%%%%%%%%%%%
  78. \def\notbackslash{\overstrike{\backslash}{-}}
  79. \def\notslash{\overstrike{/}{-}}
  80. \def\APLnot#1{\overstrike{\sim}{#1}}
  81. \def\APLcirc#1{\overstrike{\circ}{#1}}
  82. \def\APLvert#1{\overstrike{\vert}{#1}}
  83. \def\APLminus{\raise0.7ex\hbox{$-$}}
  84. %%%%%%%%%%%%%%%%%%%%%%
  85. \def\AC{\hbox{\kern0.5pt\wasy\char"3A\kern0.5pt}}
  86. \def\HF{\lower0.9pt\hbox to 0pt{\kern0.5pt\wasy\char"3A\hss}%
  87.         \raise0.9pt\hbox{\kern0.5pt\wasy\char"3A\kern0.5pt}}
  88. \def\VHF{\lower1.7pt\hbox to 0pt{\kern0.5pt\wasy\char"3A\hss}%
  89.         \hbox to 0pt{\kern0.5pt\wasy\char"3A\kern0.5pt\hss}%
  90.         \raise1.7pt\hbox{\kern0.5pt\wasy\char"3A\kern0.5pt}}
  91. %%%%%%%%%%%%%%%%%%%%%%
  92. \def\iint{\int\mkern -2mu\int}
  93. \def\iiint{\int\mkern -2mu\int\mkern -2mu\int}
  94. %%%%%% math characters
  95. \def\Bowtie{\hbox{\wasy\char"31}}
  96. %%%%%% special characters
  97. \def\permil{$^0\!{/}\!{}_{00}$}
  98. \def\agemO{{\wasy\char"30}}
  99. \def\Dh{\leavevmode{\rm\setbox0\hbox{D}%
  100.     \hbox to\wd0{\kern 0.04em\char32\hss D}}}
  101. \def\cent{\overstrike/{\rm c}}
  102. \def\thorn{\overstrike{\rm b}{\rm p}}
  103. \def\astrosun{\hbox{\tensy\char"0C}}
  104. %%%%%% math operators as mathchars
  105. \def\wasymathchardef#1#2{%
  106.     \count"FF=\wasyfamcount
  107.     \advance\count"FF by"#1
  108.     \mathchardef#2\count"FF}
  109. \wasymathchardef{3001}{\lhd}
  110. \wasymathchardef{3001}{\LHD}
  111. \wasymathchardef{3003}{\rhd}
  112. \wasymathchardef{3003}{\RHD}
  113. \wasymathchardef{3002}{\unlhd}
  114. \wasymathchardef{3004}{\unrhd}
  115. \wasymathchardef{303C}{\sqsubset}
  116. \wasymathchardef{303D}{\sqsupset}
  117. \wasymathchardef{303B}{\leadsto}
  118. %%%%%%%%%%%%%%%%%%%%%%
  119. \let\newpropto\relax
  120. \let\newint\relax
  121.