summaryrefslogtreecommitdiff
path: root/fonts/redis/dored.rex
blob: e3955a40cf6c94f5d0760e8c2bb00d29c06e3e00 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
/*  */
m.1='0';m.2='0.5';m.3='1';m.4='2';m.5='3'
do j= 1 to 20
   temp=linein("redis.dir")
   parse var temp . f.j '.'.
   if lines("redis.dir") = 0 Then Leave
   end
j=j
Say j 'fonts to be processed.'
do i=1 to 5
   do jf=1 to j
      'mf &cm \mode=epson;mag=magstep' m.i ';input' f.j '/a=99/t'
      'mf &cm \mode=epslo;mag=magstep' m.i ';input' f.j '/a=99/t'
      end
    end
Exit