| T.R | Title | User | Personal
Name | Date | Lines |
|---|
| 50.1 | The first volley | GEMVAX::HICKSCOURANT | | Tue Aug 27 1991 17:03 | 1926 |
| %!PS-Adobe-2.0
%%Creator: VAX DOCUMENT V2.0
%%+Copyright 1986,1987,1988,1989,1990,1991 DIGITAL EQUIPMENT CORPORATION.
%%+All Rights Reserved.
%%DocumentFonts: (atend)
%%Pages: (atend)
%%EndComments
/DEC_DVC$dict where { %FIND DICTIONARY
pop
}{ %else
/DEC_DVC$dict 300 dict def
} ifelse
/BeginDVC$PSDoc { %BEGIN DOCUMENT
vmstatus pop pop 0 eq {
DEC_DVC$dict begin InitializeState
}{ %else
/DVC$PSJob save def DEC_DVC$dict begin InitializeState
/DVC$PSFonts save def
} ifelse
} def
/EndDVC$PSDoc { %END DOCUMENT
% --- Preserving current page count ---
vmstatus pop pop 0 eq {
end
}{ %else
DVC$PSFonts restore end DVC$PSJob restore
} ifelse
} def
%
DEC_DVC$dict begin
%
mark % CREATE ISOLatin1Encoding if not there already
/ISOLatin1Encoding
8#000 1 8#054 {StandardEncoding exch get} for
/minus
8#056 1 8#217 {StandardEncoding exch get} for
/dotlessi
8#301 1 8#317 {StandardEncoding exch get} for
/space /exclamdown /cent /sterling /currency /yen /brokenbar /section
/dieresis /copyright /ordfeminine /guillemotleft /logicalnot /hyphen
/registered /macron /degree /plusminus /twosuperior /threesuperior /acute
/mu /paragraph /periodcentered /cedilla /onesuperior /ordmasculine
/guillemotright /onequarter /onehalf /threequarters /questiondown /Agrave
/Aacute /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla /Egrave /Eacute
/Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex /Idieresis /Eth /Ntilde
/Ograve /Oacute /Ocircumflex /Otilde /Odieresis /multiply /Oslash /Ugrave
/Uacute /Ucircumflex /Udieresis /Yacute /Thorn /germandbls /agrave /aacute
/acircumflex /atilde /adieresis /aring /ae /ccedilla /egrave /eacute
/ecircumflex /edieresis /igrave /iacute /icircumflex /idieresis /eth /ntilde
/ograve /oacute /ocircumflex /otilde /odieresis /divide /oslash /ugrave
/uacute /ucircumflex /udieresis /yacute /thorn /ydieresis
/ISOLatin1Encoding where not {256 array astore def} if
cleartomark
%
/DOCPSE ISOLatin1Encoding 256 array copy def
mark % CREATE DOCPSE ENCODING
8#055 /hyphen
8#201 /bullet 8#202 /emdash 8#203 /endash 8#204 /dagger
8#205 /daggerdbl 8#206 /registered 8#207 /trademark %8#210 /Delta
8#211 /fi 8#212 /fl 8#213 /OE 8#214 /oe
8#215 /Ydieresis
counttomark -1 bitshift % DIVIDE BY 2
{DOCPSE 3 1 roll put} repeat % STACK NOW CONTAINS MARK
cleartomark
%
/reencodedict 10 dict def %Local storage for "ReENCODE"
/ReENCODE { % /basefont /newfont encoding ReENCODE
/newencoding exch def %ARG: NAME OF ENCODING VECTOR
/newfontname exch def %ARG: NEW NAME FOR FONT AFTER RE-ENCODING
findfont
/basefontdict exch def %ARG: NAME OF FONT TO BE RE-ENCODED
basefontdict maxlength dict begin %CREATE AND OPEN NEW DICT
basefontdict { %COPY ENTRIES FROM BASE FONT DICT TO NEW ONE
1 index /FID ne {
def %IF NOT THE ONE WE'RE ENCODING, JUST COPY PTRS
} { %else
pop pop %IGNORE FID AND ENCODING FOR ONE WE'RE ENCODING
} ifelse
} forall
/FontName newfontname def %DEFINE NEW NAME
/Encoding newencoding def %DEFINE NEW ENCODING VECTOR
newfontname currentdict definefont %TURN IT INTO A PS FONT
pop %IGNORE MODIFIED DICT RETURNED BY DEFINEFONT
end
} def
%
/cvsstr 64 string def
/tempmatrix matrix def
%
/BP { % BEGIN PAGE
/Magnification exch def
/Colorsused 0 def
/processcolor false def
/RVmatrix matrix def
/DVC$PSPage save def
} def
%
/EP {DVC$PSPage restore} def % END PAGE
%
/XP { % EXIT PAGE (TEMPORARILY) TO ADD FONTS/CHARS
% SAVE CURRENT POINT AND COLOR INFORMATION SO IT CAN BE RESET LATER
matrix currentmatrix aload pop currentrgbcolor Colorsused processcolor
/Xpos where {pop Xpos} {0} ifelse
/Ypos where {pop Ypos} {0} ifelse
/currentpoint cvx stopped {0 0 moveto currentpoint} if
/DVC$PSPage where {pop DVC$PSPage restore} if
moveto
/Ypos exch def /Xpos exch def
/processcolor exch def /Colorsused exch def setrgbcolor
matrix astore setmatrix
} def
%
/RP {/DVC$PSPage save def} def % RESUME PAGE
%
/PF {GlobalMode LocalMode} def % PURGE FONTS TO RECLAIM MEMORY
%
/GlobalMode { % SWITCH TO BASE SAVE/RESTORE LEVEL, SAVING STATE
/DEC$EDMS_SEPARATE_COLORS where{pop DEC$EDMS_SEPARATE_COLORS}{9999}ifelse
RVmatrix aload pop processcolor
PortraitMode PaperWidth PaperHeight PxlResolution Resolution
Magnification Ymax Xorigin Yorigin RasterScaleFactor
% SAVE CURRENTPOINT INFORMATION TO RESET LATER
/currentpoint cvx stopped {0 0 moveto currentpoint} if
/DVC$PSPage where {pop DVC$PSPage restore} if
DVC$PSFonts restore RecoverState
} def
%
/RecoverState { % PRESERVE STATE AT BASE LEVEL
20 copy
/Ypos exch def /Xpos exch def /RasterScaleFactor exch def
/Yorigin exch def /Xorigin exch def /Ymax exch def
/Magnification exch def /Resolution exch def /PxlResolution exch def
/PaperHeight exch def /PaperWidth exch def /PortraitMode exch def
/processcolor exch def matrix astore /RVmatrix exch def
dup 9999 ne{/DEC$EDMS_SEPARATE_COLORS exch def}{pop}ifelse
DoInitialScaling
RVmatrix concat
PortraitMode not {PaperWidth 0 SetupLandscape} if
Xpos Ypos moveto
} def
%
/InitializeState { % INITIALIZE STATE VARIABLES TO DEFAULT VALUES
/Resolution 3600 def /PxlResolution 300 def
/RasterScaleFactor PxlResolution Resolution div def
/PortraitMode true def
/Magnification 1000 def /Xorigin 0 def /Yorigin 0 def
/Xpos 0 def /Ypos 0 def /InitialMatrix matrix currentmatrix def
/Colorsused 0 def /processcolor false def /RVmatrix matrix def
} def
%
/LocalMode { % SWITCH FROM BASE SAVE/RESTORE LEVEL, RESTORING STATE
/Ypos exch def /Xpos exch def /RasterScaleFactor exch def
/Yorigin exch def /Xorigin exch def /Ymax exch def
/Magnification exch def /Resolution exch def /PxlResolution exch def
/PaperHeight exch def /PaperWidth exch def /PortraitMode exch def
/processcolor exch def matrix astore /RVmatrix exch def
dup 9999 ne{/DEC$EDMS_SEPARATE_COLORS exch def}{pop}ifelse
DoInitialScaling
RVmatrix concat
PortraitMode not {PaperWidth 0 SetupLandscape} if
Xpos Ypos moveto
/DVC$PSFonts save def /DVC$PSPage save def
} def
% % ABBREVIATIONS
/S /show load def
/SV /save load def
/RST /restore load def
/Yadjust {Ymax exch sub} def
%
/SXY { % (x,y) POSITION ABSOLUTE, JUST SET Xpos & Ypos, DON'T MOVE
Yadjust /Ypos exch def /Xpos exch def
} def
%
/XY { % (x,y) POSITION ABSOLUTE
Yadjust 2 copy /Ypos exch def /Xpos exch def moveto
} def
%
/X { % (x,0) POSITION ABSOLUTE
currentpoint exch pop 2 copy /Ypos exch def /Xpos exch def moveto
} def
%
/Y { % (0,y) POSITION ABSOLUTE
currentpoint pop exch Yadjust 2 copy
/Ypos exch def /Xpos exch def moveto
} def
%
/xy { % (x,y) POSITION RELATIVE
neg rmoveto currentpoint /Ypos exch def /Xpos exch def
} def
%
/x { % (x,0) POSITION RELATIVE
0 rmoveto currentpoint /Ypos exch def /Xpos exch def
} def
%
/y { % (0,y) POSITION RELATIVE
0 exch neg rmoveto currentpoint /Ypos exch def /Xpos exch def
} def
%
/R { % DRAW A RULE
/ht exch def /wd exch def gsave
% 0 setgray
currentpoint newpath moveto
0 ht rlineto wd 0 rlineto
0 ht neg rlineto wd neg 0 rlineto
closepath fill grestore wd 0 rmoveto
currentpoint /Ypos exch def /Xpos exch def
} def
%
/RES { % <PXL-file resolution(pix/inch)> <resolution(pix/inch)> RES
/Resolution exch def /PxlResolution exch def
/RasterScaleFactor PxlResolution Resolution div def
DoInitialScaling
} def
%
/DoInitialScaling { % DO INITIAL SCALING
InitialMatrix setmatrix 72 Resolution div dup scale
} def
%
/PM { % <paper-height(pix)> <paper-width(pix)> PM
XP
/PaperWidth exch def /PaperHeight exch def
/Ymax PaperHeight def /PortraitMode true def
DoInitialScaling
RP
} def
%
/SetupLandscape {translate 90 rotate} def
/LM { % <paper-height(pix)> <paper-width(pix)> LM
XP
/PaperWidth exch def /PaperHeight exch def
/Ymax PaperWidth def /PortraitMode false def
DoInitialScaling PaperWidth 0 SetupLandscape
RP
} def
%
/MAG { % CHANGE MAGNIFICATION SETTING
XP /Magnification exch def RP
} def
%
/SPB { % <xoffset><yoffset>SPB - BEGIN "\SPECIAL" MODE
Yadjust /Yorigin exch def /Xorigin exch def
currentrgbcolor Colorsused
GlobalMode Xorigin Yorigin translate
Resolution 72 div dup scale % RESTORE DEFAULT SCALING
Magnification 1000 div dup scale % ADJUST FOR ANY MAGNIFICATION
/Xpos Xpos 72 Resolution div mul 1000 Magnification div mul def
/Ypos Ypos 72 Resolution div mul 1000 Magnification div mul def
/spsavobj save def %SAVE STATE & STACK DEPTH FOR CLEANUP AFTER FIGURE
/showpage {} def %DISABLE DURING FIGURE; `RESTORE' WILL BLOW DEF AWAY
/DEC$EDMS_SEPARATE_COLORS where % if separating colors
{ % then
pop processcolor % if using process colors
{ % then
DEC$EDMS_SEPARATE_COLORS 0 ge % if on color pass .ge. 0
{ % then
{ pop 1 } settransfer % write only white
}{ % else
/DEC$EDMS_TRAP_SWELL where
{ pop DEC$EDMS_SEPARATE_COLORS -4 eq
{ /EDMS_setlinewidth /setlinewidth load def
/setlinewidth { DEC$EDMS_TRAP_SWELL mul EDMS_setlinewidth } def
} if
} if
/EDMS_setrgbcolor % set up for a redefine
/setrgbcolor load def % of the setrgbcolor operator
currentscreen % get the current screen parameters
/DEC$EDMS_SCREEN_ANGLE where % if changing the screen angle
{ % then
pop exch pop % replace the old angle
DEC$EDMS_SCREEN_ANGLE exch % with the new one
} if
/DEC$EDMS_SCREEN_FREQ where % if changing the screen frequency
{ % then
pop 3 -1 roll pop % replace the old frequency
DEC$EDMS_SCREEN_FREQ 3 1 roll % with the new one
} if
setscreen % Set the new parameters
/setrgbcolor {
/b exch def
/g exch def
/r exch def
/c3 1 r sub def
/m3 1 g sub def
/y3 1 b sub def
/k c3 m3 2 copy gt { exch } if pop y3 2 copy gt { exch } if pop def
/ik 1 k sub def
ik 0 ne
{ /c4 c3 k sub ik div def
/m4 m3 k sub ik div def
/y4 y3 k sub ik div def
}
{ /c4 /DEC$EDMS_BLACK_GEN where
{ pop DEC$EDMS_BLACK_GEN } { 0 } ifelse def
/m4 c4 def
/y4 c4 def
} ifelse
1 [ c4 m4 y4 k ] % pick the separation for this color
DEC$EDMS_SEPARATE_COLORS % pass ( -1 = Cyan, -2 = Magenta,
neg 1 sub get sub setgray % -3 = Yellow, -4 = Black )
} def
} ifelse % endif
}{ % else (if not using process colors)
DEC$EDMS_SEPARATE_COLORS 0 ne % if not on color pass 0
{ % then
{ pop 1 } settransfer % write only white
} if % endif
} ifelse % endif
} if % endif
mark
} def
%
/SPE { % SPE - END "\SPECIAL" MODE
cleartomark
spsavobj restore
1000 Magnification div dup scale % UN-ADJUST FOR ANY MAGNIFICATION
72 Resolution div dup scale % RESTORE DEFAULT INTERNAL SCALING
LocalMode
/Colorsused exch def setrgbcolor
} def
%
/PP
%
% If DEC$EDMS_MAKE_FILM is defined, it will add the crop & alignment marks,
% and the document name, page number, & ink color identifiers to the page.
%
% Formal Arguments: None
%
% Referenced Variables: DocumentName
% Colorsused
% Currentpagecount
% DEC$EDMS_MAKE_FILM
%
% Referenced Procedures: AlignMark
%
% Side Effects: Leaves the current font as Helvetica 8 point.
% Creates the variable "junkstr".
%
{ /PageNumber exch def
/DEC$EDMS_MAKE_FILM where % if making film...
{ pop
/DEC$EDMS_SUPPRESS_COLOR where % if color suppression is on
{ pop /DEC$EDMS_SEPARATE_COLORS 0 def % then default to color 0
/Colorsused 1 def } if % ...for everything
2 DEC$EDMS_SEPARATE_COLORS exp cvi Colorsused and 0 ne %if correct separatn
DEC$EDMS_SEPARATE_COLORS 0 lt or % ...or if a process color
{ /Helvetica findfont 400 scalefont setfont
20 setlinewidth 0 setgray
gsave
PaperWidth 1000 add 200 translate 90 rotate 0 0 moveto
(Ink: ) show % show the ink color
DEC$EDMS_SEPARATE_COLORS 0 ge
{ DEC$EDMS_COLOR_NAMES DEC$EDMS_SEPARATE_COLORS get }
{ (Process ) show [ (Cyan) (Magenta) (Yellow) (Black) ]
DEC$EDMS_SEPARATE_COLORS neg 1 sub get } ifelse show
/DEC$EDMS_SUPPRESS_COLOR where % if color suppression is on
{ pop ( (Color Suppression enabled)) show } if % tell them about it
1800 0 rmoveto
(Page: ) show % show the page number
/junkstr 4 string def PageNumber junkstr cvs show
( of ) show DEC$EDMS_TOTAL_PAGES junkstr cvs show
DEC$EDMS_SEPARATE_COLORS -4 eq
{ 1800 0 rmoveto (Trap Swell Factor: )show
/DEC$EDMS_TRAP_SWELL where % if trap swell factor is supplied
{ pop DEC$EDMS_TRAP_SWELL 6 string cvs }
{ (1 (default)) } ifelse show
} if
DEC$EDMS_SEPARATE_COLORS 0 lt % if a process color
{
PaperHeight 2 div 600 add 0 moveto (Screen Angle: ) show
/DEC$EDMS_SCREEN_ANGLE where
{ pop DEC$EDMS_SCREEN_ANGLE junkstr cvs } % if defined
{ ((default)) } ifelse show % if not defined
1800 0 rmoveto (Screen Frequency: ) show
/DEC$EDMS_SCREEN_FREQ where
{ pop DEC$EDMS_SCREEN_FREQ junkstr cvs } % if defined
{ ((default)) } ifelse show % if not defined
} if
grestore
gsave
-600 200 translate 90 rotate 0 0 moveto
(Document: ) show DEC$EDMS_DOCUMENT_ID show % show document name
PaperHeight 2 div 600 add 0 moveto
(This film is the property of Digital Equipment Corporation) show
grestore
/mask 15 % all crop marks on by default
/DEC$EDMS_SUPPRESS_CROPMARKS where % if def'd, xor in suppression mask
{ pop DEC$EDMS_SUPPRESS_CROPMARKS xor } if def
mask 1 and 1 eq
{ PaperWidth PaperHeight moveto % Upper Right
450 0 rmoveto 900 0 rlineto -1350 1350 rmoveto 0 -900 rlineto } if
mask 2 and 2 eq
{ PaperWidth 0 moveto % Lower Right
450 0 rmoveto 900 0 rlineto -1350 -1350 rmoveto 0 900 rlineto } if
mask 4 and 4 eq
{ 0 0 moveto % Lower Left
-450 0 rmoveto -900 0 rlineto 1350 -1350 rmoveto 0 900 rlineto } if
mask 8 and 8 eq
{ 0 PaperHeight moveto % Upper Left
-450 0 rmoveto -900 0 rlineto 1350 1350 rmoveto 0 -900 rlineto } if
stroke
/mask 15 % all registratn marks on by default
/DEC$EDMS_SUPPRESS_REGMARKS where % if defined, xor in suppression mask
{ pop DEC$EDMS_SUPPRESS_REGMARKS xor } if def
mask 1 and 1 eq % Top Center
{ gsave PaperWidth 2 div PaperHeight 900 add
/DEC$EDMS_POSITION_REGMARKS where
{ pop DEC$EDMS_POSITION_REGMARKS -50 mul add } if
translate AlignMark grestore } if
mask 2 and 2 eq % Right Center
{ gsave PaperWidth 900 add
/DEC$EDMS_POSITION_REGMARKS where
{ pop DEC$EDMS_POSITION_REGMARKS -50 mul add } if
PaperHeight 2 div translate AlignMark grestore } if
mask 4 and 4 eq % Bottom Center
{ gsave PaperWidth 2 div -900
/DEC$EDMS_POSITION_REGMARKS where
{ pop DEC$EDMS_POSITION_REGMARKS 50 mul add } if
translate AlignMark grestore } if
mask 8 and 8 eq % Left Center
{ gsave -900
/DEC$EDMS_POSITION_REGMARKS where
{ pop DEC$EDMS_POSITION_REGMARKS 50 mul add } if
PaperHeight 2 div translate AlignMark grestore } if
showpage
}
{ % disabled the 'erasepage ' that was here!
} ifelse
}
{ showpage } ifelse
} def
/CLRP { % disabled the 'erasepage' that was here!
} def
%
/DMF { % /font-name <point-size(pix)> DMF
/psz exch def /nam exch def nam findfont psz scalefont setfont
} def
%
/concatnam { % /abcd (xxx) concatnam ==> /abcdxxx
/xxx exch def /nam exch def
/namstr nam cvsstr cvs def
/newnam namstr length xxx length add string def
newnam 0 namstr putinterval
newnam namstr length xxx putinterval
newnam cvn
} def
%
/strip { % /abcdef 2 strip ==> /cdef
/num exch def /nam exch def
/namstr nam cvsstr cvs def
/newlen namstr length num sub def
namstr num newlen getinterval cvn
} def
% ROUTINES TO HANDLE PACKING/UNPACKING NUMBERS
/PackHW { % <target> <pos> <num> PackHW --> <new target>
/num exch def /pos exch def /target exch def
num 16#0000FFFF and 1 pos sub 16 mul bitshift target or
} def
/PackByte { % <target> <pos> <num> PackByte --> <new target>
/num exch def /pos exch def /target exch def
num 16#000000FF and 3 pos sub 8 mul bitshift target or
} def
/UnpkHW { % <pos> <num> UnpkHW --> <unpacked value>
/num exch def /pos exch def
num 1 pos sub -16 mul bitshift 16#0000FFFF and
dup 16#00007FFF gt {16#00010000 sub} if
} def
/UnpkByte { % <pos> <num> UnpkByte --> <unpacked value>
/num exch def /pos exch def
num 3 pos sub -8 mul bitshift 16#000000FF and
dup 16#0000007F gt {16#00000100 sub} if
} def
%
/ps-scalefont {
% FOR PS FONTS, LOOK AT SIZE REQUESTED. IF IT HAS A DECIMAL REMAINDER
% EQUIVALENT TO .001-.009 POINTS (I.E., .050-.450 VAXDOC UNITS), THAT'S
% A FLAG TO STRETCH IT VERTICALLY BY ADDING 1-9 EXTRA POINTS TO THE
% VERTICAL SCALING.
% save requested size - as entered and as integer
dup /x-size exch def cvi /x-int exch def
% calc decimal remainder, mul x 1000, round
x-size x-int sub 1000 mul round cvi /remainder exch def
% see how we scale...
remainder 50 lt remainder 450 gt or {
% scale isomorphically
/ystretch 0 def
x-size scalefont
} {
% scale anamorphically
/ystretch remainder def
x-int ystretch add /y-size exch def
[x-int 0 0 y-size 0 0] makefont
} ifelse
} def
%
/DPSF { % /procname size /fontname DPSF
findfont exch ps-scalefont [ exch /setfont cvx ] cvx def
} def
%
/PXLBuildCharDict 17 dict def
/CMEncodingArray 256 array def
0 1 255 {CMEncodingArray exch dup cvsstr cvs cvn put} for
/RasterConvert {RasterScaleFactor div} def
/TransformBBox {
aload pop
/BB-ury exch def /BB-urx exch def /BB-lly exch def /BB-llx exch def
[ BB-llx RasterConvert BB-lly RasterConvert
BB-urx RasterConvert BB-ury RasterConvert ]
} def
/RunLengthToRasters {
% none yet
} def
/GenerateRasters { % GENERATE RASTERS FOR "IMAGEMASK"
rasters runlength 1 eq {RunLengthToRasters} if
} def
%
/int-dict-name {int (-dict) concatnam} def
/int-dict {int (-dict) concatnam cvx load} def
%
/DefinePXLFont {
% <int-font-name><ext-font-name><pt-sz(pix)><PXL mag><num-chars>...
% ...[llx lly urx ury]<newfont-fg>DefinePXLFont
/newfont exch def /bb exch def /num exch def /psz exch def
/dsz exch def /pxlmag exch def /ext exch def /int exch def
/fnam ext (-) concatnam pxlmag cvsstr cvs concatnam def
newfont not {
int-dict-name 13 dict def
int-dict begin
/FontType 3 def /FontMatrix [ 1 dsz div 0 0 1 dsz div 0 0 ] def
/FontBBox bb TransformBBox def /Encoding CMEncodingArray def
/CharDict 1 dict def CharDict begin /Char-Info num array def end
/BuildChar {
PXLBuildCharDict begin
/char exch def /fontdict exch def
fontdict /CharDict get /Char-Info get char get aload pop
/rasters exch def /PackedWord1 exch def
0 PackedWord1 UnpkHW 16#7FFF ne {
/PackedWord2 exch def /wx 0 PackedWord1 UnpkHW def
/rows 2 PackedWord1 UnpkByte def /cols 3 PackedWord1 UnpkByte def
/llx 0 PackedWord2 UnpkByte def /lly 1 PackedWord2 UnpkByte def
/urx 2 PackedWord2 UnpkByte def /ury 3 PackedWord2 UnpkByte def
}{ %else
/PackedWord2 exch def /PackedWord3 exch def /PackedWord4 exch def
/wx 1 PackedWord1 UnpkHW def /rows 0 PackedWord2 UnpkHW def
/cols 1 PackedWord2 UnpkHW def /llx 0 PackedWord3 UnpkHW def
/lly 1 PackedWord3 UnpkHW def /urx 0 PackedWord4 UnpkHW def
/ury 1 PackedWord4 UnpkHW def
} ifelse
rows 0 lt {
/rows rows neg def /runlength 1 def
}{ %else
/runlength 0 def
} ifelse
wx 0
llx RasterConvert lly RasterConvert
urx RasterConvert ury RasterConvert setcachedevice
rows 0 ne {
gsave
cols rows true RasterScaleFactor
0 0 RasterScaleFactor neg llx .5 add neg ury .5 add
tempmatrix astore GenerateRasters imagemask
grestore
} if
end
} def
end
fnam int-dict definefont pop
} if
int-dict-name fnam findfont psz scalefont def
currentdict int [ int-dict /setfont cvx ] cvx put
} def
/PXLF { true DefinePXLFont} def % SIGNAL THAT FONT ALREADY LOADED
/PXLNF {false DefinePXLFont} def % SIGNAL THAT FONT NOT ALREADY LOADED
%
/PXLC { % <int-font-name><code><wx><llx><lly><urx><ury>...
% ...<rows><cols><runlength><rasters>PXLC
/rasters exch def /runlength exch def /cols exch def /rows exch def
/ury exch def /urx exch def /lly exch def /llx exch def
/wx exch def /code exch def /int exch def
% SEE IF LONG OR SHORT FORMAT IS REQUIRED
true cols CKSZ rows CKSZ ury CKSZ urx CKSZ lly CKSZ llx CKSZ
TackRunLengthToRows {
int-dict /CharDict get /Char-Info get code
[ 0 0 llx PackByte 1 lly PackByte 2 urx PackByte 3 ury PackByte
0 0 wx PackHW 2 rows PackByte 3 cols PackByte rasters ] put
}{ %else
int-dict /CharDict get /Char-Info get code
[ 0 0 urx PackHW 1 ury PackHW 0 0 llx PackHW 1 lly PackHW
0 0 rows PackHW 1 cols PackHW 0 0 16#7FFF PackHW 1 wx PackHW rasters ] put
} ifelse
} def
%
/CKSZ {abs 127 le and} def
/TackRunLengthToRows {runlength 0 ne {/rows rows neg def} if} def
%
/PLOTC {
% <wx><dsz><psz><llx><lly><urx><ury><rows><cols><runlength><rasters>PLOTC
/rasters exch def /runlength exch def /cols exch def /rows exch def
/ury exch def /urx exch def /lly exch def /llx exch def
/psz exch def /dsz exch def /wx exch def
% "PLOT" A CHARACTER'S RASTER PATTERN
rows 0 ne {
gsave
currentpoint translate psz dsz div dup scale
cols rows true RasterScaleFactor 0 0 RasterScaleFactor
neg llx .5 add neg ury .5 add tempmatrix astore
GenerateRasters imagemask
grestore
} if
wx x
} def
%
/AlignMark
%
% This procedure draws an alignment mark centered on the coordinate system
% origin. If the variable DEC$EDMS_SEPARATE_COLORS = 0 then a "positive"
% alignment mark is drawn. If DEC$EDMS_SEPARATE_COLORS <> 0 then a "negative"
% alignment mark is drawn.
%
% Formal Arguments: NONE
%
% Referenced Variables: DEC$EDMS_SEPARATE_COLORS
%
% Referenced Procedures: NONE
%
% Side Effects: NONE
%
{ DEC$EDMS_SEPARATE_COLORS 0 eq
{ 0 0 300 0 360 arc
0 -450 moveto 0 450 lineto -450 0 moveto 450 0 lineto stroke }
{ 0 0 450 0 360 arc fill 1 setgray 0 0 300 0 360 arc
0 -450 moveto 0 450 lineto -450 0 moveto 450 0 lineto stroke 0 setgray }
ifelse
} def
/SC
% If not making film, the following procedure sets the current color using the
% RGB color model. If making film, the procedure notes the "color pass" and,
% if the specified color index matches the color pass, subsequent marks are
% written in black. If the specified color index does not match the color pass,
% marks are written in white. Use of colors on individual pages is also tracked
% to allow pages that don't use a particular color to be suppressed on that
% color pass (by the code in the /PP routine).
%
% Formal Arguments: color index (on stack)
%
% Referenced Variables: Colorsused
% DEC$EDMS_SEPARATE_COLORS
% DEC$EDMS_SUPPRESS_COLOR
%
% Referenced Procedures: NONE
%
% Side Effects: Modifies the variable Colorsused to record use of the color.
% Tracks use of color in the variables 'ci' and 'processcolor'.
%
{ /ci exch def ci 0 lt % if the color index is lt 0
{ /processcolor true def } % then set 'processcolor' to 'true'.
{ ci /processcolor false def % else set 'processcolor' to 'false'.
/DEC$EDMS_SUPPRESS_COLOR where % if suppressing color
{ pop 0 setgray pop } % then set "color" to Black
{ /DEC$EDMS_SEPARATE_COLORS where % else if separating colors
{ pop dup DEC$EDMS_SEPARATE_COLORS eq % then if on this color pass
{ 0 setgray /Colorsused Colorsused % then write black (do write)
2 3 index exp cvi or def } % ..and note use of the "color"
{ 1 setgray } ifelse pop } % else write white (don't write)
{ dup ( ) cvs dup length 15 add string % else if using the color index,
/tstr exch def % ..build up the name of the
tstr 0 (DEC$EDMS_COLOR_) putinterval % ..potential external color
tstr exch 15 exch putinterval % ..name procedure
tstr cvn where % ..and see if it is defined
{ pop pop tstr cvn cvx exec } % execute it if it is
{ DEC$EDMS_COLOR_ARRAY exch get exec % else exec internal color proc
} ifelse
} ifelse
} ifelse
} ifelse
} def
/RV % .. gross recto/verso translate
{ /DEC$EDMS_ENABLE_RECTOVERSO where
{ pop
/RVmatrix DEC$EDMS_ENABLE_RECTOVERSO 50 mul 0 matrix translate def
RVmatrix concat
} if
} def
%
% Procedures for implementing the "rotate <theta>" special:
% <theta> ROTB -
% - ROTE -
/ROTB {
XP
gsave
Xpos Ypos translate
rotate % using <theta> from the stack
Xpos neg Ypos neg translate
RP
} def
/ROTE {XP grestore RP} def
end %DEC_DVC$dict
%%EndProlog
%%BeginSetup
/DEC$EDMS_MAKE_FILM where % if we are making film...
{ pop % ..clean up the stack
54 dup translate % ..make room for the film info
} if
BeginDVC$PSDoc
/PaperWidth 8.500 Resolution mul def
/PaperHeight 11.000 Resolution mul def
/Ymax PaperHeight def
CLRP 300 3600 RES
%> Postamble of file GEM01D$:[HICKSCOURANT.NEADC]STELLWAGEN_LTR_1.DVI_PS.
% DefineFont:F155 Category:10 Pointsize:9
/NewCenturySchlbk-Roman /NewCenturySchlbk-Roman@DOCPSE DOCPSE ReENCODE
/F155 450.0 /NewCenturySchlbk-Roman@DOCPSE DPSF
% DefineFont:F152 Category:10 Pointsize:10
/NewCenturySchlbk-Italic /NewCenturySchlbk-Italic@DOCPSE DOCPSE ReENCODE
/F152 500.0 /NewCenturySchlbk-Italic@DOCPSE DPSF
% DefineFont:F151 Category:10 Pointsize:10
/F151 500.0 /NewCenturySchlbk-Roman@DOCPSE DPSF
%%BeginDEC$EDMSInfo
/DEC$EDMS_DOCUMENT_ID () def
/DEC$EDMS_COLOR_NAMES [ (0_BLACK) ] def
/DEC$EDMS_COLOR_ARRAY [
%%RGBCustomColor 0.000 0.000 0.000 0_BLACK
{ 0.000 0.000 0.000 setrgbcolor } % 0_BLACK DOC$COLOR_INIT
] def
/DEC$EDMS_TOTAL_PAGES 0 def
%%EndDEC$EDMSInfo
/DEC$EDMS_MAKE_FILM where
{ pop /DEC$EDMS_SEPARATE_COLORS where
{ pop }
{ (ERROR - DEC$EDMS_MAKE_FILM requires DEC$EDMS_SEPARATE_COLORS be defined) = quit } ifelse
} if
/DEC$EDMS_SEPARATE_COLORS where
{ pop /DEC$EDMS_SUPPRESS_COLOR where
{ pop (ERROR - DEC$EDMS_SEPARATE_COLORS and DEC$EDMS_SUPPRESS_COLOR are mutually exclusive) = quit } if
} if
/DVC$PSFonts save def
%%EndSetup
%
%%Page: 1 1
%%BeginPageSetup
%%EndPageSetup
%%PageFonts: (atend)
%%PageCustomColors: (atend)
1000 BP PaperHeight PaperWidth PM 0 0 XY
%%BeginCustomColor: 0_BLACK
0 SC
%%EndCustomColor
5400 4198 XY
5400 7187 SPB
%%BeginDocument: (des_image_small.ps)
-46.000 -653.000 translate
%!PS-Adobe-2.0 EPSF-1.2
%%Creator: FreeHand
%%Title: DES small
%%CreationDate: 5/3/91 2:14 PM
%%BoundingBox: 46 653 259 744
%%DocumentProcSets: FreeHand_header 2 0
%%DocumentSuppliedProcSets: FreeHand_header 2 0
%%DocumentFonts: Symbol
%%+Times-Roman
%%+Helvetica-Bold
%%DocumentNeededFonts: Symbol
%%+Times-Roman
%%+Helvetica-Bold
%%ColorUsage: Color
%%DocumentProcessColors: Cyan Magenta Yellow Black
%%DocumentCustomColors: (green)
%%+ (cyan)
%%CMYKCustomColor: 1 0 1 0 (green)
%%+ 0.83 0 0 0 (cyan)
%%CMYKProcessColor: 0 0 0 0.1 (10% gray)
%%+ 0 0 0 0.2 (20% gray)
%%+ 0 0 0 0.4 (40% gray)
%%+ 0 0 0 0.6 (60% gray)
%%+ 0 0 0 0.8 (80% gray)
%%+ 0 1 1 0 (red)
%%EndComments
%%BeginProcSet: FreeHand_header 2 0
/FreeHandDict 200 dict def
FreeHandDict begin
/currentpacking where{pop true setpacking}if
/bdf{bind def}bind def
/bdef{bind def}bdf
/xdf{exch def}bdf
/ndf{1 index where{pop pop pop}{dup xcheck{bind}if def}ifelse}bdf
/min{2 copy gt{exch}if pop}bdf
/max{2 copy lt{exch}if pop}bdf
/dr{transform .25 sub round .25 add
exch .25 sub round .25 add exch itransform}bdf
/curveto{dr curveto}bdf
/lineto{dr lineto}bdf
/moveto{dr moveto}bdf
/graystep 1 256 div def
/bottom -0 def
/delta -0 def
/frac -0 def
/left -0 def
/numsteps -0 def
/numsteps1 -0 def
/radius -0 def
/right -0 def
/top -0 def
/x -0 def
/y -0 def
/df currentflat def
/tempstr 1 string def
/clipflatness 3 def
/inverted?
0 currenttransfer exec .5 ge def
/concatprocs{
/proc2 exch cvlit def/proc1 exch cvlit def
/newproc proc1 length proc2 length add array def
newproc 0 proc1 putinterval newproc proc1 length proc2 putinterval
newproc cvx}bdf
/storerect{/top xdf/right xdf/bottom xdf/left xdf}bdf
/rectpath{newpath left bottom moveto left top lineto
right top lineto right bottom lineto closepath}bdf
/sf{dup 0 eq{pop df dup 3 mul}{dup} ifelse /clipflatness xdf setflat}bdf
version cvr 38.0 le
{/setrgbcolor{
currenttransfer exec 3 1 roll
currenttransfer exec 3 1 roll
currenttransfer exec 3 1 roll
setrgbcolor}bdf}if
/gettint{0 get}bdf
/puttint{0 exch put}bdf
/vms{/vmsv save def}bdf
/vmr{vmsv restore}bdf
/vmrs{vmr vms}bdf
/CD{/NF exch def
{exch dup/FID ne{exch NF 3 1 roll put}
{pop pop}ifelse}forall NF}bdf
/MN{1 index length/Len exch def
dup length Len add string dup
Len 4 -1 roll putinterval dup 0 4 -1 roll putinterval}bdf
/RC{256 string cvs(|______)anchorsearch
{1 index MN cvn/NewN exch def cvn
findfont dup maxlength dict CD dup/FontName NewN put dup
/Encoding MacVec put NewN exch definefont pop}{pop}ifelse}bdf
/RF{dup FontDirectory exch known{pop}{RC}ifelse}bdf
/FF{dup 256 string cvs(|______)exch MN cvn dup FontDirectory exch known
{exch}if pop findfont}bdf
userdict begin /BDFontDict 20 dict def end
BDFontDict begin
/bu{}def
/bn{}def
/setTxMode{pop}def
/gm{moveto}def
/show{pop}def
/gr{pop}def
/fnt{pop pop pop}def
/fs{pop}def
/fz{pop}def
/lin{pop pop}def
end
/MacVec 256 array def
MacVec 0 /Helvetica findfont
/Encoding get 0 128 getinterval putinterval
MacVec 127 /DEL put MacVec 16#27 /quotesingle put MacVec 16#60 /grave put
/NUL/SOH/STX/ETX/EOT/ENQ/ACK/BEL/BS/HT/LF/VT/FF/CR/SO/SI
/DLE/DC1/DC2/DC3/DC4/NAK/SYN/ETB/CAN/EM/SUB/ESC/FS/GS/RS/US
MacVec 0 32 getinterval astore pop
/Adieresis/Aring/Ccedilla/Eacute/Ntilde/Odieresis/Udieresis/aacute
/agrave/acircumflex/adieresis/atilde/aring/ccedilla/eacute/egrave
/ecircumflex/edieresis/iacute/igrave/icircumflex/idieresis/ntilde/oacute
/ograve/ocircumflex/odieresis/otilde/uacute/ugrave/ucircumflex/udieresis
/dagger/degree/cent/sterling/section/bullet/paragraph/germandbls
/register/copyright/trademark/acute/dieresis/notequal/AE/Oslash
/infinity/plusminus/lessequal/greaterequal/yen/mu/partialdiff/summation
/product/pi/integral/ordfeminine/ordmasculine/Omega/ae/oslash
/questiondown/exclamdown/logicalnot/radical/florin/approxequal/Delta/guillemotleft
/guillemotright/ellipsis/nbspace/Agrave/Atilde/Otilde/OE/oe
/endash/emdash/quotedblleft/quotedblright/quoteleft/quoteright/divide/lozenge
/ydieresis/Ydieresis/fraction/currency/guilsinglleft/guilsinglright/fi/fl
/daggerdbl/periodcentered/quotesinglbase/quotedblbase
/perthousand/Acircumflex/Ecircumflex/Aacute
/Edieresis/Egrave/Iacute/Icircumflex/Idieresis/Igrave/Oacute/Ocircumflex
/apple/Ograve/Uacute/Ucircumflex/Ugrave/dotlessi/circumflex/tilde
/macron/breve/dotaccent/ring/cedilla/hungarumlaut/ogonek/caron
MacVec 128 128 getinterval astore pop
/fps{currentflat exch dup 0 le{pop 1}if
{dup setflat 3 index stopped
{1.3 mul dup 3 index gt{pop setflat pop pop stop}if}{exit}ifelse
}loop pop setflat pop pop
}bdf
/fp{100 currentflat fps}bdf
/rfp{clipflatness currentflat fps}bdf
/fcp{100 clipflatness fps}bdf
/fclip{{clip}fcp}bdf
/feoclip{{eoclip}fcp}bdf
end %. FreeHandDict
%%EndProcSet
%%BeginSetup
FreeHandDict begin
/ccmyk{dup 5 -1 roll sub 0 max exch}ndf
/setcmykcolor{1 exch sub ccmyk ccmyk ccmyk pop setrgbcolor}ndf
/setcmykcoloroverprint{4{dup -1 eq{pop 0}if 4 1 roll}repeat setcmykcolor}ndf
/findcmykcustomcolor{5 /packedarray where{pop packedarray}{array astore readonly}ifelse}ndf
/setcustomcolor{exch aload pop pop 4{4 index mul 4 1 roll}repeat setcmykcolor pop}ndf
/setseparationgray{1 exch sub dup dup dup setcmykcolor}ndf
/setoverprint{pop}ndf
/currentoverprint false ndf
/colorimage{pop pop
[5 -1 roll/exec cvx 6 -1 roll/exec cvx 7 -1 roll/exec cvx 8 -1 roll/exec cvx
/exch cvx/pop cvx/exch cvx/pop cvx/exch cvx/pop cvx/invbuf cvx]cvx image}
%. version 47.1 of Postscript defines colorimage incorrectly (rgb model only)
version cvr 47.1 le{userdict begin bdf end}{ndf}ifelse
/customcolorimage{pop image}ndf
/separationimage{image}ndf
/newcmykcustomcolor{6 /packedarray where{pop packedarray}{array astore readonly}ifelse}ndf
/inkoverprint false ndf
/setinkoverprint{pop}ndf
/overprintprocess{pop}ndf
/setspotcolor
{spots exch get 0 5 getinterval exch setcustomcolor}ndf
/currentcolortransfer{currenttransfer dup dup dup}ndf
/setcolortransfer{systemdict begin settransfer end pop pop pop}ndf
/setimagecmyk{dup length 4 eq
{aload pop}
{aload pop spots exch get 0 4 getinterval aload pop 4
{4 index mul 4 1 roll}repeat 5 -1 roll pop} ifelse
systemdict /colorimage known{version cvr 47.1 gt}{false}ifelse
not{pop 1 currentgray sub}if
/ik xdf /iy xdf /im xdf /ic xdf
}ndf
/setcolor{dup length 4 eq
{aload overprintprocess setcmykcolor}
{aload 1 get spots exch get 5 get setinkoverprint setspotcolor}
ifelse}ndf
/bc2[0 0]def
/bc4[0 0 0 0]def
/c1[0 0 0 0]def
/c2[0 0 0 0]def
/absmax{2 copy abs exch abs gt{exch}if pop}bdf
/calcstep
{c1 length 4 eq
{
0 1 3
{c1 1 index get
c2 3 -1 roll get
sub
}for
absmax absmax absmax
}
{
bc2 c1 1 get 1 exch put
c1 gettint c2 gettint
sub abs
}ifelse
graystep div abs round dup 0 eq{pop 1}if
dup /numsteps xdf 1 sub dup 0 eq{pop 1}if /numsteps1 xdf
}bdf
/cblend{
c1 length 4 eq
{
0 1 3
{bc4 exch
c1 1 index get
c2 2 index get
1 index sub
frac mul add put
}for bc4
}{
bc2
c1 gettint
c2 gettint
1 index sub
frac mul add
puttint bc2
}ifelse
setcolor
}bdf
/logtaper{/frac frac 9 mul 1 add log def}bdf
/imbits 1 def
/iminv false def
/invbuf{0 1 2 index length 1 sub{dup 2 index exch get 255 exch sub 2 index 3 1 roll put}for}bdf
/cyanrp{currentfile cyanbuf readhexstring pop iminv{invbuf}if}def
/magentarp{cyanbuf magentabuf copy}bdf
/yellowrp{cyanbuf yellowbuf copy}bdf
/blackrp{cyanbuf blackbuf copy}bdf
/fixtransfer{
dup{ic mul ic sub 1 add}concatprocs exch
dup{im mul im sub 1 add}concatprocs exch
dup{iy mul iy sub 1 add}concatprocs exch
{ik mul ik sub 1 add}concatprocs
currentcolortransfer
5 -1 roll exch concatprocs 7 1 roll
4 -1 roll exch concatprocs 6 1 roll
3 -1 roll exch concatprocs 5 1 roll
concatprocs 4 1 roll
setcolortransfer
}bdf
/textopf false def
/curtextmtx{}def
/otw .25 def
/msf{dup/curtextmtx xdf makefont setfont}bdf
/makesetfont/msf load def
/curtextheight{.707104 .707104 curtextmtx dtransform
dup mul exch dup mul add sqrt}bdf
/ta{1 index
{tempstr 0 2 index put tempstr 2 index
gsave exec grestore
tempstr stringwidth rmoveto
5 index eq{6 index 6 index rmoveto}if
3 index 3 index rmoveto
}forall 7{pop}repeat}bdf
/sts{setcolor textopf setoverprint/ts{awidthshow}def exec}bdf
/stol{setlinewidth setcolor textopf setoverprint newpath
/ts{{false charpath stroke}ta}def exec}bdf
/currentpacking where{pop false setpacking}if
%%EndSetup
/spots[1 0 0 0 (Process Cyan) false newcmykcustomcolor
0 1 0 0 (Process Magenta) false newcmykcustomcolor
0 0 1 0 (Process Yellow) false newcmykcustomcolor
0 0 0 1 (Process Black) false newcmykcustomcolor
1 0 1 0 (green) false
newcmykcustomcolor
0.83 0 0 0 (cyan) false
newcmykcustomcolor
]def
vms
gsave [1 0 0 1 0 0] concat
vms
%%IncludeFont: Times-Roman
/f1 /|______Times-Roman dup RF findfont def
{
f1 [7.999573 0 0 8.000427 0 0] makesetfont
170.177246 704.598267 moveto
0 0 32 0 0 (DES) ts
170.177246 696.597839 moveto
0 0 32 0 0 (P) ts
173.737595 696.597839 moveto
0 0 32 0 0 (.O. Box 294) ts
170.177246 688.597412 moveto
0 0 32 0 0 (Billerica, MA) ts
214.163162 688.597412 moveto
0 0 32 0 0 ( 01821-0294) ts
}
[0 0 0 1]
sts
vmrs
gsave [0.516357 0 0 0.516266 25.555298 356.67804] concat
vms
0 sf
newpath
48 743 moveto
270 743 lineto
270 579 lineto
48 579 lineto
closepath
gsave
[0 0 0 1]setcolor {fill}fp
grestore
gsave
1 setlinewidth 0 setlinecap 0 setlinejoin 3.863693 setmiterlimit [0 0 0 1]setcolor {stroke}fp
grestore
gsave [0.539841 0 0 0.539856 3.361298 441.760101] concat
vms
0 sf
newpath
378.4 446 moveto
378.4 446 lineto
closepath
gsave
[0 0 0 0]setcolor {eofill}fp
grestore
0 sf
newpath
72.5 566.7 moveto
486.5 566.7 lineto
486.5 260.7 lineto
72.5 260.7 lineto
closepath
gsave
[0 0 0 0]setcolor {fill}fp
grestore
gsave
1.5 setlinewidth 0 setlinecap 0 setlinejoin 3.863693 setmiterlimit [0 0 0 1]setcolor {stroke}fp
grestore
%%IncludeFont: Helvetica-Bold
/f2 /|______Helvetica-Bold dup RF findfont def
{
f2 [36 0 0 36 0 0] makesetfont
92.5 328.718292 moveto
0 0 32 0 0 (DES) ts
f2 [24 0 0 24 0 0] makesetfont
166.512695 328.718292 moveto
0 0 32 0 0 () ts
f2 [18 0 0 18 0 0] makesetfont
92.5 328.718292 moveto
92.5 306.559143 moveto
0 0 32 0 0 (Divers') ts
92.5 288.559143 moveto
0 0 32 0 0 (Environmental) ts
92.5 270.559143 moveto
0 0 32 0 0 (Survey) ts
}
[0 0 0 1]
sts
vmrs
0 sf
newpath
144.5 563.7 moveto
486.5 320.7 lineto
gsave
1.5 setlinewidth 0 setlinecap 0 setlinejoin 3.863693 setmiterlimit [0 0 0 1]setcolor {stroke}fp
grestore
0 sf
newpath
72.5 509.7 moveto
423.5 260.7 lineto
gsave
1.5 setlinewidth 0 setlinecap 0 setlinejoin 3.863693 setmiterlimit [0 0 0 1]setcolor {stroke}fp
grestore
0 sf
newpath
378.9 446.7 moveto
378.9 446.7 lineto
closepath
gsave
[0 0 0 0]setcolor {eofill}fp
grestore
0 sf
newpath
414.1 517.4 moveto
412.9 507.9 lineto
410.6 501.6 lineto
407.4 498.8 lineto
404.6 488.4 lineto
401.7 478.4 lineto
392.8 480.1 lineto
394.1 489.8 lineto
392.9 500.9 lineto
396.8 517.5 lineto
414.1 517.4 lineto
closepath
gsave
[0 0 0 0]setcolor {fill}fp
grestore
gsave
1.1 setlinewidth 0 setlinecap 0 setlinejoin 3.863693 setmiterlimit [0 0 0 1]setcolor {stroke}fp
grestore
0 sf
newpath
416.9 479.5 moveto
420.2 476 lineto
418.4 471.4 lineto
420.7 461.1 lineto
422 460.5 lineto
425.9 462.1 lineto
425.1 464.2 lineto
427.9 459.3 lineto
419 456.6 lineto
417.1 455.7 lineto
418.3 458.8 lineto
413.8 459.3 lineto
411 464.3 lineto
397.4 465.8 lineto
390.8 469.2 lineto
409.8 477.6 lineto
416.9 479.5 lineto
closepath
gsave
[0 0 0 0]setcolor {eofill}fp
grestore
0 sf
newpath
448.7 550.4 moveto
452.9 541 lineto
453.7 522.4 lineto
454.4 520.2 lineto
457.1 515.2 lineto
457.2 511.4 lineto
458.6 510.7 lineto
459.9 510 lineto
460.1 506.3 lineto
461.3 505.7 lineto
457.6 503.9 lineto
454.6 500 lineto
453.2 500.8 lineto
448.9 497.6 lineto
448.7 501.3 lineto
444.3 498 lineto
443.2 495 lineto
442.4 497.2 lineto
443.6 500.2 lineto
441.1 501.6 lineto
439.8 498.6 lineto
439.4 493.4 lineto
434.3 492.4 lineto
433 493 lineto
432.4 491.5 lineto
430.4 494.4 lineto
421.9 480.5 lineto
419.8 487.1 lineto
422.4 518.5 lineto
427.3 523.3 lineto
435.4 544.6 lineto
442.4 550 lineto
442.5 546.3 lineto
445.6 546.5 lineto
447.6 547.3 lineto
447.6 547.3 lineto
448.1 548.9 lineto
448.7 550.4 lineto
closepath
gsave
[0 0 0 0]setcolor {eofill}fp
grestore
0 sf
newpath
449.1 549.3 moveto
453.4 539.9 lineto
454 521.3 lineto
454.8 519.1 lineto
457.5 514.1 lineto
457.7 510.2 lineto
459 509.5 lineto
460.3 508.9 lineto
460.5 505.2 lineto
461.7 504.6 lineto
458 502.9 lineto
454.9 498.9 lineto
453.6 499.6 lineto
449.3 496.5 lineto
449.1 500.2 lineto
444.7 497 lineto
443.5 493.9 lineto
442.8 496.1 lineto
443.9 499.1 lineto
441.4 500.5 lineto
440.3 497.5 lineto
439.7 492.3 lineto
434.6 491.3 lineto
433.3 491.9 lineto
432.7 490.5 lineto
430.7 493.3 lineto
420.3 480.3 lineto
420.1 486 lineto
420.4 517.5 lineto
427.6 522.2 lineto
435.8 543.4 lineto
442.7 548.9 lineto
442.9 545.2 lineto
446 545.4 lineto
447.9 546.2 lineto
447.9 546.2 lineto
448.5 547.8 lineto
449.1 549.3 lineto
closepath
gsave
[0 0 0 0]setcolor {fill}fp
grestore
gsave
1.1 setlinewidth 0 setlinecap 0 setlinejoin 3.863693 setmiterlimit [0 0 0 1]setcolor {stroke}fp
grestore
0 sf
newpath
417.2 478.4 moveto
420.5 474.9 lineto
418.8 470.3 lineto
421.1 460 lineto
422.4 459.4 lineto
426.2 461 lineto
425.5 463.1 lineto
428.2 458.1 lineto
419.3 455.5 lineto
417.4 454.7 lineto
418.6 457.7 lineto
412.9 457.6 lineto
410 463.6 lineto
404.9 462.8 lineto
397.8 464.8 lineto
391.3 468.2 lineto
392.8 480.1 lineto
410.1 476.6 lineto
417.2 478.4 lineto
closepath
gsave
[0 0 0 0]setcolor {fill}fp
grestore
gsave
1.1 setlinewidth 0 setlinecap 0 setlinejoin 3.863693 setmiterlimit [0 0 0 1]setcolor {stroke}fp
grestore
0 sf
newpath
409.7 465 moveto
413.9 455.6 lineto
410.7 455.4 lineto
409.5 456 lineto
403.7 453.6 lineto
404.6 464 lineto
409.7 465 lineto
closepath
gsave
[0 0 0 0]setcolor {eofill}fp
grestore
0 sf
newpath
410.1 463.9 moveto
414.3 454.5 lineto
411 454.3 lineto
409.7 454.9 lineto
404.1 452.5 lineto
404.9 462.9 lineto
410.1 463.9 lineto
closepath
gsave
[0 0 0 0]setcolor {fill}fp
grestore
gsave
1.1 setlinewidth 0 setlinecap 0 setlinejoin 3.863693 setmiterlimit [0 0 0 1]setcolor {stroke}fp
grestore
0 sf
newpath
405 462.4 moveto
404 451.9 lineto
402.7 452.6 lineto
395.7 450.7 lineto
388.1 451.1 lineto
389.2 454.2 lineto
391.2 467.6 lineto
405 462.4 lineto
closepath
gsave
[0 0 0 0]setcolor {fill}fp
grestore
gsave
1.1 setlinewidth 0 setlinecap 0 setlinejoin 3.863693 setmiterlimit [0 0 0 1]setcolor {stroke}fp
grestore
0 sf
newpath
418.2 517.3 moveto
420.5 517.4 lineto
420.3 476.4 lineto
416.3 478.5 lineto
409.1 477.2 lineto
401.8 479.1 lineto
404.9 491.3 lineto
406.6 495.6 lineto
408.2 499.9 lineto
410.1 500.7 lineto
411.8 505 lineto
414.3 515.7 lineto
414.3 515.7 lineto
414.9 517.1 lineto
418.2 517.3 lineto
closepath
gsave
[0 0 0 0]setcolor {fill}fp
grestore
gsave
1.1 setlinewidth 0 setlinecap 0 setlinejoin 3.863693 setmiterlimit [0 0 0 1]setcolor {stroke}fp
grestore
0 sf
newpath
176 410 moveto
176 464.7 220.6 509.2 275.3 509.2 curveto
330 509.2 374.5 464.7 374.5 410 curveto
374.5 355.3 330 310.7 275.3 310.7 curveto
220.6 310.7 176 355.3 176 410 curveto
closepath
gsave
[0 0 0 0]setcolor {fill}fp
grestore
gsave
2.2 setlinewidth 0 setlinecap 0 setlinejoin 3.863693 setmiterlimit [0 0 0 1]setcolor {stroke}fp
grestore
0 sf
newpath
238.9 497.1 moveto
265.4 488.3 lineto
267.6 490.5 lineto
276.4 488.3 lineto
278.6 488.3 lineto
272 481.7 lineto
276.4 477.3 lineto
278.6 477.3 lineto
280.8 475.1 lineto
285.2 475.1 lineto
289.6 470.6 lineto
289.6 479.5 lineto
287.4 481.7 lineto
287.4 486.1 lineto
289.6 486.1 lineto
298.4 481.7 lineto
298.4 483.9 lineto
307.3 477.3 lineto
311.7 475.1 lineto
307.3 468.4 lineto
309.5 466.2 lineto
311.7 464 lineto
309.5 461.8 lineto
307.3 464 lineto
302.9 459.6 lineto
302.9 457.4 lineto
300.6 455.2 lineto
298.4 444.2 lineto
294 439.8 lineto
294 437.6 lineto
296.2 430.9 lineto
294 430.9 lineto
291.8 435.4 lineto
287.4 435.4 lineto
280.8 435.4 lineto
280.8 433.2 lineto
272 433.2 lineto
269.8 422.1 lineto
274.2 415.5 lineto
280.8 415.5 lineto
283 419.9 lineto
287.4 419.9 lineto
285.2 411.1 lineto
291.8 411.1 lineto
294 408.9 lineto
294 404.5 lineto
294 400.1 lineto
296.2 400.1 lineto
302.9 400.1 lineto
305.1 400.1 lineto
307.3 404.5 lineto
313.9 406.7 lineto
313.9 400.1 lineto
316.1 406.7 lineto
318.3 404.5 lineto
329.3 404.5 lineto
335.9 400.1 lineto
340.3 400.1 lineto
342.6 397.9 lineto
347 391.2 lineto
358 389 lineto
358 380.2 lineto
347 358.2 lineto
338.1 351.5 lineto
329.3 338.3 lineto
322.7 336.1 lineto
311.7 329.5 lineto
296.2 316.3 lineto
294 318.5 lineto
296.2 320.7 lineto
311.7 344.9 lineto
311.7 356 lineto
305.1 360.4 lineto
298.4 371.4 lineto
298.4 373.6 lineto
300.6 384.6 lineto
305.1 389 lineto
305.1 395.7 lineto
300.6 400.1 lineto
298.4 397.9 lineto
296.2 397.9 lineto
289.6 402.3 lineto
287.4 404.5 lineto
287.4 406.7 lineto
283 406.7 lineto
274.2 411.1 lineto
269.8 411.1 lineto
256.5 417.7 lineto
256.5 424.3 lineto
252.1 426.5 lineto
243.3 439.8 lineto
243.3 437.6 lineto
247.7 426.5 lineto
249.9 424.3 lineto
245.5 426.5 lineto
236.7 444.2 lineto
234.5 446.4 lineto
234.5 450.8 lineto
234.5 455.2 lineto
238.9 468.4 lineto
241.1 468.4 lineto
238.9 470.6 lineto
236.7 472.9 lineto
236.7 481.7 lineto
234.5 486.1 lineto
227.9 488.3 lineto
225.7 483.9 lineto
221.2 481.7 lineto
223.5 486.1 lineto
225.7 490.5 lineto
230.1 490.5 lineto
232.3 494.9 lineto
234.5 494.9 lineto
236.7 497.1 lineto
238.9 497.1 lineto
238.9 497.1 lineto
gsave
[0 0 0 0.4]setcolor {eofill}fp
grestore
0 sf
newpath
240 496 moveto
266.5 487.2 lineto
268.7 489.4 lineto
277.5 487.2 lineto
279.7 487.2 lineto
273.1 480.6 lineto
277.5 476.2 lineto
279.7 476.2 lineto
281.9 474 lineto
286.3 474 lineto
290.7 469.5 lineto
290.7 478.4 lineto
288.5 480.6 lineto
288.5 485 lineto
290.7 485 lineto
299.5 480.6 lineto
299.5 482.8 lineto
308.4 476.2 lineto
312.8 474 lineto
308.4 467.3 lineto
310.6 465.1 lineto
312.8 462.9 lineto
310.6 460.7 lineto
308.4 462.9 lineto
304 458.5 lineto
304 456.3 lineto
301.7 454.1 lineto
299.5 443.1 lineto
295.1 438.7 lineto
295.1 436.5 lineto
297.3 429.8 lineto
295.1 429.8 lineto
292.9 434.3 lineto
288.5 434.3 lineto
281.9 434.3 lineto
281.9 432 lineto
273.1 432 lineto
270.9 421 lineto
275.3 414.4 lineto
281.9 414.4 lineto
284.1 418.8 lineto
288.5 418.8 lineto
286.3 410 lineto
292.9 410 lineto
295.1 407.8 lineto
295.1 403.4 lineto
295.1 399 lineto
297.3 399 lineto
304 399 lineto
306.2 399 lineto
308.4 403.4 lineto
315 405.6 lineto
315 399 lineto
317.2 405.6 lineto
319.4 403.4 lineto
330.4 403.4 lineto
337 399 lineto
341.4 399 lineto
343.7 396.8 lineto
348.1 390.1 lineto
359.1 387.9 lineto
359.1 379.1 lineto
348.1 357.1 lineto
339.2 350.4 lineto
330.4 337.2 lineto
323.8 335 lineto
312.8 328.4 lineto
297.3 315.2 lineto
295.1 317.4 lineto
297.3 319.6 lineto
312.8 343.8 lineto
312.8 354.9 lineto
306.2 359.3 lineto
299.5 370.3 lineto
299.5 372.5 lineto
301.7 383.5 lineto
306.2 387.9 lineto
306.2 394.6 lineto
301.7 399 lineto
299.5 396.8 lineto
297.3 396.8 lineto
290.7 401.2 lineto
288.5 403.4 lineto
288.5 405.6 lineto
284.1 405.6 lineto
275.3 410 lineto
270.9 410 lineto
257.6 416.6 lineto
257.6 423.2 lineto
253.2 425.4 lineto
244.4 438.7 lineto
244.4 436.5 lineto
248.8 425.4 lineto
251 423.2 lineto
246.6 425.4 lineto
237.8 443.1 lineto
235.6 445.3 lineto
235.6 449.7 lineto
235.6 454.1 lineto
240 467.3 lineto
242.2 467.3 lineto
240 469.5 lineto
237.8 471.7 lineto
237.8 480.6 lineto
235.6 485 lineto
229 487.2 lineto
226.8 482.8 lineto
222.3 480.6 lineto
224.6 485 lineto
226.8 489.4 lineto
231.2 489.4 lineto
233.4 493.8 lineto
235.6 493.8 lineto
237.8 496 lineto
240 496 lineto
240 496 lineto
gsave
2.2 setlinewidth 0 setlinecap 0 setlinejoin 3.863693 setmiterlimit [0 0 0 1]setcolor {stroke}fp
grestore
0 sf
newpath
281.4 503.3 moveto
283.6 503.3 lineto
305.7 494.5 lineto
310.1 485.7 lineto
307.9 485.7 lineto
285.8 496.7 lineto
281.4 496.7 lineto
281.4 498.9 lineto
279.2 498.9 lineto
281.4 501.1 lineto
281.4 503.3 lineto
281.4 503.3 lineto
281.4 503.3 lineto
closepath
gsave
[0 0 0 0.4]setcolor {fill}fp
grestore
gsave
2.2 setlinewidth 0 setlinecap 0 setlinejoin 3.863693 setmiterlimit [0 0 0 1]setcolor {stroke}fp
grestore
vmr
grestore
vmr
grestore
vmr
grestore
vmr
end % FreeHandDict
%%EndDocument: _
%%EndDocument
SPE
%%BeginCustomColor: 0_BLACK
0 SC 5400 8681 XY F151(Ms.)S 249 x(Sharon)S 167 x(Dean)S 5400 X 598 y
(Conservation)S 167 x(Department)S 5400 X 597 y(New)S 166 x(England)S
166 x(Aquarium)S 5400 X 598 y(Central)S 166 x(Wharf)S 5400 X 598 y(Boston,)S
166 x(MA)S 166 x(021)S -28 x(10)S 5400 12566 XY(Sharon:)S 5400 X 897 y
(Below)S 182 x(is)S 182 x(the)S 183 x(text)S 182 x(of)S 183 x(the)S
183 x(report)S 182 x(Joe)S 183 x(Gobbini)S 182 x(\211led)S 183 x(on)S
183 x(the)S 183 x(Stellwagen)S 182 x(Bank)S 183 x(dive)S 183 x(of)S
5400 X 598 y(August)S 166 x(14,)S 167 x(1991:)S 6446 15854 XY F152(I)S
166 x(haven')S -19 x(t)S 167 x(sent)S 167 x(you)S 166 x(any)S 167 x
(news)S 166 x(of)S 166 x(the)S 167 x([Stellwagen])S 167 x(dive)S 166 x
(because)S 167 x(I)S 165 x(was)S 166 x(too)S 167 x(dispirited.)S 6446 17050 XY
(The)S 179 x(trip)S 179 x(was)S 177 x(excellent)S 2 x(,)S 181 x(as)S
179 x(far)S 178 x(as)S 178 x(weather)S -8 x(,)S 182 x(water)S 178 x
(and)S 179 x(boat)S 179 x(were)S 178 x(concerne)S 2 x(d.)S 274 x(W)S
-37 x(e)S 6446 X 597 y(reached)S 181 x(all)S 178 x(our)S 180 x(objectives.)S
276 x(Saw)S 179 x(\211ve)S 179 x(locations,)S 184 x(three)S 180 x(in)S
180 x(the)S 180 x(middle)S 179 x(and)S 180 x(two)S 179 x(in)S 6446 X
598 y(the)S 168 x(south)S 169 x(of)S 167 x(the)S 169 x(bank.)S 252 x
(Unfortun)S 2 x(ately)S -27 x(,)S 168 x(what)S 167 x(we)S 168 x(found)S
168 x(there)S 169 x(is)S 167 x(a)S 167 x(horror)S 169 x(story)S -27 x
(.)S 253 x(The)S 6446 X 598 y(whole)S 178 x(bank)S 178 x(bottom)S 179 x
(is)S 178 x(lifeless,)S 181 x(stripped)S 179 x(of)S 178 x(living)S 178 x
(creature)S 2 x(s.)S 273 x(Every)S 178 x(half)S 178 x(mile)S 177 x(we)S
6446 X 598 y(saw)S 179 x(a)S 179 x(surviving)S 179 x(burrowing)S 180 x
(anemone,)S 184 x(a)S 179 x(sand)S 180 x(dollar)S -9 x(,)S 183 x(a)S
179 x(crab.)S 276 x(The)S 180 x(rest)S 180 x(is)S 179 x(gone.)S 6446 X
597 y(Nothing)S 176 x(but)S 175 x(empty)S 174 x(broken)S 175 x(shells)S
175 x(and)S 175 x(a)S 174 x(landscape)S 175 x(like)S 174 x(the)S 175 x
(surface)S 175 x(of)S 174 x(the)S 175 x(moon.)S 6446 X 598 y(Explanation:)S
250 x(they)S 167 x(have)S 166 x(been)S 167 x(DRAGG)S -2 x(ING)S 165 x
(the)S 167 x(bank)S 167 x(for)S 166 x(thirty)S 167 x(years)S 166 x(or)S
167 x(more.)S 6446 21832 XY(`)S -9 x(`Dragging')S -9 x(')S 173 x(means)S
174 x(draggin)S 2 x(g)S 173 x(a)S 174 x(net)S 174 x(with)S 173 x(a)S
173 x(chain)S 174 x(on)S 174 x(the)S 174 x(bottom)S 174 x(and)S 174 x
(metal)S 173 x(plates)S 6446 X 597 y(at)S 179 x(the)S 180 x(sides,)S
184 x(which)S 179 x(plows)S 179 x(every)S 179 x(creatur)S 2 x(e)S 179 x
(on)S 179 x(the)S 180 x(bottom)S 180 x(into)S 180 x(the)S 180 x(bag;)S
186 x(whatever)S 6446 X 598 y(by)S 185 x(miracle)S 186 x(survives)S
185 x(being)S 186 x(dragge)S 2 x(d)S 185 x(in,)S 191 x(gets)S 186 x
(crush)S 2 x(ed)S 185 x(by)S 186 x(the)S 186 x(weight)S 186 x(of)S 185 x
(the)S 186 x(full)S 6446 X 598 y(net)S 177 x(passing)S 176 x(on)S 176 x
(top)S 176 x(of)S 176 x(it.)S 269 x(W)S -37 x(e)S 176 x(saw)S 175 x
(one)S 177 x(of)S 175 x(those)S 177 x(murderou)S 2 x(s)S 175 x(dragg)S
2 x(ing)S 176 x(boats)S 176 x(go)S 177 x(by)S -28 x(,)S 6446 X 598 y
(and)S 186 x(there)S 186 x(were)S 185 x(two)S 186 x(more)S 185 x(at)S
185 x(anchor)S 187 x(in)S 185 x(Provincetown.)S 289 x(They)S 186 x(have)S
185 x(been)S 186 x(doing)S 6446 X 597 y(this)S 177 x(since)S 177 x(the)S
177 x(\211fties,)S 180 x(and)S 177 x(now)S 176 x(are)S 177 x(catching)S
178 x(almost)S 176 x(noth)S 2 x(ing,)S 180 x(of)S 176 x(course.)S 271 x
(But)S 176 x(this)S 6446 X 598 y(doesn')S -18 x(t)S 174 x(prevent)S
175 x(them)S 174 x(from)S 174 x(insisting.)S 266 x(Jim)S 174 x(Costa,)S
176 x(son)S 174 x(of)S 174 x(the)S 174 x(owner)S 174 x(of)S 174 x(the)S
175 x(P-town)S 6446 X 598 y(\211sh)S 174 x(market,)S 176 x(told)S 174 x
(me)S 174 x(there)S 174 x(was)S 173 x(still)S 174 x(life)S 173 x(on)S
174 x(the)S 174 x(bottom)S 174 x(ten)S 174 x(years)S 174 x(ago)S 174 x
(or)S 174 x(so.)S 264 x(Now)S 6446 X 598 y(there)S 179 x(is)S 178 x
(nothing)S 180 x(at)S 178 x(all.)S 273 x(Not)S 178 x(a)S 178 x(burrowing)S
179 x(worm,)S 180 x(not)S 179 x(a)S 178 x(live)S 177 x(scallop)S 178 x
(\(many)S 178 x(dead)S 6446 X 597 y(shells,)S 170 x(though)S 2 x(\),)S
168 x(not)S 169 x(a)S 168 x(mussel,)S 169 x(not)S 169 x(a)S 168 x(\212ounder)S
-7 x(,)S 169 x(NOTHING)S -2 x(.)S 169 x(It)S 168 x(makes)S 168 x(me)S
168 x(too)S 168 x(sick)S 168 x(to)S 6446 X 598 y(continu)S 2 x(e.)S
252 x(The)S 168 x(bank)S 168 x(is)S 167 x(beautifully)S 168 x(situated)S
169 x(and)S 168 x(could)S 168 x(support)S 169 x(abundant)S 168 x(life.)S
252 x(The)S 6446 X 598 y(bottom)S 167 x(is)S 166 x(\211ne,)S 167 x(compact)S
167 x(sand;)S 167 x(no)S 166 x(mud)S 167 x(nor)S 167 x(silt.)S 249 x
(A)S 166 x(few)S 166 x(areas)S 166 x(have)S 166 x(gravel.)S 6446 29602 XY
(According)S 183 x(to)S 181 x(the)S 183 x(U.S.)S 182 x(hydrog)S 2 x
(raphic)S 181 x(survey)S 182 x(there)S 183 x(also)S 181 x(is)S 182 x
(a)S 181 x(rocky)S 182 x(area,)S 185 x(but)S 182 x(we)S 6446 X 598 y
(didn')S -18 x(t)S 167 x(see)S 166 x(it,)S 167 x(since)S 167 x(it)S
166 x(is)S 166 x(170-200)S 166 x(ft.)S 249 x(deep.)S
%%EndCustomColor
1 PP EP
%%PageTrailer
%%PageFonts: NewCenturySchlbk-Roman
%%+ NewCenturySchlbk-Italic
%%PageCustomColors: 0_BLACK
%
%%Page: 2 2
%%BeginPageSetup
%%EndPageSetup
%%PageFonts: (atend)
%%PageCustomColors: (atend)
1000 BP PaperHeight PaperWidth PM 0 0 XY
%%BeginCustomColor: 0_BLACK
0 SC 23772 2106 XY F155(Page)S 166 x(2)S 6446 3972 XY F152(My)S 181 x
(own)S 181 x(two)S 181 x(dives)S 181 x(were)S 181 x(at)S 181 x(104)S
181 x(ft)S 181 x(and)S 182 x(94)S 181 x(ft.)S 280 x(The)S 181 x(water)S
181 x(on)S 182 x(top)S 181 x(is)S 181 x(quite)S 182 x(warm,)S 6446 X
597 y(but)S 182 x(there)S 182 x(is)S 181 x(a)S 180 x(thermoclin)S 2 x
(e)S 181 x(at)S 181 x(30-40)S 180 x(ft)S 181 x(and)S 182 x(another)S
182 x(around)S 182 x(70)S 181 x(ft.)S 279 x(The)S 182 x(current)S 6446 X
598 y(was)S 182 x(middling;)S 191 x(each)S 183 x(dive)S 182 x(covered)S
183 x(a)S 182 x(half)S 182 x(or)S 182 x(three)S 183 x(quarter)S 184 x
(mile.)S 281 x(The)S 183 x(bottom)S 183 x(is)S 6446 X 598 y(apparently)S
173 x(\212at,)S 176 x(but)S 173 x(when)S 173 x(you)S 173 x(cover)S 173 x
(a)S 173 x(distance)S 174 x(you)S 173 x(realize)S 172 x(it)S 173 x(is)S
173 x(sloping,)S 175 x(because)S 6446 X 598 y(your)S 179 x(depth)S 179 x
(changes.)S 274 x(The)S 179 x(southern)S 180 x(and)S 178 x(western)S
179 x(borders)S 179 x(of)S 177 x(the)S 179 x(bank,)S 182 x(facing)S
178 x(P-)S 6446 X 597 y(town)S 172 x(and)S 172 x(Boston,)S 175 x(are)S
172 x(very)S 171 x(abrupt,)S 175 x(with)S 171 x(almost)S 172 x(vertical)S
172 x(walls)S 171 x(going)S 173 x(from)S 172 x(100)S 172 x(to)S 6446 X
598 y(160)S 169 x(ft,)S 170 x(and)S 170 x(then)S 170 x(steep)S 170 x
(slopes)S 170 x(going)S 170 x(further)S 170 x(down.)S 256 x(The)S 170 x
(current)S 171 x(turns)S 170 x(down)S 170 x(at)S 169 x(the)S 6446 X
598 y(walls,)S 165 x(following)S 166 x(the)S 166 x(shape)S 165 x(of)S
166 x(the)S 166 x(ground)S 2 x(,)S 165 x(so)S 166 x(it)S 165 x(is)S
166 x(not)S 166 x(healthy)S 166 x(to)S 165 x(be)S 166 x(carried)S 166 x
(close)S 166 x(to)S 6446 X 598 y(a)S 171 x(border)S -8 x(.)S 259 x(Our)S
171 x(\211rst)S 172 x(dive)S 171 x(pair)S 170 x(\(Mason)S 172 x(and)S
171 x(Dave)S 170 x(T)S -36 x(assinari\))S 171 x(was)S 170 x(drifting)S
172 x(too)S 172 x(close)S 6446 X 597 y(to)S 170 x(the)S 171 x(western)S
171 x(wall)S 169 x(for)S 170 x(our)S 170 x(comfort,)S 172 x(but)S 171 x
(they)S 170 x(\211nishe)S 2 x(d)S 170 x(their)S 171 x(air)S 169 x(and)S
171 x(surfaced)S 171 x(just)S 6446 X 598 y(two)S 166 x(hundr)S 2 x(ed)S
166 x(yards)S 167 x(before)S 166 x(gett)S 2 x(ing)S 166 x(ther)S 2 x
(e.)S 6446 11145 XY(W)S -37 x(e)S 168 x(saw)S 167 x(no)S 167 x(whales.)S
252 x(Only)S 167 x(a)S 167 x(dolphin.)S 253 x(I'm)S 166 x(sure)S 168 x
(the)S 169 x(place)S 167 x(was)S 167 x(beautiful)S 168 x(thirty)S 168 x
(years)S 6446 X 597 y(ago,)S 172 x(but)S 170 x(now)S 170 x(it)S 170 x
(is)S 170 x(a)S 170 x(painful)S 170 x(sight.)S 258 x(It)S 170 x(ought)S
172 x(to)S 170 x(be)S 170 x(forbidden)S 171 x(to)S 170 x(\211sh)S 171 x
(there,)S 172 x(and)S 171 x(the)S 6446 X 598 y(area)S 174 x(ought)S
175 x(to)S 174 x(be)S 174 x(planted)S 175 x(with)S 174 x(arti\211cial)S
174 x(reefs)S 174 x(and)S 174 x(seeded)S 175 x(with)S 174 x(creatur)S
2 x(es)S 174 x(\(clams,)S 6446 X 598 y(mussels,)S 175 x(worms\).)S 261 x
(If)S 171 x(this)S 173 x(was)S 172 x(Florida,)S 174 x(that)S 173 x(is)S
172 x(probably)S 172 x(what)S 172 x(would)S 172 x(happen,)S 175 x(but)S
6446 X 598 y(this)S 174 x(is)S 174 x(Massachuset)S 2 x(ts!)S 264 x(The)S
174 x(jobs)S 174 x(of)S 173 x(a)S 174 x(few)S 173 x(hundre)S 2 x(ds)S
174 x(people,)S 175 x(especially)S 174 x(if)S 173 x(they)S 175 x(are)S
6446 X 597 y(\211shermen)S 2 x(,)S 179 x(count)S 177 x(more)S 176 x
(than)S 177 x(200)S 176 x(square)S 177 x(miles)S 175 x(of)S 176 x(sea)S
177 x(bottom.)S 270 x(So,)S 179 x(no)S 176 x(hope.)S 270 x(It)S 176 x
(is)S 6446 X 598 y(dead)S 182 x(and)S 182 x(dead)S 182 x(will)S 180 x
(it)S 181 x(remain.)S 280 x(There)S 182 x(is)S 182 x(no)S 181 x(sense)S
182 x(making)S 182 x(it)S 181 x(into)S 182 x(a)S 181 x(sanctuary)S -26 x
(,)S 6446 X 598 y(since)S 171 x(there)S 171 x(is)S 171 x(nothing)S 172 x
(alive)S 169 x(to)S 171 x(save.)S 257 x(Dumping)S 171 x(thousand)S 2 x
(s)S 170 x(of)S 170 x(tons)S 171 x(of)S 170 x(dirt)S 171 x(from)S 170 x
(the)S 6446 X 598 y(Boston)S 179 x(excavations)S 179 x(or)S 179 x(building)S
179 x(drill)S 179 x(platforms)S 179 x(there)S 179 x(could)S 180 x(not)S
179 x(make)S 178 x(the)S 179 x(bank)S 6446 X 598 y(any)S 166 x(deader)S
168 x(than)S 167 x(it)S 166 x(is)S 166 x(now)S -18 x(.)S 6446 17720 XY
(Sorry)S 167 x(I)S 166 x(don')S -18 x(t)S 166 x(have)S 166 x(better)S
167 x(news)S 166 x(than)S 167 x(this.)S 6446 18916 XY(Joe)S 5400 20609 XY
F151(For)S 189 x(a)S 189 x(somewhat)S 188 x(less)S 188 x(impassioned)S
188 x(appraisal,)S 194 x(I)S 189 x(spoke)S 189 x(to)S 188 x(Dr)S -37 x
(.)S 295 x(Lawrence)S 190 x(Cahoon,)S 5400 X 598 y(an)S 188 x(oceanogr)S
2 x(apher)S 188 x(out)S 188 x(of)S 188 x(North)S 188 x(Carolina)S 188 x
(who)S 188 x(performed)S 188 x(a)S 188 x(study)S 188 x(of)S 187 x(the)S
189 x(benthic)S 5400 X 598 y(microalgae)S 182 x(populations)S 182 x
(of)S 182 x(Stellwagen)S 182 x(Bank)S 182 x(earlier)S 182 x(this)S 182 x
(summer)S -37 x(.)S 281 x(He)S 182 x(spent)S 182 x(eight)S 5400 X 597 y
(days)S 175 x(on)S 175 x(Stellwagen)S 174 x(Bank)S 175 x(exploring)S
176 x(three)S 175 x(different)S 175 x(sites,)S 176 x(two)S 174 x(at)S
175 x(the)S 175 x(south)S 174 x(end)S 175 x(and)S 5400 X 598 y(one)S
167 x(at)S 166 x(the)S 167 x(north)S 168 x(end,)S 167 x(operating)S
167 x(off)S 167 x(a)S 166 x(University)S 168 x(of)S 166 x(Connecticut)S
168 x(oceanographic)S 168 x(vessel.)S 5400 X 598 y(The)S 167 x(nature)S
166 x(of)S 166 x(his)S 166 x(work)S 167 x(required)S 166 x(that)S 166 x
(he)S 167 x(dive.)S 5400 X 897 y(His)S 170 x(descriptions)S 170 x(of)S
170 x(the)S 170 x(sites)S 169 x(he)S 171 x(worked)S 171 x(included)S
170 x(the)S 171 x(words)S 169 x(`)S -9 x(`desolate,')S -10 x(')S 171 x
(`)S -9 x(`barren,')S -9 x(')S 171 x(and)S 5400 X 597 y(`)S -9 x(`empty)S
-56 x(,')S -9 x(')S 166 x(and)S 166 x(he)S 167 x(corroborated)S 166 x
(Joe)S 166 x(Gobbini')S -19 x(s)S 166 x(observations.)S 5400 X 897 y
(Dr)S -37 x(.)S 276 x(Cahoon)S 180 x(also)S 179 x(noted)S 180 x(that)S
179 x(Stellwagen)S 180 x(Bank)S 179 x(had)S 180 x(some)S 179 x(of)S
179 x(the)S 180 x(highest)S 180 x(microalgal)S 5400 X 598 y(productivity)S
167 x(that)S 166 x(he)S 166 x(had)S 167 x(ever)S 166 x(seen.)S 5400 X
896 y(This)S 173 x(implies)S 172 x(that)S 173 x(the)S 173 x(center)S
173 x(of)S 173 x(the)S 173 x(ecoweb,)S 175 x(the)S 173 x(foundation)S
174 x(of)S 173 x(the)S 173 x(food)S 173 x(pyramid,)S 175 x(the)S 5400 X
598 y(\211rst)S 173 x(link)S 174 x(in)S 174 x(the)S 173 x(food)S 174 x
(chain,)S 176 x(or)S 174 x(whatever)S 173 x(you)S 175 x(want)S 173 x
(to)S 173 x(call)S 173 x(it,)S 176 x(is)S 173 x(in)S 173 x(\211ne)S
174 x(shape.)S 264 x(There)S 5400 X 598 y(is)S 176 x(simply)S 176 x
(nothing)S 177 x(else)S 176 x(living)S 178 x(on)S 177 x(the)S 176 x
(bank)S 177 x(in)S 177 x(large)S 176 x(enoug)S 2 x(h)S 176 x(numbers)S
177 x(to)S 176 x(constitute)S 176 x(a)S 5400 X 598 y(healthy)S 177 x
(ecosystem.)S 269 x(Dr)S -37 x(.)S 269 x(Cahoon)S 177 x(did)S 176 x
(mention)S 176 x(that)S 176 x(at)S 176 x(one)S 176 x(of)S 176 x(his)S
176 x(sites,)S 178 x(there)S 176 x(was)S 175 x(an)S 5400 X 597 y(extremely)S
183 x(healthy)S 183 x(population)S 182 x(of)S 182 x(sand)S 182 x(dollars,)S
186 x(which)S 183 x(effectively)S 182 x(puts)S 182 x(a)S 182 x(lid)S
182 x(on)S 182 x(the)S 5400 X 598 y(usefulness)S 166 x(of)S 166 x(the)S
166 x(creatures)S 167 x(on)S 166 x(the)S 166 x(bottom)S 166 x(of)S 166 x
(the)S 166 x(food)S 166 x(pyramid,)S 167 x(in)S 166 x(his)S 166 x(estimation.)S
5400 X 897 y(I)S 191 x(have)S 191 x(the)S 191 x(loran)S 192 x(coordinates)S
191 x(for)S 190 x(all)S 191 x(of)S 191 x(the)S 191 x(sites)S 190 x(visited)S
190 x(by)S 192 x(Dr)S -38 x(.)S 300 x(Cahoon)S 191 x(as)S 190 x(well)S
5400 X 598 y(as)S 190 x(of)S 190 x(those)S 190 x(visited)S 190 x(by)S
190 x(the)S 191 x(divers)S 190 x(on)S 191 x(August)S 190 x(14.)S 298 x
(I)S 190 x(am)S 190 x(con\211dent)S 191 x(that)S 190 x(I)S 190 x(can)S
190 x(\211nd)S 5400 X 597 y(quali\211ed,)S 156 x(interested)S 152 x
(divers)S 152 x(to)S 152 x(participate)S 152 x(if)S 152 x(the)S 152 x
(NEA)S 152 x(would)S 152 x(like)S 152 x(to)S 152 x(explore)S 153 x(Stellwagen)S
5400 X 598 y(Bank)S 187 x(further)S -36 x(.)S 291 x(I)S 187 x(also)S
187 x(know)S 187 x(a)S 187 x(commercial)S 187 x(operator)S 187 x(with)S
186 x(an)S 187 x(ROV)S 186 x(who)S 187 x(works)S 187 x(out)S
%%EndCustomColor
2 PP EP
%%PageTrailer
%%PageFonts: NewCenturySchlbk-Roman
%%+ NewCenturySchlbk-Italic
%%PageCustomColors: 0_BLACK
%
%%Page: 3 3
%%BeginPageSetup
%%EndPageSetup
%%PageFonts: (atend)
%%PageCustomColors: (atend)
1000 BP PaperHeight PaperWidth PM 0 0 XY
%%BeginCustomColor: 0_BLACK
0 SC 23772 2106 XY F155(Page)S 166 x(3)S 5400 3969 XY F151(of)S 183 x
(Gloucester)S -37 x(.)S 283 x(He)S 183 x(would)S 183 x(be)S 183 x(glad)S
184 x(to)S 183 x(work)S 183 x(out)S 183 x(some)S 183 x(arrangement)S
184 x(for)S 183 x(the)S 183 x(detailed)S 5400 X 598 y(exploration)S
167 x(of)S 166 x(bank)S 166 x(with)S 166 x(the)S 166 x(Stellwagen)S
166 x(Bank)S 167 x(Coalition.)S 5400 X 897 y(A)S 169 x(number)S 170 x
(of)S 169 x(interesting)S 169 x(related)S 169 x(observations)S 169 x
(have)S 170 x(been)S 170 x(made)S 169 x(by)S 169 x(a)S 170 x(variety)S
169 x(of)S 170 x(people)S 5400 X 598 y(on)S 169 x(the)S 169 x(nature)S
170 x(of)S 168 x(the)S 169 x(Stellwagen)S 169 x(Bank,)S 170 x(the)S
169 x(industries)S 169 x(that)S 168 x(thrive)S 170 x(on)S 169 x(it,)S
170 x(and)S 169 x(the)S 168 x(local)S 5400 X 597 y(fauna.)S 250 x(I)S
166 x(would)S 166 x(be)S 166 x(happy)S 166 x(to)S 166 x(share)S 167 x
(those)S 165 x(with)S 166 x(you)S 167 x(another)S 167 x(time.)S 5400 X
897 y(I)S 176 x(hope)S 177 x(you)S 177 x(will)S 176 x(\211nd)S 177 x
(these)S 176 x(observations)S 176 x(from)S 177 x(divers)S 176 x(useful.)S
270 x(If)S 176 x(the)S 177 x(Divers')S 176 x(Environ-)S 5400 X 598 y
(mental)S 152 x(Survey)S 153 x(can)S 152 x(be)S 151 x(of)S 152 x(any)S
153 x(assis)S -2 x(tance)S 152 x(to)S 152 x(the)S 152 x(New)S 151 x
(England)S 152 x(Aquarium')S -18 x(s)S 151 x(conservation)S 5400 X 597 y
(efforts,)S 166 x(please)S 166 x(don')S -9 x(t)S 165 x(hesitate)S 166 x
(to)S 166 x(let)S 166 x(me)S 166 x(know)S 166 x(how)S -46 x(.)S 5400 10545 XY
(Sincerely)S -54 x(,)S 5400 14131 XY(John)S 167 x(Hicks-Courant)S 5400 X
598 y(Divers')S 165 x(Environmen)S 2 x(tal)S 165 x(Survey)S 5400 15925 XY
(August)S 166 x(26,)S 167 x(1991)S 5400 17718 XY(cc:)S 250 x(Paul)S
166 x(DiNatali,)S 166 x(MWRA)S
%%EndCustomColor
3 PP EP
%%PageTrailer
%%PageFonts: NewCenturySchlbk-Roman
%%PageCustomColors: 0_BLACK
%
%%Trailer
EndDVC$PSDoc
/DEC$EDMS_MAKE_FILM where % if we are making film...
{ pop % ..clean up the stack
-54 dup translate % ..undo the film translation
} if
%%Pages: 3
%%DocumentFonts: NewCenturySchlbk-Roman
%%+ NewCenturySchlbk-Italic
%%DocumentCustomColors: 0_BLACK
|
| 50.2 | My first 2 cents | LEVERS::SWEET | | Tue Aug 27 1991 17:59 | 16 |
| Note I have not yet read the contents of .1. I would comment
that I suspect not all noters have access to a postscript printer
so either a text posting or abstract of .1 might be appropriate.
As someone who fequents the bank almost weekly from may-oct I think
making the bank off limits to fishing is not a good idea (I will
try to diplomatic). The whales are doing just fine out there now,
plenty of them. From a fisheries management point of view, ground
fish need to be managed. Size limits need to be upped and more restrictions
put on draggers (maybe eliminate them!) and gill nets should not be
left unattended. Closing the bank will not solve fisherie management,
just move the problem.
I will reserve other comments until reading .1.
Bruce
|
| 50.3 | Dumpsite nearby... | FURTHR::HANNAN | Beyond description... | Tue Aug 27 1991 19:55 | 9 |
| On the news last week there was a segment about a rather large
chemical/nuclear dumpsite adjacent to?/in?/near? Stellwagon
bank. Loads of barrels were shown from an underwater camera.
Makes me wonder about the quality of the fish we eat from there.
Anyone hear any other news on this ?
Ken
|
| 50.4 | Well................ | LEVERS::SWEET | | Wed Aug 28 1991 11:31 | 19 |
| Well John, having now read .1 I have some real mixed feelings. I
cannot argue that dragging is bad news and ruins the bottom. I can
however attest to the fact that there are plenty of whales, cod, blues
and tuna that frequent the bank. In order to draw these high end
of the food chain that bait fish (sand eels, herring) must also be
on the bank. These bait fish must feed upon something (perhaps
the abundant microalgeal). To argue the whole bank should be shut
down and is lifeless is absurd. Oh by the way, there are more dogfish
per square foot on the bank now than any reasonable diver would
want to be in the water with.
I suggest a better tone of your letter might be to recommend an
end to dragging not to close the bank. Gill nets and other fixed
gear as well as rod and reel do not destry the bottom.
I also question why dives were not conduncted on either the nw or
sw corners? Too many whales, bluefish, dogfish and tuna?
Bruce
|
| 50.5 | Uh........... | GEMVAX::HICKSCOURANT | | Wed Aug 28 1991 12:17 | 30 |
| Bruce----
For the record, the DES is *not* recommending that the bank be closed
to fishing. That is the opinion of the diver who wrote the account of
the dive. I just passed that account on verbatim.
What *I* would like to see done is the installation of five
one-square-mile artificial reefs/protected areas along the bank's
north/south axis. Dragging has removed the reef-like quality of the
bank's glacial morraine, and artificial reefs seem like the best
substitute. Five one-square-mile areas would not be too large to
seriously inhibit fishing of any kind, and they *would*, if spaced
properly, provide a decent examples of the distinctive development
patters of different depths/topologies.
The reason the divers did not go to the north end was that it was too
far from P-town to go in search of an area without whales. (It is
illegal to enter the water in the vicinity of whales or dolphins.) The
report from the oceanographer about the north end, I think, suggests
that the devastation is not limited to the middle and southern ends of
the bank.
That sand lances, microalgae, and whales are still there does not seem
to me an indication of anything but their presence. You can find a much
more varied, richer marine habitat in 100 feet of water right offshore.
I guess the point is that, much to the contrary of what federal and
local experts have been saying, Stellwagen Bank is one of the poorest
marine habitats in New England.
John H-C
|
| 50.6 | | WAHOO::LEVESQUE | Hungry mouths are waiting... | Wed Aug 28 1991 13:09 | 45 |
| Having fished Stellwagen a number of times, and having read reports from
those that fished Stellwagen years ago, I have concluded that the incessant
dragging has severely impacted Stellwagen's ecosystem. (No big surprise
there, we all now how devastating dragging can be.)
While I would not characterize Stellwagen as being completely lifeless, I
have a bleaker outlook on the bank than Bruce. Yes, there are some fish
attracted to the vicinity, but I don't believe the bank holds the sort of
resident populations that it should. Blues and tuna are migratory, and could
very easily be attracted to the bank not for what the bank itself holds,
but for the currents generated by the tides creating upwellings and such,
and what that does to suspended baitfish. Cod are much less migratory, and
there's only a very small fraction of the former populations (if one can use
old stories about catch rates as a metric.) I believe that both the size and
numbers are way, way down. And this is due to both overfishing of the target
species, destruction of the marine environment, and reduction of principle
food species.
I believe that for this trend to be stopped, significant and painful actions
must occur. I think that a 3 year outright moratorium on commercial fishing
for groundfish on the bank should be adopted (except rod and reel). I don't
think that dragging should ever be allowed again; it's simply much to
destructive to everything. If gillnets were to be ever allowed again, they'd
have to be less than a mile in length, continously tended, and have a minimum
mesh size of 8".
The outright stranglehold that commercial fishing has on the political control
of our marine resources is obscene; they continually pressure lawmakers
to ignore tomorrow and allow for increased profit today, all the while
ruining our collective resources for generations over money for a few.
Recreational fishermen number in the tens of millions; we have to exert our
political clout or else we will continue to lose the important political
battles over who gets to control what happens in the marine environment.
If you consider that the only commercially useful species of fish that is not
experiencing severe population downturns is striped bass (and that's only
because commercial taking of stripers is prohibited most everywhere along
the eastern seaboard), you may begin to understand the root of the problem.
I hate politics. It's so sleazy. Mixing politics with pleasure is an anethema
to me. I find it unfortunate that if we recreational fishermen do not begin
to take political action soon, fishing in the ocean will no longer be a viable
pastime...
The Doctah
|
| 50.7 | Anybody read the article? | GEMVAX::HICKSCOURANT | | Sun Sep 01 1991 23:15 | 9 |
| Anybody catch the article about the dive on Stellwagen Bank in today's
Globe?
Comments?
I found it darkly humorous that the only eyewitness account offered
gets characterized as having "no basis in reality."
John H-C
|
| 50.8 | | WAHOO::LEVESQUE | Hungry mouths are waiting... | Tue Sep 03 1991 11:52 | 9 |
| I read it.
I thought that the suggestions for solving the problem made some sense, but
they seemed insufficient.
It sounded like their explanation for why the bank seemed as it did made alot
of sense.
The Doctah
|
| 50.9 | Overfishing does make a kind sense, I guess | GEMVAX::HICKSCOURANT | | Tue Sep 03 1991 12:31 | 51 |
| Only problem I see with the suggestions made
[Diversification by consumers and fishermen from traditional cod,
haddock and flounder catches to underutilized species such as dogfish,
skate, squid and mackerel
Enforcement of a plan suggested by Rep. Gerry Studds (D-Mass.) to have
the government buy out numbers of fishermen willing to quit, and then
limit those who would be allowed to fish
Waiting for economics - the dwindling catches - to weed out the weakest
fishermen in the fleet.]
is that none of them allows the "richest marine environment in New
England" to recover.
Getting people to alter their tastes is, well, sort of like suggesting
that if we just got people to quit having sex, the human population
problem would go away. True, but not exactly a useful notion.
"Enforcing" a plan that requires the expenditure of funds nobody has
and the attention of a police force that does not exist is pure "pie
in the sky."
Waiting for economics is like waiting for Godot. Aside from that, it's
the strongest fishermen who do the most damage. The small operator
incapable of harvesting large enough catches to stay in business is the
guy doing the least amount of damage.
The "natural reefs in the form of enormous boulders" mentioned in the
article, by the way, are only partially natural. They are largely
composed of the boulders the draggers pulled up in their trawls as they
scraped the bottom. (Can't sell them, so might as well dump them
somewhere nobody fishes anyway.)
I also want to point out the fallacy of this sentence:
"Mirarchi pointed out few fish are found at this time of year in
shallow water where Gobbini's team dove."
In fact, almost anywhere else in Massachusetts Bay, 100 feet is where
the fish are this time of year. That's where you see them. That none
were seen in an area of heavy benthic microalgal production suggests
only one thing: methodical mechanical destruction.
I *did* like Mirarchi's comment that 5 one-square-mile artificial reefs
would be too small. Maybe he believes they should be larger? 8^)
John H-C
|
| 50.10 | We're not done yet | GEMVAX::JOHNHC | | Thu Sep 12 1991 13:04 | 27 |
| <<< SCUBA >>>
================================================================================
Note 858.68 Doing our share 68 of 68
GEMVAX::HICKSCOURANT 21 lines 12-SEP-1991 08:56
-< Following up on the Stellwagen Dive (II) >-
--------------------------------------------------------------------------------
Disappointed at the reception given the bad news about the Stellwagen
Bank, I've decided to up the ante.
Because the nay-sayers have chosen to outright disbelieve the divers'
eyewitness accounts of what they saw, and because more than one has
gone as far as to dismiss the account because the divers didn't have
the "foresight" to bring along a videographer, I have hired a private
contractor to peruse Stellwagen Bank with his ROV.
He will spend an entire day running the length of the bank from south
to north, in the end producing five separate tapes of five different
areas along the south/north axis.
Other activities are underway. These should uncover enough existing
data to make even a jaded mountaineer angry about what's been done to
aquatic habitats.
Stay tuned....
John H-C
|
| 50.11 | Historical Perspective (1) | GEMVAX::JOHNHC | | Mon Sep 16 1991 17:13 | 58 |
| Associated Press Mon 14-JUL-1986 10:22 Whale Exodus
Whale Movement Attributed To Depletion Of Food, Industry Worried
By CHRISTOPHER CALLAHAN
Associated Press Writer
BOSTON (AP) - Scientists suspect a depletion of a tiny, pencil-shaped
fish that whales eat by the ton triggered a mass exodus of the marine
mammals that threatens the area's multimillion-dollar whale-watching
industry.
Dozens of companies have profited in recent years by ferrying people to
Stellwagen Bank, a sandy shoal that runs from north of Cape Cod to
north of Cape Ann and accounts for most of the East Coast's
whale-watching excursions. But in May, sightings of humpbacks and
50-ton finbacks, which had been commonplace on nearly every outing,
became less frequent. Where one trip in past years sometimes produced
more than 150 whale sightings, boats recently have been returning with
only a couple of sightings and sometimes none.
Dr. Charles Oz "Stormy" Mayo, director of cetacean research at the
Center for Coastal Studies in Provincetown, said most of the whales,
which he estimated at less than 1,000, have moved to an area 40 to 60
miles east of Cape Cod near the western edge of George's Bank. "That's
really beyond the reach of the whale-watching boats," he said. "The
whale-watching captains will tell you there are plenty of whales
around," Mayo said. "I would take that with a grain of salt. ... The
concentrations have dropped drastically."
Marine biologists say a break in the food chain has caused the whale
exodus. Dr. Steven Murawski, a biologist and supervisor of fishery
research at the National Marine Fisheries Services in Woods Hole, said
the supply of sand launce, a pencil-shaped, 8-inch-long fish that has
been a staple of the humpbacks' and finbacks' diet, has been declining
since 1982. A humpback eats more than a ton of the slender fish daily,
he said.
Murawski said the sand launces' decline may have been caused by an
increase in other fish in the area. He said a similar movement took
place in the mid-1970s when the whales fed on herring in George's Bank.
Foreign fleets depleted the herring stock, forcing the whales to move
to Stellwagen and its sand launce.
"What's curious is that it all happened all of a sudden," instead of a
decline in population proportional to the gradual decrease of sand
launces, said Murawski.
Mayo said such factors as changes in currents and sea-surface
temperatures could have added to the rapid retreat. Mayo said he
believes the whales will eventually return. "If this area has been
suitable in the past, it will be suitable again," he said.
But he added the return could take anywhere from several weeks to
several years. And a long time without abundant whales near the shore
could spell trouble for the whale-watching industry. "If it gets much
worse it's going to get pretty desperate," Mayo said.
|
| 50.12 | Historical Perspective (2) | GEMVAX::JOHNHC | | Mon Sep 16 1991 17:14 | 76 |
| Associated Press Thu 14-AUG-1986 04:44 Sea Changes
Ocean Changes Bring Odd Whales, Sharks to Massachusetts Coast
By CAROLYN LUMSDEN
Associated Press Writer
BOSTON (AP) - A nearly extinct breed of whales has replaced the playful
humpback whales off the Massachusetts coast, and those who make a
living conducting whale-watch cruises say the phenomenon may ruin them.
Mysterious changes in the sea are also causing other forms of life to
give way to less familiar ones. "I did not gross as much in July with
three boats as I did with two the year before. It's damaged me many
thousands of dollars," said Al Avelar, who runs a $500,000-a-year
whale-watch business out of Provincetown.
For weeks, whale-watch boats laden with camera-toting tourists have
searched in vain for the 1,000 huge humpback whales that used to lounge
on Stellwagen Bank just 20 miles off the coast. What the boats have
found instead are right whales, a nearly extinct breed that usually
summers off New Jersey.
Tuna also are missing from their usual spots. Biologist Bill Jerome of
the National Marine Fisheries Service in Gloucester said about 120 tons
of tuna have been landed so far this summer, less than one-third of
last year's catch at this time. And spiny dogfish are eluding the few
Gloucester fishermen who make their livelihood off the sharks, said
Steven Murawski, an NMFS biologist in Woods Hole.
Meanwhile, giant fish called basking sharks recently were spotted as
close as 50 yards from Massachusetts' southern shores. Police closed
beaches in several towns over the weekend despite the assurances of
scientists that the sharks were harmless. "A 15-foot thing like that
would scare anybody," said Police Officer John Martin.
What's causing odd creatures to show up off the coast and familiar ones
to disappear are as-yet unexplained changes in the northeast Atlantic,
biologists say. One such inexplicable change is a sudden uniformity of
water surface temperatures that before this summer had fluctuated
radically, said Paul Sieswerda, curator of fisheries and mammals at the
New England Aquarium.
But the most obvious change has been a sudden scarcity of pencil-thin
animals called sand eels, the staple diet of many of the whales and
fish that have vanished from familiar places. "I've been in the sand
eel business 55 years and I've always seen plenty off Stellwagen," said
Malcolm Hudson, owner of Hudson's Outboarding Inc. of Newburyport.
"They're very scarce this year."
Douglas Beach, a whale expert with the NMFS in Gloucester, said New
Jersey fishermen have called him asking how long the whales will remain
off their coast so they may plan whale-watch trips. "It's impossible to
say," he replies.
Tiny plankton and shrimplike animals called krill have moved into the
vacuum left by the sand eels, bringing in their wake such rarely seen
visitors as sei whales, usually found off Iceland, and leaving
whale-watch operators and fishermen worried.
A resurgence in mackerel catches off the Gulf of Maine is leading
scientists to suspect that herring - a mackerel favorite - may be on
the rise there too, said Beach. "The ecosystem change has dramatic
implications," said Murawski. "If it gets much worse it's going to be
pretty desperate."
About the only predator not much affected by the dearth of sand eels
may be the giant Atlantic bluefin tuna. Scientists say the poor tuna
catch may be due more to bad weather than to a change of diet, since
the fish aren't picky about their food.
But tuna also are unpredictable, old-timers say. Hudson, who led the
likes of sportsmen Kurt Gowdy and Ted Williams on tuna-fishing
expeditions in the 1950s, said the fish inexplicably vanished for three
years in the 1960s. "It was a pretty dry run then, but it's a very
strange thing this year," he said.
|
| 50.13 | Current Perspective | GEMVAX::JOHNHC | | Mon Sep 16 1991 17:18 | 12 |
| When I called around to various "concerned" organizations and told them
of the divers' reports on what they'd seen on Stellwagen Bank, two of
them (Center of Coastal Studies, New England Aquarium) told me it
couldn't be as bad as all that because there were still whales at the
northern end of the bank. "At least two dozen of them," was what the
NEA representative said.
(In all fairness to the NEA rep., I ought to add that she has only been
watching the bank for a year and a half.)
John H-C
|
| 50.14 | Warm weather? | LEVERS::SWEET | | Mon Sep 16 1991 18:56 | 15 |
| John,
What about the very hot spring we had and the amount of wind from the
s/w? The water temp on stellewagon was 72 degrees in late june. This is
warmer than I have ever seen it. The s/w flow would cause the much of
the current drivem marine life to be way off to the north and east.
There is a big tuna bite going on north of cape anne and
almost zero on stellwagon right now. The bait is all up that way.
I suspect it more weather related than anything, once things cool
off in the next couple of weeks things will return more
to the normal stage.
Bruce
|
| 50.15 | Just weather... | SHUTKI::JOYCE | | Tue Sep 17 1991 10:43 | 14 |
| I agree with Bruce, its mostly weather related, hurricane Bob. But
everyone is looking for an answer. There are no answers. On the whales not
being on the bank, I think it shows how smart the are. It's a zoo
with all the boats chasing them every time they come up for air.
So now they're hanging out on the West edge of Georges not bothered
by anyone.
On the Tuna, it's the same thing. A large pod of fish finally found
all the bait that is always in the Gulf of Maine, bounded to the
south by Cape Ann. We used to fish tuna there back in the early
1970's. But the last 10 or so years the Gulf was almost dry, all the
tuna would show up in Cape Cod Bay at this time of year.
Steve
|
| 50.16 | Just a thought | VICKI::DODIER | Food for thought makes me hungry | Tue Sep 17 1991 11:56 | 4 |
| Could the dramatic increase in stripers have anything to do with
the dramatic decrease in sand eels ?
RAYJ
|
| 50.17 | | WAHOO::LEVESQUE | Guess I'll set a course and go... | Tue Sep 17 1991 12:54 | 3 |
| I don't think the increase in stripers has been dramatic, but has been
steadily increasing since the strict regulations went into effect. The
sand eel scarcity is a mystery, but is most likely a cyclical thing.
|
| 50.18 | ... | GEMVAX::JOHNHC | | Tue Sep 17 1991 15:42 | 6 |
| re: last few
Just wanted to remind you all that the articles are from 1986.
John H-C
|
| 50.19 | More recent news | GEMVAX::JOHNHC | | Tue Sep 17 1991 17:33 | 8 |
| Did anybody out there happen to see the story about dumping near
Stellwagen Bank in today's Boston Globe? Front page.
The guy with ROV hired by the DES to film the bank is going out
tomorrow or the next day. Anybody interested in what the tapes contain
when I get them?
John H-C
|
| 50.20 | when will we learn ? | FURTHR::HANNAN | Beyond description... | Tue Sep 17 1991 18:10 | 21 |
| re: <<< Note 50.19 by GEMVAX::JOHNHC >>>
> Did anybody out there happen to see the story about dumping near
> Stellwagen Bank in today's Boston Globe? Front page.
No but thanks for the info. I'll pick up the globe on the way home tonight...
I had heard about the dumping a few weeks ago on the news (see note 50.3). The
pictures I saw were of barrels, lot of barrels filled with all kinds of nasty
stuff. :-(
The news also interviewed a guy who used to make the dumping runs on his boat.
Dumping was legal not long ago. He was asked if he felt bad about what he did,
he said no, not at all. He also added that he could care less what he was
dumping. Didn't matter at all. Unreal!
> Anybody interested in what the tapes contain when I get them?
Yes.
Ken
|
| 50.21 | Not sure where we're talking about... | ELMAGO::MWOOD | | Tue Sep 17 1991 18:37 | 14 |
| Can someone set me straight on what the different banks are. When I
fish out of Hampton, and head east, so that I pass a mile or so south
of the Isle's of the Shoals, and then keep going another 4 or 5 miles,
I come to an area with lot's of dips and rises in the bottom structure.
The bottom comes up to around 180 ft in spots. What is this called ?
If I keep going from that point another 15 miles or so on a
east/southeast heading you pass over some very deep water, and then
at a point about 30 miles total from Hampton Harbor the bottom comes
back up to around 200 ft, and I think I've found spots that get into
the 150's. Is this area Jeffries ? Where is Stellwagon in regards to
all this ? I don't have loran, and the charts don't seem to be good
at marking these..
Marty
|
| 50.22 | I think you mean.... | LEVERS::SWEET | | Tue Sep 17 1991 19:00 | 6 |
| I think the 180 area you are talking about is the outside flag and
further out is Jeffries ledge. Stellwagon run from 15 miles ESE of
gloucester down to 6 mile N of P-town. 26 miles long, 7 miles wide at
the south end.
Bruce
|
| 50.23 | Smack in the middle | GEMVAX::JOHNHC | | Tue Sep 17 1991 19:03 | 10 |
| re: .21
Think of Stellwagen Bank as a miniature, standalone Cape Cod that lies
between Cape Cod and Cape Ann in MA waters. It used to be an island
that made MA Bay a large lagoon. Then the glaciers melted.
I believe the bank you mentioned is indeed Jeffries Bank (sp?), but
I'm sure somebody else frequenting this file knows better than I.
John H-C
|
| 50.24 | Not there | ROBOAT::HEBERT | Captain Bligh | Tue Sep 17 1991 19:53 | 42 |
| Re .21
Marty, where are you? If you're close to ZKO, drop by my office. I have a
chart of that area on my wall, and I can point out the area you're
talking about.
Basically, if you leave Hampton Harbor and head east, I don't think
you're approaching the Isles any closer than two to three miles. Heading
in that direction, you'd have to go a LONG way out to hit Jeffreys Ledge;
like, better than thirty miles to hit the northern edge of the ledge.
Stellwagen is well south of Cape Ann.
The bottom rises you're talking about sound more like the ridges on
Bigelow Bight and then Old Scantum.
#
* #
* #
* #
* . #
* .. Isles #
* # JEFFREY'S
Hamptonxx o # LEDGE
* o Old Scantum #
* o etc. #
* o #
* #
* #
* ##
* ##
* * * ##
Cape Ann *
* ^^^^^^^^^
Shortest distance from
land to Jeffrey's is off
Cape Ann
NOT FOR NAVIGATION
{Just thought I should warn you B^) }
Art
|
| 50.25 | Now I get it... | ELMAGO::MWOOD | | Wed Sep 18 1991 15:03 | 12 |
| Thanks for the map Art. I'd stop by your office, but it's kind of
a cruise from New Mexico :-) I'm out here on a temporary assignment....
I should be back just in time for spring fishing next april :-)
Once I launched out of the Merrimack, and headed on a more south
easterly course. It seemed like it only took half the time to get out
to the area where the bottom comes up...After looking at your map it
all makes sense! When I pass close to the Isle of shoals the trip
takes for ever, and several times I've been a little concerned about
the amount of fuel left on the return trip. I plan on bringing a
spare 5 gallon gas can in the future.
Marty
|
| 50.26 | | WAHOO::LEVESQUE | | Mon Nov 18 1991 17:42 | 3 |
| According to Saltwater Sportsman, Stellwagen is one step closer to being named
a Marine Sanctuary. One wonders what this will mean for recreational
fishermen.
|
| 50.27 | Rumor or Fact? | GEMVAX::JOHNHC | | Fri Jul 17 1992 18:15 | 11 |
| I just heard a rumor that there are a couple stray gill and/or drift
nets floating near the surface over Stellwagen Bank. I heard some of
them were marked with buoys. This doesn't make sense to me. If they are
marked with buoys at both ends, they're probably working nets, no?
Can one of you guys who frequents the north end of the Bank confirm
this rumor?
Thanks.
John H-C
|
| 50.28 | Looked the same to me | LEVERS::SWEET | | Mon Jul 20 1992 16:18 | 5 |
|
I was at the nw corner yesterday. Did not see anything unusual.
Just your basic set of whale watchers and a large tuna fleet.
Bruce
|
| 50.29 | Rookie questions | USCTR1::SPERRY | | Mon Jul 20 1992 17:28 | 18 |
| I have just begun (twice) venturing as far out as Stellwagon.
Yesterday I started due east from Plymouth, cruised the width of the
bank there alternating trolling with bottom drift fishing. I hooked or
snagged a basking shark on my lighter rig. It dove and snapped the
line with its tail I figure. I drifted pretty far north and spotted a
couple dozen boats to the north on the west end of the bank on my way
in. They were due east of Boston Harbor. Caught a mess of dogfish on
squid drifting through the fleet and went home with an empty cooler.
Any lore on which parts of the bank are most productive? Does that
change with the season? I'd love to get the kids hooked up with some
real fish.
My navigation instruments consist of charts, tach, fish finder
(graphics to 180 feet, depth to 300), compass and watch, so I can't
be too exact in my targeting.
I do notice surface disturbances from time to time when I'm headed
somewhere, ripples from something leaving the surface quickly, but I
never find anything when I investigate. Nothing on the meter, trolling
or bottom fishing. Any pointers for a rookie?
|
| 50.30 | No simple answers.... | LEVERS::SWEET | | Mon Jul 20 1992 19:10 | 14 |
| First you should really buy a loran. If the visability goes down and
you have wandered all over the place out that far you will have a tougj
time dead reckoning back in. Secondly the loran will allow you
to start saving "good" spots and let you get back to them qucikly.
The two most productive parts of stellwagon are the nw and sw
corners. If you were near the nw corner over the weekend
the fleet you saw was chunking for tuna. When the tuna are
around the blues will not be in any great numbers. Cod are
on the bank in the spring and fall.
Your best bet for this time of year would be trolling for blues around
the H bouy, gurnet or minots all down towards plymouth.
Bruce
|
| 50.34 | Stellwagon a sanctuary?? | MSBOS::HURLEY | | Fri Oct 09 1992 12:35 | 4 |
|
I just heard from a co-worker that Stellwagon is going to become
a sanctuary. He heard it on the redio this morning. Does anybody know
the time and details of this??
|
| 50.35 | What kind of details are you looking for? | GEMVAX::JOHNHC | | Fri Oct 09 1992 12:56 | 1 |
|
|
| 50.31 | It's now a "sanctuary" | GEMVAX::JOHNHC | | Fri Oct 09 1992 13:28 | 14 |
| Well, Stellwagen Bank became a "National Marine Sanctuary" last week,
or at least that's when the bill was signed.
It was confirmed in a telephone call this morning to a CZM contact. I
have a call in to the guy at CZM who is the Stellwagen Bank guru. My
last conversation with him was not too fruitful, but I hope to get more
info out of him this time.
I don't know how large the "sanctuary" area is, nor what limits were
put on its exploitation in the final bill.
I'll follow up as soon as I have more information.
John H-C
|
| 50.32 | Synopsis | GEMVAX::JOHNHC | | Fri Oct 09 1992 17:44 | 18 |
| . The Bill passed the senate late Wednesday but still needs
to be signed by President Bush to be put into law.
. The move will protect the bank from mining or development
and provide new legal powers to help protect it from
pollution sources outside the designated boundary.
. The move would not affect the commercial or recreational
fishing in the area.
. The boundary does not include the two offshore dumping grounds,
the "Foul Area" where nuclear waste has been dumped and the
Massachusetts Bay Disposal Site, which would become the final
home for contaminated harbor sediments.
. The Mass Bay Disposal Site is adjacent to the Foul Area less which
is less than a mile from the new sanctuary.
|
| 50.33 | | MSBOS::HURLEY | | Fri Oct 09 1992 17:53 | 3 |
| Gee thats to bad. I was wishing the entire bank would be off limits to
everything for years to give the fish a break but I guess it was just
wishful thinking..
|
| 50.36 | Hecho | GEMVAX::JOHNHC | | Fri Nov 06 1992 16:55 | 19 |
| From the _Boston Globe_ of Friday, November 6, 1992
New England News Briefs
Stellwagen area made a sanctuary
An 842-squre-mile area around Stellwagen Bank, the rich
whale-watching and fishing ground off the tip of Cape Cod,
has been designated a national marine sanctuary. President
Bush signed a bill authorizing the designation Wednesday.
Rep. Gerry Studds (D-Mass.) moved earlier this year to create
the new sanctuary through legislation, after the proposal
bogged down because of a dispute within the Bush administration
about whether sand and gravel mining should be banned within
sanctuary borders. The law Bush signed bans mining or development
within the sanctuary and offers incresaed protection from
pollution originating beyond its borders.
[reproduced without permission]
|