summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlpsv/psv_view.ps
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlpsv/psv_view.ps')
-rw-r--r--Master/tlpkg/tlpsv/psv_view.ps181
1 files changed, 117 insertions, 64 deletions
diff --git a/Master/tlpkg/tlpsv/psv_view.ps b/Master/tlpkg/tlpsv/psv_view.ps
index 575d7064e91..0bbeabe0040 100644
--- a/Master/tlpkg/tlpsv/psv_view.ps
+++ b/Master/tlpkg/tlpsv/psv_view.ps
@@ -31,11 +31,14 @@
%% Version: 5.04, 17.04.2008 (optional command parameters, and `layer' drawing corrected)
%% Version: 5.05, 26.04.2008 (post-Pingwinaria release, 'layer' and printing bug corrected)
%% Version: 5.06, 28.04.2008 (BachoTeX release)
+%% Version: 5.07, 05.05.2008 (post BachoTeX release)
+%% Version: 5.08, 14.05.2008 (full-screen mode)
+%% Version: 5.09, 02.07.2008 (LaTeX/HTML help added -- more formatting needed)
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
userdict /view_dict 300 dict put
view_dict begin
-/PS_VIEW (PSView 5.06) def
+/PS_VIEW (PSView 5.09) def
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
userdict begin
@@ -141,7 +144,7 @@ end % statusdict
psv_unit_name (dd) eq {(DD_SET_psv_unit) check_SET_psv_unit} if
psv_unit_name (bp) eq {(BP_SET_psv_unit) check_SET_psv_unit} if
} if
- psv_unit_name psv_unit meas
+ measure
} def
/ht_rel_conv {window_ht grid_ht div magnification div psv_unit div mul} def
@@ -242,6 +245,12 @@ DELAYBIND {.bindnow /bind /.bind load .bind def} if
} if
} def
+/bb_set_media {
+ bb_wd multi_x mul multi_dist psv_unit mul multi_x 1 sub mul add
+ bb_ht multi_y mul multi_dist psv_unit mul multi_y 1 sub mul add
+ dup 0 gt 2 index 0 gt and {(BB) set_media run_file} {pop pop} ifelse
+} def
+
/screen_res_corr {
screen_H page_H 72.0 div resolution_H mul div
screen_W page_W 72.0 div resolution_W mul div minimum dup
@@ -595,28 +604,6 @@ DELAYBIND {.bindnow /bind /.bind load .bind def} if
% psv_sh_no_unit
} def
-/transl {
- transl_dict exch 2 copy known
- {get} {exch pop} ifelse
-} def
-/do_transl{
- flush (!PSV_LOCALE: T {) print
- print
- (}\n) print flush
-} def
-/prepare_locale {
- /transl_dict 20 dict def
- (Page: ) do_transl
- (Pages: ) do_transl
- (Angle: ) do_transl
- (Flip: ) do_transl
- (Zoom: ) do_transl
- (None) do_transl
- (Horizontal) do_transl
- (Vertical) do_transl
- (Both) do_transl
-} def
-
/preview_toggle {
/ciecolor ciecolor not def
/alphabits ciecolor {4}{1} ifelse def
@@ -1059,6 +1046,10 @@ cross2 init_cross
run_file
} def
+/measure {
+ psv_unit_name psv_unit meas
+} def
+
/meas {view_dict begin
/new_psv_unit XD
/new_psv_unit_name XD
@@ -1138,8 +1129,8 @@ cross2 init_cross
/sh_meas {z_conv orig_y add exch orig_x add exch
cross1 /visible get {
cross2 /visible get {pop pop pop pop hide_crosses}
- {cross2 freeze_cross pop pop psv_unit_name psv_unit meas} ifelse
- } {cross1 freeze_cross pop pop psv_unit_name psv_unit meas} ifelse
+ {cross2 freeze_cross pop pop measure} ifelse
+ } {cross1 freeze_cross pop pop measure} ifelse
} def
@@ -1212,6 +1203,14 @@ cross2 init_cross
} if
} def
+/fullscreen {
+dup /infullscreen exch def {
+ (!PSV_SIZE: FT\n) print flush
+}{
+ (!PSV_SIZE: FF\n) print flush
+} ifelse
+} def
+
/start_refresh {
prepare_state /refresh_state XD
INPUT /REFRESH get_PS_file
@@ -2116,12 +2115,11 @@ cross2 init_cross
/wr /write_restart LD
-/ori_leave {
+/leave {
/CAUSE /LEAVE def
flush
(!PSV_MESSAGEBOX: 3 {LEAVE: save restart?}\n) print flush
} def
-/leave /ori_leave LD
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@@ -2140,11 +2138,34 @@ cross2 init_cross
(!PSV_CONFIG: G {PSV_Parameters}{language}{}\n) print flush
} def
+/transl {
+ transl_dict exch 2 copy known
+ {get} {exch pop} ifelse
+} def
+/do_transl{
+ flush (!PSV_LOCALE: T {) print
+ print
+ (}\n) print flush
+} def
+
+/prepare_locale {
+ /transl_dict 20 dict def
+ (Page: ) do_transl
+ (Pages: ) do_transl
+ (Angle: ) do_transl
+ (Flip: ) do_transl
+ (Zoom: ) do_transl
+ (None) do_transl
+ (Horizontal) do_transl
+ (Vertical) do_transl
+ (Both) do_transl
+ (!PSV_LOCALE: I\n) print flush
+} def
+
/show_console {flush
(!PSV_CONSOLE: S\n) print flush
} def
-
/make_menu {flush
(&File) (FILE) (MAIN) append_submenu
(&Open\tCtrl+O) (OPEN) (FILE) append_item
@@ -2155,7 +2176,8 @@ cross2 init_cross
(&Load\tF3) (LOAD_RESTART) (RESTART) append_item
(Load &from) (LOAD_FROM_RESTART) (RESTART) append_item
(&Print) (PRINT) (FILE) append_item
- (&Quit\tEsc, F4) (QUIT) (FILE) append_item
+ (&Leave\tEsc) (LEAVE) (FILE) append_item
+ (&Quit (and save restart)\tF4) (QUIT) (FILE) append_item
(&Edit) (EDIT) (MAIN) append_submenu
(&Undo\tDel, NumpadAsterisk) (UNDO) (EDIT) append_item
(&Redo\tIns, Shift+NumpadAsterisk) (REDO) (EDIT) append_item
@@ -2192,10 +2214,11 @@ cross2 init_cross
(&Center\tCtrl+F11) (CENTER) (TRANSFORM) append_item
(Reset &zoom && position\tF11) (RESET_ZOOM_&_POSITION) (TRANSFORM) append_item
(Reset &transformations\tShift+F11) (RESET_TRANSFORMATIONS) (TRANSFORM) append_item
+ (Full &screen\tShift+F5) (FULL_SCREEN) (TRANSFORM) append_item
(&Pages) (PAGES) (MAIN) append_submenu
(&Next\tPgDn) (NEXT_PAGE) (PAGES) append_item
(&Previous\tPgUp) (PREVIOUS_PAGE) (PAGES) append_item
- (&Specified) (SPECIFIED_PAGE) (PAGES) append_item
+ (&Goto to) (SPECIFIED_PAGE) (PAGES) append_item
(&First\tHome) (FIRST_PAGE) (PAGES) append_item
(&Last\tEnd) (LAST_PAGE) (PAGES) append_item
(&Grids && Frames) (GRIDS) (MAIN) append_submenu
@@ -2257,8 +2280,9 @@ cross2 init_cross
(Set &language) (CONF_LANGUAGE) (CONFIGURATION) append_item
(&Show PS console) (SHOW_CONSOLE) (OPTIONS) append_item
(&Help) (HELP) (MAIN) append_submenu
- (&Usage\tF1) (USAGE) (HELP) append_item
- (&About) (ABOUT) (HELP) append_item
+ (&Help\tF1) (HHELP) (HELP) append_item
+% (&Manual) (USAGE) (HELP) append_item
+ (&About\tCtrl+F1) (ABOUT) (HELP) append_item
(&Close help) (CLOSE_HELP) (HELP) append_item (CLOSE_HELP) gray_item
% (&Show console) (SHOW_CONSOLE) (HELP) append_item
show_menu
@@ -2471,8 +2495,9 @@ cross2 init_cross
llanguage () eq {(0) print} if
llanguage (de) eq {(1) print} if
llanguage (en) eq {(2) print} if
- llanguage (pl) eq {(3) print} if
- (|System default|Deutsch \(de\)|English \(en\)|Polish \(pl\)|) print
+ llanguage (nl) eq {(3) print} if
+ llanguage (pl) eq {(4) print} if
+ (|System default|German \(de\)|English \(en\)|Dutch \(nl\)|Polish \(pl\)|) print
(}{LANGUAGELIST}{40,5,65,20}\n) print flush
(!PSV_DLGBOX: T {C}{ALPHATEXT}{2,25,136,10}{Language will be changed after PS_View reset}\n) print flush
(!PSV_DLGBOX: B {O}{OK}{25,35,35,12}{OK}\n) print flush
@@ -2565,6 +2590,10 @@ cross2 init_cross
/menu_shortcut {MENUCOMMANDS exch get def} def
+/start_help {
+ (!PSV_HELP: S {}\n) print flush
+} def
+
/open_help {/help_file_name XD
prepare_state /after_help_state XD
/main_file INPUT def
@@ -2582,14 +2611,17 @@ cross2 init_cross
/to_center true def
/picture_on false def
% /magnification 2.15246 def
- /magnification 1 def
+ /magnification .9 def
/curr_page 1 def
/v_tape false def
- KEYCOMMANDS begin NORM begin /F1 {} def end end
- (USAGE) gray_item
+ KEYCOMMANDS begin NORM begin
+ /ESC_ori /ESC LD /F1_ori /F1 LD
+ /ESC {close_help} def
+ /F1 {close_help} def
+ end end
+% (USAGE) gray_item
(ABOUT) gray_item
(CLOSE_HELP) normal_item
- /leave /close_help LD
/INPUT help_file_name findlibfile {closefile} if def
421 298 (BB) set_media
0 0 421 298 center_rect
@@ -2598,11 +2630,10 @@ cross2 init_cross
/close_help {
after_help_state restore_state
- (USAGE) normal_item
+% (USAGE) normal_item
(ABOUT) normal_item
(CLOSE_HELP) gray_item
- KEYCOMMANDS begin NORM begin /F1 /USAGE menu_shortcut end end
- /leave /ori_leave LD
+ KEYCOMMANDS begin NORM begin /ESC /ESC_ori LD /F1 /F1_ori LD end end
/INPUT main_file def
/to_center main_to_center def
/picture_on main_picture_on def
@@ -2617,9 +2648,11 @@ cross2 init_cross
/initials {
%% Default settings
/restart_name (!ps_rest.ps) def % name of the default restart file
-/usage_file (psv_usage.pdf) def % name of the product info file
+/help_file_en (psv_help_en.htb) def % name of the help file
+/help_file_pl (psv_help_pl.htb) def % name of the help file
+/usage_file_en (psv_usage.pdf) def % name of the manual file
/usage_file_pl (psv_usage_pl.pdf) def
-/about_file (psv_about.ps) def % name of the product info file
+/about_file_en (psv_about.ps) def % name of the product info file
/about_file_pl (psv_about_pl.ps) def
/zoom_factor 2 sqrt def % MAG for the `m' command
/shift_factor 5 def % SHIFT coeff. for the `mul_?' commands
@@ -2687,6 +2720,7 @@ lc % set local window-oriented coordinates
/background true def
currentpagedevice /UseCIEColor get /ciecolor XD
currentpagedevice /GraphicsAlphaBits get /alphabits XD
+ alphabits 1 eq {/alphabits 2 def} if % requested by users
/in_print false def
/multi_dist 0 def
/multi_cycle false def
@@ -2702,6 +2736,7 @@ userdict begin /psv_HS 0 def /psv_VS 0 def end
/menu_on false def
/inoverlay false def
/drawoverlay false def
+/infullscreen false def
psv_init_print
%% Command line parameters
systemdict /LOCAL known {/LOCAL LOCAL def} {/LOCAL (null) def} ifelse
@@ -2733,7 +2768,8 @@ MENUCOMMANDS begin
/LOAD_RESTART {rr} def
/LOAD_FROM_RESTART {/CAUSE /LOAD_FROM_RESTART def LOAD_FROM_RESTART_dialog} def
/PRINT {pr} def
- /QUIT {leave} def
+ /LEAVE {quit} def
+ /QUIT {q} def
/UNDO {un} def
/REDO {re} def
/UNDO_REDO_TOGGLE {undo_redo} def
@@ -2764,6 +2800,7 @@ MENUCOMMANDS begin
/CENTER {cbb} def
/RESET_ZOOM_&_POSITION {w} def
/RESET_TRANSFORMATIONS {i} def
+ /FULL_SCREEN {infullscreen not fullscreen} def
/NEXT_PAGE {n} def
/PREVIOUS_PAGE {p} def
/SPECIFIED_PAGE {SPECIFIED_PAGE_dlgbox} def
@@ -2776,7 +2813,7 @@ MENUCOMMANDS begin
/FINE_GRID {ggg} def
/WINDOW_GRID {g} def
/CLEAR_GRID {cgg} def
- /MEASURE {psv_unit_name psv_unit meas} def
+ /MEASURE {measure} def
/CM_SET_psv_unit {1 CM 10 (cm) (mm) set_psv_unit} def
/MM_SET_psv_unit {1 MM 0.1 (mm) (cm) set_psv_unit} def
/IN_SET_psv_unit {1 IN 12 (in) (1/12_in) set_psv_unit} def
@@ -2787,17 +2824,14 @@ MENUCOMMANDS begin
/A4L_SET_MEDIA { 842 595 (A4 Landscape) set_media run_file} def
/A3_SET_MEDIA { 842 1190 (A3) set_media run_file} def
/A3L_SET_MEDIA {1190 842 (A3 Landscape) set_media run_file} def
- /BB_SET_MEDIA {
- bb_wd multi_x mul multi_dist psv_unit mul multi_x 1 sub mul add
- bb_ht multi_y mul multi_dist psv_unit mul multi_y 1 sub mul add
- dup 0 gt 2 index 0 gt and {(BB) set_media run_file} {pop pop} ifelse
- } def
+ /BB_SET_MEDIA {bb_set_media} def
/ONE_PAGE {1 1 multipage} def
/TWO_ONE_PAGE {2 1 multipage} def
/TWO_ONE_PAGE_REVERSE {2 1 [2 1] multipage} def
/ONE_TWO_PAGE {1 2 multipage} def
/ONE_TWO_PAGE_REVERSE {1 2 [2 1] multipage} def
/M_N_PAGE {M_N_PAGE_dlgbox} def
+ /VERTICAL_TAPE {save_state vertical_tape} def
/CYCLE_TOGGLE {/multi_cycle multi_cycle not def
multi_cycle {(&Cycle off) (CYCLE_TOGGLE) change_item}
{(&Cycle on) (CYCLE_TOGGLE) change_item} ifelse
@@ -2808,7 +2842,6 @@ MENUCOMMANDS begin
/MULTIPAGE_BUNDLE_END {spl} def
/MULTIPAGE_PERMUT {PERMUT_dlgbox} def
/MULTIPAGE_DIST {MULTIPAGE_DIST_dlgbox} def
- /VERTICAL_TAPE {save_state vertical_tape} def
/SET_ZOOM_FACTOR {SET_ZOOM_FACTOR_dlgbox} def
/SET_SHIFT_LENGTH {SET_SHIFT_LENGTH_dlgbox} def
/BACKGROUND_TOGGLE {/background background not def
@@ -2820,7 +2853,8 @@ MENUCOMMANDS begin
/ALPHABITS_TOGGLE {/alphabits alphabits 1 gt {1}{4} ifelse def
AlphaBits_set run_file} def
/SHOW_CONSOLE {} def
- /USAGE {usage_file open_help} def
+ /HHELP {start_help} def
+% /USAGE {usage_file open_help} def
/ABOUT {about_file open_help} def
/CLOSE_HELP {close_help} def
/SHOW_CONSOLE {show_console} def
@@ -2856,8 +2890,8 @@ KEYCOMMANDS begin
/LEFT_ARR /LEFT_KBD_MOVE menu_shortcut
/DOWN_ARR /DOWN_KBD_MOVE menu_shortcut
/UP_ARR /UP_KBD_MOVE menu_shortcut
- /ESC /QUIT menu_shortcut
- /F1 /USAGE menu_shortcut
+ /ESC {infullscreen {false fullscreen}{quit}ifelse} def
+ /F1 /HHELP menu_shortcut
/F2 /SAVE_RESTART menu_shortcut
/F3 /LOAD_RESTART menu_shortcut
/F4 /QUIT menu_shortcut
@@ -2887,6 +2921,7 @@ KEYCOMMANDS begin
/END /MULTIPAGE_BUNDLE_END menu_shortcut
/LESS /ZOOM_OUT menu_shortcut
/GREATER /ZOOM_IN menu_shortcut
+ /F5 /FULL_SCREEN menu_shortcut
/F11 /RESET_TRANSFORMATIONS menu_shortcut
/F12 /FIT_HT menu_shortcut
/MULTIPLY /REDO menu_shortcut
@@ -2902,11 +2937,13 @@ KEYCOMMANDS begin
/DOWN_ARR /DOWN_ALIGN menu_shortcut
/UP_ARR /UP_ALIGN menu_shortcut
/BEGIN /CENTER menu_shortcut
+ /L /FULL_SCREEN menu_shortcut
/M /MEASURE menu_shortcut
/O /OPEN menu_shortcut
/R /FILE_REFRESH menu_shortcut
/Z /UNDO_REDO_TOGGLE menu_shortcut
/TAB /ROTATE_ANTICLOCKWISE menu_shortcut
+ /F1 /ABOUT menu_shortcut
/F7 /CLEAR_GRID menu_shortcut
/F8 /CLEAR_GRID menu_shortcut
/F9 {preview_toggle} def
@@ -3116,9 +3153,12 @@ end % MOUSECOMMANDS
/REFRESH {pop pop start_refresh} def
-/LOCALE {1 eq {
+/LOCALE {dup 1 eq {pop
transl_dict 3 1 roll put
- }{pop pop} ifelse
+ }{
+ 0 eq {
+ exch pop set_locale
+ }{pop pop} ifelse } ifelse
} def
/INFO {pop /INFO_dict XD /INFO_string XD} def
@@ -3297,19 +3337,32 @@ end % MOUSECOMMANDS
} def
/LANGUAGELIST {
- dup (1000) eq {/llanguage () def} if
- dup (0100) eq {/llanguage (de) def} if
- dup (0010) eq {/llanguage (en) def} if
- (0001) eq {/llanguage (pl) def} if
+ dup (10000) eq {/llanguage () def} if
+ dup (01000) eq {/llanguage (de) def} if
+ dup (00100) eq {/llanguage (en) def} if
+ dup (00010) eq {/llanguage (nl) def} if
+ (00001) eq {/llanguage (pl) def} if
(!PSV_CONFIG: S {PSV_Parameters}{language}{) print
llanguage print (}\n) print flush
} def
/PSV_Parameters_language {
- pop /llanguage XD
- llanguage (pl) eq {
+ pop dup /llanguage XD set_locale
+} def
+/set_locale{
+ dup (pl) eq {
/about_file about_file_pl def
/usage_file usage_file_pl def
- } if
+ (!PSV_HELP: I {) print
+ help_file_pl print
+ (}\n) print flush
+ }{
+ /about_file about_file_en def
+ /usage_file usage_file_en def
+ (!PSV_HELP: I {) print
+ help_file_en print
+ (}\n) print flush
+ } ifelse
+ pop
} def
/CONFIG {