Trailing-Edge
-
PDP-10 Archives
-
BB-K840A-BM_1981
-
sources/shade.pic
There are no other files named shade.pic in the archive.
;" Copyright (C) 1980, by Digital Equipment Corporation, Maynard, Mass."
p[0,0]S(I0,E)W[1](M1,P(M1))(R,I7,P1,N0,A0,S0)
L(A1)t(a1)
l'A'FFFFFFFFFFFFFFFFFFFF;
L'B'AA55AA55AA55AA55AA55;
L'C'AAAAAAAAAAAAAAAAAAAA;
L'D'AA00AA00AA00AA00AA00
T[+128,+0](A1,D0,I0,S[124,20],M[1,2])
W(I(R))T'ABD'W(I(G))T'ABD'
@.@:AP[0,+20]W(I(R))T'ABD'W(I(G))T'ABD'@;
@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A@A
@A@A@A@A@A@A@A@A@A@A
@A@A
T[+18,+0](A0,D0,I0,S[18,60],M[2,6])W(R,I(W))
P[120,60][-1]
T' INTENSITY BY DOT SPACING '
;[PAUSE]
S(I1,T30)
;[PAUSE]
S(I2,T30)
;[PAUSE]
S(I3,T30)
;[PAUSE]
S(I4,T30)
;[PAUSE]
S(I5,T30)
;[PAUSE]
S(I6,T30)
;[PAUSE]
S(I7,T30)
;[PAUSE]
S(I0,T30)
S8