dietz@zhmti.UUCP (Dieter H. Zebbedies) (08/04/87)
In article <1054@water.waterloo.edu> ljdickey@water.waterloo.edu (Lee Dickey) writes: >In article <138@ncifcrf.UUCP> randy@ncifcrf.UUCP (The Computer Grue) writes: >> >> Does anyone know of an APL font already written for xwindows? > >You might try bammi@case.edu for an APL font. >I can not say anything about Xwindows, but he does have an APL font. Bammi got it from me, who got it from Ken Yap from rochester. (boy, I hope this isn't proprietary stuff!) Sun also distributes an APL font with Suntools/Sunview, but it is a 10pt instead of this 15pt version, and it looks "squatier". The font enclosed is about as close as you can come to *the* IBM APL typeball. Now, whoever can figure out how to setup a shelltool that has a non-destructive backspace gets a gold star! Ken had been working on the old Kernighan/D.Bruner interpreter that has been distributed with the contributed software tape of the BSD releases. Ken fixed many of the Vax pointer bogosities, and generally got it working on 68k's with the IEEE model of floating point. (Ken (and us here at zhmti) are running Suns, so pointers and "endian-dependencies" (hey that ryhmes!) can bite you ;-) Still has some problems, but all in all pretty nice for the price! BTW, X sticks to the standard vfont defn, right? They are usable from what I can see... (I've tried it and it works. Isn't that the only real standard for benchmarks? ;-) Dietz. -------------------------cut here------------------------- #!/bin/sh # This is a shell archive, meaning: # 1. Remove everything above the #!/bin/sh line. # 2. Save the resulting text in a file. # 3. Execute the file with /bin/sh (not csh) to create the files: # apl.r.15.uue # This archive created: Tue Aug 4 12:17:25 1987 export PATH; PATH=/bin:$PATH echo shar: extracting "'apl.r.15.uue'" '(5341 characters)' if test -f 'apl.r.15.uue' then echo shar: over-writing existing file "'apl.r.15.uue'" fi sed 's/^X//' << \SHAR_EOF > 'apl.r.15.uue' Xbegin 644 apl.r.15 XM 1X%" ( X , @ # ( P" , XM @ # ( P" , @ # ( XM P" , @ # ( P" , XM @ # ( P" , @ # ( XM P" , @ # ( P" , XM @ # ( P" , @ # ( XM P" , @ # ( P" , XM @ # ( #@P" @ " . X, @ ( @ ' .# ( " ( XM "H #@P" @ " X X, @ ( @ 1@ .# ( " ( %0 #@P" @ " !B X, XM @ ( @ < .# ( " ( 'X #@P" @ " ", X, @ ( @ F@ .# ( " ( XM *@ #@P" @ " "V X, @ ( @ Q .# ( " ( -( #@P" @ " #@ X, XM @ ( @ [@ .# ( " ( /P #@P" @ " $* X, @ ( @!& .# ( " ( XM 28 #@P" @ " $T X, @ ( @!0@ .# ( " ( 5 #@P" @ " %> X, XM @ ( @!; .# ( " ( 7H #@P" @ " &( X, @ ( @!E@ .# ( " ( XM :0 #@P" @ " &R X, @ ( @!P .# ( " ( <X #@P" @ " '< X, XM @ ( @!Z@ .# ( " ( ?@ #@P" @ " (& X, @ ( @"% .# ( " ( XM B( #@P" @ " (P X, @ ( @"/@ .# ( " ( DP #@P" @ " ): X, XM @ ( @": .# ( " ( G8 #@P" @ " *$ X, @ ( @"D@ .# ( " ( XM J #@P" @ " *N X, @ ( @"O .# ( " ( LH #@P" @ " +8 X, XM @ ( @"Y@ .# ( " ( O0 #@P" @ " ," X, @ ( @#$ .# ( " ( XM QX #@P" @ " ,L X, @ ( @#.@ .# ( " ( T@ #@P" @ " -6 X, XM @ ( @#9 .# ( " ( W( #@P" @ " . , @ #@ .# ( " ( XM XX #@P" @ " .< X, @ ( @#J@ .# ( " ( [@ #@P" @ " /& X, XM @ ( @#U .# ( " ( ^( #@P" @ " /P X, @ ( @#_@ .# ( " ( XM! P #@P" @ " 0: X, @ ( @$* .# ( " (!#8 #@P" @ " 1$ X, XM @ ( @$4@ .# ( " (!& #@P" @ " 1N X, @ ( @$? .# ( " ( XM!(H #@P" @ " 28 X, @ ( @$I@ .# ( " (!+0 #@P" @ " 3" X, XM @ ( @$T .# ( " (!-X #@P" @ " 3L , @ $[ .# ( " ( XM!/H P" 3Z X, @ ( @%" # ( !0@ P" 4( , XM @ %" # ( !0@ P" 4( , @ %" # ( XM!0@ P" 4( , @ %" # ( !0@ P" 4( , XM @ %" # ( !0@ P" 4( , @ %" # ( XM!0@ P" 4( , @ %" # ( !0@ P" 4( , XM @ %" # ( !0@ P" 4( , @ %" # ( XM!0@ P" 4( , @ %" # ( !0@ P" 4( , XM @ %" # ( !0@ P" 4( , @ %" # ( XM!0@ P" 4( , @ %" # ( !0@ P" 4( , XM @ %" # ( !0@ P" 4( , @ %" # ( XM!0@ P" 4( , @ %" # ( !0@ P" 4( , XM @ %" # ( !0@ P" 4( , @ %" # ( XM!0@ P" 4( , @ %" # ( !0@ P" 4( , XM @ %" # ( !0@ P" 4( , @ %" # ( XM!0@ P" 4( , @ %" # ( !0@ P" 4( , XM @ %" # ( !0@ P" 4( , @ %" # ( XM!0@ P" 4( , @ %" # ( !0@ P" 4( , XM @ %" # ( !0@ P" 4( , @ %" # ( XM!0@ P" 4( , @ %" # ( !0@ P" 4( , XM @ %" # ( !0@ P" 4( , @ %" # ( XM!0@ P" 4( , @ %" # ( !0@ P" 4( , XM @ %" # ( !0@ P" 4( , @ %" # ( XM!0@ P" 4( , @ %" # ( !0@ P" 4( , XM @ %" # ( !0@ P" 4( , @ %" # ( XM!0@ P" 4( , @ %" # ( !0@ P" 4( , XM @ %" # ( !0@ P" 4( , @ %" # ( XM!0@ P" 4( , @ %" # ( !0@ P" 4( , XM @ %" # ( !0@ P" 4( , @ %" # ( XM!0@ P" 4( , @ %" # ( !0@ P" 4( , XM @ #,S ! (! 0&!@8&! 0( XM$ 088(!@& 0 $&&" 8!@$ /P /P /P XM (!@& 088( '@(" @(" @(" AX !!(B(4% @ XM @4%"(B00 ! C\$"#\0( P, #\ # P XM &!P$& (" A_" @( !@8 ("! 0(" @0 XM$" @ !PB(B(B(B(B' "!@H" @(" @^ <(B("! @0(#X XM !PB @(, @(B' $!(2$A(B/P(" ^(" \(@("(AP XM !PB(#PB(B(B' /B("! 0$" @( <(B(B'"(B(AP !PB XM(B(B'@(B' 0($! P,# P$! (! #P@(" @(" @(" \ !@8 XM 8' 08 B% @4(@ 8& &!@ (" 0$ @(" 0$ XM @( '\ !DE1D)")QL (" @(" @(?P XM <(B(B(B(B " @(" @(" @(" \ #A @/" @'@ XM '\ ?T$B(A04" @ ("!04(B)!?P XM& @(" @, ,$A(, "!P<" @( !_04%!04%! XM04%!?P " @(" @(" @(" @(" !_" @(" @(" !PB04%!(AP XM @(?QP4(@ #AD9 @0(" 8& ,$B$A(3(L(" XM #P@(" @(" @(" @ #%=1@ @(" @J' @( XM "(B(B(B(AP (2%)24E:) !^ 0$!?@ " @< XM*@@(" @ /T! 0#\ ($'\0" 0$! ?T! XM0 ! )_ @0 (!@& 088( _ ?P XM !@8."A(2/B)"YP ^$1$A/B(A04+\ X1(2% 0$!"9#@ XM/A$1(2$A(D)$^ _$1$D/"0@0D+\ #\1$20\)"! 0/ #A$A XM(4! 1T)F/@ [$1$B/B(B1$3N !\$! @(" @0$'P !P$! @(R XM<D1,. [$1(D*#@D1$+G #P0$" @(")"0OP ,!$1,S4M*4I" XMYP [&1DJ*BHJ3$SD X1(2%!04)"1#@ ?A$1(2(\($! \ XM .$2$A04%">DPX"@0 #X1$2$B/"1$1.8 #A$A(!P"0D)$N _ XM)"1)" @($!!\ #L1$2$B(B)"9#@ >R$B(B0D*"@P, #S04%* XM6EIL;$A( #D1$@P,&!@D1,X .Q$2"@P("! 0? ?$R(D# @1 XA(2)^ ?P !PD2$@X%)2DJ7! X Xend SHAR_EOF if test 5341 -ne "`wc -c 'apl.r.15.uue'`" then echo shar: error transmitting "'apl.r.15.uue'" '(should have been 5341 characters)' fi chmod +x 'apl.r.15.uue' # End of shell archive exit 0 --- Dieter H. Zebbedies ('dee-ter ayech 'zeb-ed-eez) Zebb-Hoff Mach. Tool's Automated Manufacturing Project Cleveland, OH (USnail): 9535 Clinton Rd, Cleveland, OH 44144 (+216 631 6100) (+216 741-5994) (UUCP): ...{decvax,sun,cbosgd}!cwruecmp!zhmti!dieter (CSNET/ARPA/BITNET): dieter@CWRU.EDU
ken@rochester.arpa (Ken Yap) (08/07/87)
I should also mention that prang, which has been replaced by hoser had an .onx font for APL. I use it with this shell script called xapl: #! /bin/sh exec xterm -fn apl.r.10 -e /usr/grads/bin/apl -m $* I wanted to teach xterm to do non-destructive backspacing but it was too far down my todo list. Ken