Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/draw.elib
There are no other files named draw.elib in the archive.
(W
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   -V7^
3f

er	x|~h
jD2:
`5

):

@`FAM{4

y;CM\dmuv

s

o& LineESetup&APSEUDOMARK&ASetupDRAWYLibrary& XDRAW
FIGUREMARK
SHRINKSTRETCH
VERASEVSHRINK

VSTRETCH~DIRECTORY~~DOC~ & Line Setup~DOC~ & PSEUDOMARK~DOC~ & Setup DRAW Library~DOC~ & XDRAW~DOC~ & XSHRINK~DOC~ & XSTRETCH~DOC~ DDRAW~DOC~ DRAW~DOC~ ERASE~DOC~ FCOPY~DOC~ FIGURE~DOC~ MARK~DOC~ SHRINK~DOC~ STRETCH~DOC~ TRANSPOSE~DOC~ VDRAW~DOC~ VERASE~DOC~ VSHRINK~DOC~ VSTRETCH~DOC~ ~Filename~~Filename~

~INVERT~U:I9
.U80L.U6Q8-.U7Q8J
:L.-Q8-FQ9"L
FQ9+Q8-.<I >'
Q8J
.,.+FQ9FX8G9
-FQ9Ce.U10L.U5Q1-.U1
1U2.-Q6"L0U2'
0U3<
.-Q6"E1;'
Q2"E1L'"#-1L'
Q3+1U3>
1U4Q3"N(Q1-Q7)/Q3U4'
Q7C?[1[2[3[4[5
M(M.M& LINE SETUP)
M(M.M& XDRAW)
]5]4]3]2]1o100<
Q3"E1;'Q3-1U3
Q2"E-1L'"#1L'
Q7+Q4U7.U5
:L.-Q5-Q7-FQ9U1
Q1"L-Q1<I >'"#
-Q1C'
.-FQ9,.KG9-FQ9C
>O[1[2[3[4[5
M(M.M& LINE SETUP)
FQ9DG8-FQ9C
M(M.M& XSTRETCH)
]5]4]3]2]1v100<
Q3"L1;'Q3-1U3
0AU1Q1-10"E32U1'
FQ9<Q1I>
Q2"E-1L'"#1L'
Q7+Q4U7.U5
:L.-Q5-Q7U1
Q1"L-Q1<I >'"#
-Q1C'
>A[1[2[3[4[5
M(M.M& LINE SETUP)
M(M.M& XSHRINK)
]5]4]3]2]1q[1[2[3[4[5
M(M.M& LINE SETUP)
Q2"N
.U1[1[3[7
M(M.M& XSHRINK)
]7]3]1Q1J
M(M.M& XSTRETCH)'
]5]4]3]2]1k100<
Q3"L1;'Q3-1U3
FQ9D
Q2"E-1L'"#1L'
Q7+Q4U7.U5
:L.-Q5-Q7-FQ9U1
Q1"L-Q1<I >'"#
-Q1C'
-FQ9C
>[0[1[2[3[4[5
.U0
M(M.M& Line Setup)
FQ9DG8-FQ9C
Q0J0LQ0-.-Q7U4
Q4"L0U1'"#
1U1'
Q6J.,.X0
<
.U5:L.-Q5-Q7-1U5
Q1"NQ5-Q4U5'
Q5"L-Q5<I >'"#
-Q5C'
Q1"N.-Q4-1,.@X0'"#
1-Q4<-1C.,.+1@X0>'
Q3"E1;'Q3-1U3
II
.-2,.@X0-2D
Q2"E-1L'"#1L'
>
:I0
]5]4]3]2]1]01[1[2[3[4[5[6[7
.U30LQ3-.U3.U6HFX5
GBJ
<Z"E1;'
:L0,.X40L1KHFX7
G5Q6J
Q3+FQ4U1
.U2:L
.-Q2-Q1"LQ1+Q2-.<I >'"#
Q1+Q2J'
-FQ4DG4
1L
.U6HFX5G7BJ
>
HKG5Q6J-1LQ1C
A[0[1[2[3[4[5[6[7[8[9
.U8HFX9[8
GBJ
0U0
<
Z"E1;'
:L0,.X1[1
1L0,.KQ0+1U0
>
HX8
<
Q0"E1;'Q0-1U0
]1G1BJ
<1C.-Z"E1;'I
>
BJ1C
.U30LQ3-.U3.U6HFX5
G8BJ
<Z"E1;'
:L0,.X40L1KHFX7
G5Q6J
Q3+FQ4U1
.U2:L
.-Q2-Q1"LQ1+Q2-.<I >'"#
Q1+Q2J'
-FQ4DG4
1L
.U6HFX5G7BJ
>
HKG5
HFX8
>
:I8
HKG9]8Q8J
Y.U50LQ5-.U7.U6
0U4
FS^RARGP&1"E0U3'"#
FS^RARG-1U3'
FS^RARGP&4"E1U2'"#0U2'
Q5J}[1[2[3[4[5[6[7[8[9
:I9
M(M.M& PSEUDOMARK)
.U5:L.-Q5-FQ9U1
Q1"L-Q1<I >'"#
-Q1C'
-FQ9DG9-FQ9C
M(M.M& XDRAW)
[1[2[3[4[5[6[7[8[9
:I9
M(M.M& PSEUDOMARK)
FQ9U4
.U5:L.-Q5-FQ9U1
Q1"L-Q1<I >'"#
-Q1C'
-FQ9DG9-FQ9C
M(M.M& XDRAW)
I[1[2[3[4[5[6[7[8[9
:I9
M(M.M& PSEUDOMARK)
M(M.M& XSTRETCH)
H[1[2[3[4[5[6[7[8[9
:I9
M(M.M& PSEUDOMARK)
M(M.M& XSHRINK)
x[1[2[3[4[5[6[7[8[9
:I9
M(M.M& PSEUDOMARK)
Q2"N
.U1[1[7[3
M(M.M& XSHRINK)
]3]7]1Q1J
M(M.M& XSTRETCH)'
ftDRAW loaded
DRAWe$& Marks the beginning of a line."& Setup for drawing line, etc.%& Draw line from mark to pointer.;& Draws line using parameters of MARK and & LINE SETUP..& Stretch along line from mark to pointer.=& Do stretching, using MARK and & LINE SETUP parameters. -& Shrink along line from mark to pointer.D& Erase line from mark to pointer - only works going down.      @& Shrink along line using MARK and & LINE SETUP parameters. B& Puts figure specified by MARK and ptr. in indicated Q-Reg.  (& Draws figure from indicated Q-reg.>& Puts transpose of fig in Q-reg arg1 into Q-reg arq2.    =& Simulates a MARK and & LINE SETUP call for V commands. 5& Draws a vertical line specified by arguments.  & Draws a diagonal line.%& Stretch as indicated by args.  #& Shrink as indicated by args. :& Erase as indicated by args -- only if erasing down. & Initialization.=MARK
& Line Setup
DRAW
& XDRAW
STRETCH
& XSTRETCH
SHRINK
ERASE
& XSHRINK
FCOPY
FIGURE
TRANSPOSE
& PSEUDOMARK
VDRAW
DDRAW
VSTRETCH
VSHRINK
VERASE
& Setup DRAW Library
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2