setpagedevice
} if
}
{ %!
%! DECimage_level1
%!
statusdict dup /setDECimage known exch /setDECimageparams known and
{ statusdict begin
0
%Punch1
1
%Punch2
1.5
%Sharpness
1
%Dotsize
setDECimageparams
true setDECimage
end
} if
} ifelse
2.
Create a text library.
LIB/CREATE/TEXT SYS$LIBRARY:DECIMAGE
3.
Insert DECIMAGE.TXT into the library.
LIB/REPLACE/TEXT SYS$LIBRARY:DECIMAGE DECIMAGE
4.
Determine an available form number.
SHOW QUEUE/FORM
Form name
Number
Description
---------
------
-----------
DCPS$DEFAULT (stock=DEFAULT)
1114
DCPS default
DEFAULT
0
System-defined default
5.
Pick a form number not already in use, for example, 1118.
6.
Define a form, using the name DECimage and the chosen number,
DEFINE/FORM DECIMAGE 1118 -
/STOCK=DEFAULT -
/WIDTH=80 -
/MARGIN=(BOTTOM=0) -
/SETUP=DECIMAGE -
/DESCRIPTION="DECIMAGE PICTURE ENHANCEMENT"
7.
Edit the file SYS$STARTUP:DCPS$STARTUP.COM.
Modify the line that defines the logical name DCPS_LIB to include
DECimage in the list of library files. For example:
DEFINE /SYSTEM /EXEC /NOLOG DCPS_LIB DCPS$DEVCTL, DECIMAGE
6–4 Enhancing Picture Quality
