diff options
author | Staszek Wawrykiewicz <staw@gust.org.pl> | 2008-07-02 17:25:20 +0000 |
---|---|---|
committer | Staszek Wawrykiewicz <staw@gust.org.pl> | 2008-07-02 17:25:20 +0000 |
commit | b3f899f57f9937648bd6c556e383ee25baa6bca5 (patch) | |
tree | 4d263823c053395389d104607a7955e7ac7cbd20 /Master/tlpkg/tlpsv/psv_view.ps | |
parent | 8674ade88de57ab47f31f6bc4d6e698e1f23f69a (diff) |
new tlpsv ver5.09t
git-svn-id: svn://tug.org/texlive/trunk@9161 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlpsv/psv_view.ps')
-rw-r--r-- | Master/tlpkg/tlpsv/psv_view.ps | 181 |
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 { |