%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % The MF-macros of the border-project % % This file has version number 1.2. % % 19.06.1993 % % (c) by Andreas Schrell, Wuppertal % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mode_setup; penwi# := 0.1pt#; penwid# := 0.2pt#; penwidd# := 0.6pt#; charsize# := 10pt#; font_size charsize#; font_x_height charsize#; font_quad charsize#; font_normal_space 0pt#; font_normal_shrink 0pt#; font_normal_stretch 0pt#; normw# := charsize#; normh# := charsize#; define_pixels(normw,normh); def ow = hround(xscal*normw) enddef; def oh = vround(normh) enddef; xscal:=1; define_blacker_pixels(penwi,penwid,penwidd); penwidow := penwid; if unknown write_white_engine: boolean write_white_engine; write_white_engine := false; fi if write_white_engine: % for penwi its ok to become 1 pixel width, but... penwid := max(penwid,2); penwidd := max(penwidd,3); fi; def sec(expr n) = u := (w/n); v := (h/n); enddef; def CenterRotation(expr W,r) = ((r) shifted (-.5ow,-.5oh) rotated W shifted (.5w,.5h)) enddef; def CenterRot(expr W) = currenttransform := identity shifted (-.5ow,-.5oh) rotated W shifted (.5w,.5h) enddef; def CenterMirror(expr xs,ys,r) = ((r) shifted (-.5ow,-.5oh) xscaled (xs) yscaled (ys) shifted (.5ow,.5oh)) enddef; endinput