Google
 
Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/gigi/wombat.cdd-plot
There are 3 other files named wombat.cdd-plot in the archive. Click here to see a list.
{
ie\5\\ \*\5\?\H\S\b\p]]]]+]8]H]X]f]u]{^^#^3^C^Q^a^p)1\9\HOUSEKEEP\ 0\L(A1)\% 0
\(L"X"FFFFFFFFFFFFFFFF\0 0
\2L"Y"FFFFFFFFFFFFFFFF\: 0
\=L"Z"FFFFFFFFFFFFFFFF\E 0\GT(A1)\N 0
\Ps(e,a[0,0][1050,900])\Y 0\[w(ri7s"Y"[,0]) p[600,600]v[660,615][600,600]v(w(e))[660,585]\g 0\jp[225,560]v[280,575][225,560]v(w(e))[280,545]p[1000,370]\v 0(\xw(i6s"Z"[,0])c(c,a-90)[750,370]v[670,620]c(c,a-90)[670,595]c(c,a-90w(e))[670,595]]	 0 ]	p(b)v(w(e,s0))[790,520]p(e)p[+1]v[475,540]p(b)v(w(e,s0))[500,510]] 0]p(e)c(s)[][450,560][400,582][350,585][300,580][](e)]$ 0]&c(c,a-90)[300,550]w(e)c(c,a-90)[300,550]]0 0]3c(s)[][320,510][325,500][330,484][340,470][](e)]>
30#]@w(ri6)c(s)[][240,510][200,520][170,528][150,530][120,530][100,528][](e)]N	[0!]Pc(c,a-90)[100,470]w(e)c(s)[][30,420][50,390][78,300][100,250][](e)]] 0]`c(c,a-80)[290,325]c(s)[][390,100][](e)c(c,a-50)[485,345]]l	 0 ]nc(s)[][610,110][650,115][700,118][750,120][](e)c(c,a-90)[750,370]^	 0^p[90,450]v(w(e,s0))[230,470][90,450][250,435][90,450][230,410]^	 0"^
 0$^+c(s)[][300,200][220,210][](e)p[265,185]w(e,s1)v[300,120]v(w(i7))[290,185]^8
 0#^;p[300,700]w(s0ri2)t(A0i0s3)"LARGE WOMBAT"t(s1)s(a[0,0][767,479])p[,500]^H 0^K@:BP[,-130]P[+250]W(I5S0)V[,+130][-250][,-130][+250]P(B)^W	 0"^Y[-161,+10]T[12,0]"Legend"P(E)[-240,+38]P(B)[,+20]T(A1)W(I6S[,-20]"Z")^f	 0!^iV[+40]W(S0)V[,-20][-40][,+20][+40]P[+10,-20]W(I5)T(A0)[12,0]"Bulk"^v	 0"^xP(E)P(B)[,+50]T(A1)W(I7S[,-20]"Y")V[+40]W(S0)V[,-20][-40][,+20][+40]_ 0_P[+10,-20]W(I5)T(A0)[12,0]"Ears and Toes"P(E)P(B)[,+80]_	 0 _T(A1)W(I2S[,-20]"A")V[+40]W(S0)V[,-20][-40][,+20][+40]P[+10,-20]_" 0_%W(I5)T(A0)[12,0]"The Word Wombat"P(E)@;_-9_/HOUSEKEEP
DEFINE PLOT WOMBAT
ENTRY 0
BEGIN
	PLOT HOUSEKEEP 0
PRINT "L(A1)"
PRINT "L""X""FFFFFFFFFFFFFFFF"
PRINT "L""Y""FFFFFFFFFFFFFFFF"
PRINT "L""Z""FFFFFFFFFFFFFFFF"
PRINT "T(A1)"
PRINT "s(e,a[0,0][1050,900])"
$PRINT "w(ri7s""Y""[,0]) p[600,600]v[660,615][600,600]v(w(e))[660,585]"
!PRINT "p[225,560]v[280,575][225,560]v(w(e))[280,545]p[1000,370]"

.PRINT "w(i6s""Z""[,0])c(c,a-90)[750,370]v[670,620]c(c,a-90)[670,595]c(c,a-90w(e))[670,595]"
%PRINT "p(b)v(w(e,s0))[790,520]p(e)p[+1]v[475,540]p(b)v(w(e,s0))[500,510]"
PRINT "p(e)c(s)[][450,560][400,582][350,585][300,580][](e)"
PRINT "c(c,a-90)[300,550]w(e)c(c,a-90)[300,550]"
PRINT "c(s)[][320,510][325,500][330,484][340,470][](e)"
	(PRINT "w(ri6)c(s)[][240,510][200,520][170,528][150,530][120,530][100,528][](e)"
&PRINT "c(c,a-90)[100,470]w(e)c(s)[][30,420][50,390][78,300][100,250][](e)"
!PRINT "c(c,a-80)[290,325]c(s)[][390,100][](e)c(c,a-50)[485,345]"
%PRINT "c(s)[][610,110][650,115][700,118][750,120][](e)c(c,a-90)[750,370]"
$PRINT "p[90,450]v(w(e,s0))[230,470][90,450][250,435][90,450][230,410]"
(PRINT "p[190,365]w(e,s1)c[205,365]p[210,330]w(ri6,s""Z"")c[210,360]p[220,210]"
 PRINT "w(i7,s""Y"")v[305,75]c(s)[][310,100][320,150][](e)w(i6)"
	)PRINT "c(s)[][300,200][220,210][](e)p[265,185]w(e,s1)v[300,120]v(w(i7))[290,185]"
	)PRINT "p[300,700]w(s0ri2)t(A0i0s3)""LARGE WOMBAT""t(s1)s(a[0,0][767,479])p[,500]"
!PRINT "@:BP[,-130]P[+250]W(I5S0)V[,+130][-250][,-130][+250]P(B)"
	)PRINT "[-161,+10]T[12,0]""Legend""P(E)[-240,+38]P(B)[,+20]T(A1)W(I6S[,-20]""Z"")"
'PRINT "V[+40]W(S0)V[,-20][-40][,+20][+40]P[+10,-20]W(I5)T(A0)[12,0]""Bulk"""
(PRINT "P(E)P(B)[,+50]T(A1)W(I7S[,-20]""Y"")V[+40]W(S0)V[,-20][-40][,+20][+40]"
!PRINT "P[+10,-20]W(I5)T(A0)[12,0]""Ears and Toes""P(E)P(B)[,+80]"
&PRINT "T(A1)W(I2S[,-20]""A"")V[+40]W(S0)V[,-20][-40][,+20][+40]P[+10,-20]"
PRINT "W(I5)T(A0)[12,0]""The Word Wombat""P(E)@;"
	PLOT HOUSEKEEP 2
END
END_PLOT