ibm.ps

fortran版本的eslack,好不容易找到的。里面有程序的索引。主要包括了常用了矩阵计算代码。

%!
% This file is a NONconforming PostScript file
(dvi->PostScript Driver, Version 2.0 of November 28, 1988\n)print flush
% Copyright 1988 Stephan v. Bechtolsheim (unless otherwise stated)
% applies to various prologue files. Read the sources for details.
save
% dvi2ps: BEGIN including file "/lusr/lib/ps/dvi-2-ps/pro/texpre.pro"
% Copyright (c) 1988 Stephan v. Bechtolsheim
% Begin pass0 (which contains bitmaps and PS font definitions) for
/@bop0
{
PsPrintEnabled { (Pass0: Page ) print == flush } {pop} ifelse
}	def
/@eop0 {
pop
}	def
% delta-x and delta-y are shift amounts (in pixels) by which the coordinate
/@bop1
{
PsPrintEnabled { (Pass1: Page ) print == flush } {pop} ifelse
save
DviTranslateVector-X DviTranslateVector-Y translate
DviOrientationMatrix concat
Page-H-Offset Page-V-Offset translate
3 1 roll
translate
0 0 moveto
Draft-Flag { @Draft } if
/DriverDelta 0 def
} def
/@eop1 {
pop
showpage
restore
} def
/@end {
(Done!\n) print flush
} def
/@ReportVmStatus {
(\n@ReportVmStatus: ) print
print (: ) print
vmstatus
(max: ) print 20 string cvs print
(, used: ) print 20 string cvs print
(, level: ) print 20 string cvs print
(\n) print flush
} def
/@ReportVmStatusNew {
(VM: ) print
exch print
(, printer: ) print
/Vmfree vmstatus pop exch pop def Vmfree (       ) cvs print
(, driver: ) print dup (      ) cvs print
(, delta: ) print
Vmfree sub (      ) cvs print
(\n) print flush
} def
/@Draft {
gsave
Page-H-Offset neg Page-V-Offset neg translate
-45 rotate
-150 0 moveto
/Helvetica-Bold findfont
[120.0 0 0 -120.0 0 0 ] makefont setfont
(DRAFT) show
grestore
gsave
Page-H-Offset neg Page-V-Offset neg translate
300 -100 moveto
/Helvetica-Bold findfont
[60.0 0 0   -60.0 0 0 ] makefont setfont
Date-and-Time		show
(   ::   )	      	show
Dvi-File-Name		show
grestore
} def
% dvi2ps: END including file "/lusr/lib/ps/dvi-2-ps/pro/texpre.pro"
% dvi2ps: BEGIN including file "/lusr/lib/ps/dvi-2-ps/pro/pos.pro"
% Copyright (c) 1988 Stephan v. Bechtolsheim
/a { rmoveto } def
/DriverDelta 0 def
/b { exch p dup /DriverDelta exch def 0 rmoveto } def
% (string) c-k -
/c { p DriverDelta 4 sub dup /DriverDelta exch def 0 rmoveto } def
/d { p DriverDelta 3 sub dup /DriverDelta exch def 0 rmoveto } def
/e { p DriverDelta 2 sub dup /DriverDelta exch def 0 rmoveto } def
/f { p DriverDelta 1 sub dup /DriverDelta exch def 0 rmoveto } def
/g { p DriverDelta 0 rmoveto } def
/h { p DriverDelta 1 add dup /DriverDelta exch def 0 rmoveto } def
/i { p DriverDelta 2 add dup /DriverDelta exch def 0 rmoveto } def
/j { p DriverDelta 3 add dup /DriverDelta exch def 0 rmoveto } def
/k { p DriverDelta 4 add dup /DriverDelta exch def 0 rmoveto } def
%   These next allow us to make small motions (-4..4) cheaply.
/l { p -4 0 rmoveto } def
/m { p -3 0 rmoveto } def
/n { p -2 0 rmoveto } def
/o { p -1 0 rmoveto } def
/q { p 1 0 rmoveto } def
/r { p 2 0 rmoveto } def
/s { p 3 0 rmoveto } def
/t { p 4 0 rmoveto } def
/p { show } def
/w { 0 exch rmoveto } def
/x { 0 rmoveto } def
/y { 3 -1 roll p rmoveto } def
/z
{   /dy exch def
/dx exch def
%	(start rule\n) print flush
currentpoint
currentpoint
newpath
moveto
dx 0 rlineto
0 dy rlineto
dx neg 0 rlineto
closepath
fill
moveto
%	(end rule\n) print flush
}
def
/u-string ( ) def
% Show a single character (given in octal)
/u { u-string exch 0 exch put
u-string show
} def
/v { u-string exch 0 exch put
currentpoint
u-string show
moveto
} def
% dvi2ps: END including file "/lusr/lib/ps/dvi-2-ps/pro/pos.pro"
/Dvi-File-Name (ibm.dvi) def
/Draft-Flag false def
/#copies 1 def
/HostName (dimebox) def
/PsPrintEnabled false def
/Page-H-Offset   0.000000 def
/Page-V-Offset   0.000000 def
/ExecPsConv {0.30 mul} def
/Date-and-Time (Sun May 26 14:19 1991) def
/DviTranslateVector-X   72.000 def
/DviTranslateVector-Y  720.000 def
/DviOrientationMatrix [    0.240    0.000    0.000
	   -0.240 0.0 0.0 ] def
% dvi2ps: BEGIN including file "/lusr/lib/ps/dvi-2-ps/pro/pixel-fonts.pro"
% Copyright (c) 1988 Stephan v. Bechtolsheim
/@newfont
{
/newname exch def
newname 7 dict def
newname load begin
/FontType 3 def
/FontMatrix [1 0 0 -1 0 0] def
/FontBBox [0 0 1 1] def
/BitMaps 256 array def
/BuildChar {CharBuilder} def
/Encoding 256 array def
0 1 255 {Encoding exch /.undef put} for
end
newname newname load definefont pop
} def
/ch-image {ch-data 0 get} def
/ch-width {ch-data 1 get} def
/ch-height {ch-data 2 get} def
/ch-xoff  {ch-data 3 get} def
/ch-yoff  {ch-data 4 get} def
/ch-tfmw  {ch-data 5 get} def
/CharBuilder
{
/ch-code exch def
/font-dict exch def
/ch-data font-dict /BitMaps get ch-code get def
ch-data null eq not
{
ch-tfmw   0
ch-xoff neg
ch-height ch-yoff sub neg
ch-width  ch-xoff neg add
ch-yoff
setcachedevice
ch-width ch-height true
[1 0  0 1 ch-xoff ch-height ch-yoff sub] {ch-image} imagemask
}
if
} def
%       spacing (= number of pixels to go right after character has been
% SliTeX characters (characters with no pixel information) if it
/@dc
{
%   (start @dc\n) print flush
/ch-code exch def
/ch-data exch def
currentfont /BitMaps get
ch-code ch-data put
currentfont /Encoding get
ch-code (   ) cvs   % convert the character code to a string
cvn
ch-code exch put
%   (done @dc\n) print flush
} def
/@sf /setfont load def
% dvi2ps: END including file "/lusr/lib/ps/dvi-2-ps/pro/pixel-fonts.pro"

22 @bop0
/@F2 @newfont
@F2 @sf
[<
FFF801FFFFFFF801FFFF1FC0001FE00780000FC00300000FC00380001FC00180001F800180
001F8001C0003F8000C0003F0000C0003F000060007E000060007E00007FFFFE00003FFFFC
00003000FC00003000FC00001801F800001801F800001801F800000C03F000000C03F00000
0C03F000000607E000000607E000000607E00000030FC00000030FC00000030FC00000019F
800000019F80000001BF80000000FF00000000FF00000000FF000000007E000000007E0000
00007E000000003C000000003C000000003C00000000180000>
	 40 42 -2 41 45] 65 @dc
[<
FFFC0000FFFC00000780000007800000078000000780000007800000078000000780000007
80000007800000078000000783F000078FFC0007B83F0007E00F8007C007C007C003E00780
01E0078001F0078001F0078000F8078000F8078000F8078000F8078000F8078000F8078000
F8078000F8078001F0078001F0078001E0078003E007C007C00FE00780FFBC1F00FF8FFE00
0783F800>
	 29 38 -1 25 33] 112 @dc
[<
007F0001FFC007E0600F80301E00183E000C3C000C7C0000780000F80000F80000F80000F8
0000F80000FFFFFCFFFFFCF8003C78003C7C003C3C00783C00781E00F00F00F00783E003FF
80007E00>
	 22 26 -2 25 27] 101 @dc
[<
FFFCFFFCFFFCFFFC0780078007800780078007800780078007800780078007800780078007
80078007800780078007800780078007800780078007800780078007800780078007800780
078007C0078007C0078007A007800FB00F00FF9C1E00FF8FFC000783F800>
	 30 26 -1 25 33] 110 @dc
[<
00FE0FF803FF8FF807C1EF800F007F001E003F003C001F003C000F007C000F0078000F00F8
000F00F8000F00F8000F00F8000F00F8000F00F8000F00F8000F00F8000F0078000F007C00
0F003C000F003C000F001E001F000F003F0007C0EF0001FFCF00007E0F0000000F0000000F
0000000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F00
00000F0000001F000001FF000001FF0000000F00>
	 29 42 -2 41 33] 100 @dc
[<
FFF8FFF8078007800780078007800780078007800780078007800780078007800780078007
800780078007800F807F807F800780000000000000000000000000000000000F001F801F80
1FC01F801F800F00>
	 13 41 -1 40 17] 105 @dc
[<
FFE07FF8FFE07FF81F801F8007800F0003801E0001C03C0000C07C00006078000070F00000
39E000001BE000000FC000000F8000000F0000001F0000001F8000003DC0000078E00000F8
600000F0300001E0380003C01C0007C01E000FC01F80FFF07FF0FFF07FF0>
	 29 26 -1 25 32] 120 @dc
[<
FFFFF8FFFFF87FFFF83FFFFC1FFFFC18000C0C000C06000C03000601800600C00600600000
7000003C00001E00000F000007800007C00003E00001E00001F00000F80000F800007C0000
7C00007E38007E7C003EFE003EFE003EFE007EFC007EF8007C60007C6000F83001F01803F0
0E07C007FF8001FC00>
	 23 40 -3 39 30] 50 @dc
/@F10 @newfont
@F10 @sf
[<
FFFF807FFF803FFF801000801800400C004006004003000001800000C00000600000700000
3800001C00000E00000F000007800007800007C02007C0F803C0F803C0F803C0F007C08007
80400780200700100E000C1C0003F000>
	 18 30 -2 29 23] 50 @dc

22 @eop0

0 0 22 @bop1 790 192 a @F2 @sf(App)r(endix)19 b(2)-203 2572 y @F10 @sf(22)
-937 b
22 @eop1

21 @bop0
@F2 @sf
[<
7FFFF07FFFF001FC0000F80000F80000F80000F80000F80000F80000F80000F80000F80000
F80000F80000F80000F80000F80000F80000F80000F80000F80000F80000F80000F80000F8
0000F80000F80000F80000F80000F80000F80000F80000F80000F800F8F800FFF80007F800
00F800003800001800>
	 20 40 -4 39 30] 49 @dc
@F10 @sf
[<
FFFE07C0038003800380038003800380038003800380038003800380038003800380038003
800380038003800380038003800380F3800F8003800180>
	 15 30 -4 29 23] 49 @dc

21 @eop0

0 0 21 @bop1 790 192 a @F2 @sf(App)r(endix)19 b(1)-203 2572 y @F10 @sf(21)
-937 b
21 @eop1

20 @bop0
/@F1 @newfont
@F1 @sf
[<
01FE000007FF80000FFFE0001E03F8003F01FC003F80FE003F807F003F807F003F803F801F
003F8000003FC000001FC000001FC000001FC000001FE0007E1FE003FF9FE00FE1DFE01F80
FFE03F807FE07F003FE07F003FE07F003FE0FF001FE0FF001FE0FF001FE0FF001FE0FF001F
C0FF001FC0FF001FC0FF001FC07F003F807F003F803F803F001FC07E000FE0FE0007FFF800
01FFF000007F8000>
	 27 39 -3 38 34] 57 @dc
[<
FFFFF0003FF0FFFFF001FFFCFFFFF007FE1E03FC000FFC0F03FC000FF80703FC001FF80703
FC001FF00703FC001FF00003FC001FF00003FC001FF00003FC001FF00003FC001FE00003FC
001FE00003FC001FE00003FC001FE00003FC003FC00003FC003FC00003FC007F800003FC00
7F000003FC01FC000003FFFFF0000003FFFFFE000003FC007FC00003FC001FE00003FC0007
F80003FC0007F80003FC0003FC0003FC0003FE0003FC0003FE0003FC0003FE0003FC0003FE
0003FC0003FE0003FC0003FE0003FC0003FC0003FC0007FC0003FC0007F80003FC000FF000
03FC007FE000FFFFFFFF8000FFFFFFFE0000FFFFFFE00000>
	 48 41 -3 40 52] 82 @dc
[<
001FF00000FFFE0003F81F800FE003C01FC001C03F8001E03F8000E07F8000007F000000FF
000000FF000000FF000000FF000000FFFFFFE0FFFFFFE0FF0007E0FF0007E0FF0007E07F00
07E07F000FC03F800FC03F800FC01FC01F800FE03F0003F07E0001FFF800003FE000>
	 27 27 -2 26 32] 101 @dc
[<
7FFF807FFF807FFF8007F00007F00007F00007F00007F00007F00007F00007F00007F00007
F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F00007F000FFFF
C0FFFFC0FFFFC007F00007F00007F00007F00007F00007F00007F00007F03E07F07F03F87F
03F87F01FC7F00FE3E003FFC0007F0>
	 24 42 -2 41 21] 102 @dc
[<
FFFF00FFFF00FFFF000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000FE0000F
E0000FE0000FE0000FE0000FE0000FE0000FF0000FF03E0FF07F0FF87F0FD87F0FDC7FFFCE
3EFFC7FCFFC1F0>
	 24 27 -2 26 28] 114 @dc
[<
FFFE3FFF80FFFE3FFF80FFFE3FFF800FE003F8000FE003F8000FE003F8000FE003F8000FE0
03F8000FE003F8000FE003F8000FE003F8000FE003F8000FE003F8000FE003F8000FE003F8
000FE003F8000FE003F8000FE003F8000FF003F8000FF003F8000FF003F8000FF803F8000F
DC03F8000FCE07F000FFC787E000FFC1FFC000FFC07F0000>
	 33 27 -3 26 38] 110 @dc
[<
001FE00000FFFC0003F01F000FE007801FC003C03FC001C03F8001C07F8000007F000000FF
000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000007F00