github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-12 00:42:56 +00:00
Code Issues Projects Releases Wiki Activity
Interlisp.medley/library/GRAPHZOOM.TEDIT
Larry Masinter 08852f7b55
Add TEDIT files for many Library packages (#1181) 
* WHERE-IS library doc

* Gather keyboard files, add VIRTUAL.TEDIT

* add UNIXCOMM.TEDIT

* rest of TEdit library files

* save table of contents index for reworking

* Don't move around VIRTUALKEYBOARDS files; will move in separate commit

* Add MATMULT from Envos/Medley
2023-07-07 11:25:17 -07:00

23 lines
5.6 KiB
Plaintext
Raw Permalink Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

1
Lisp Library Modules, Medley Release 1.0, GRAPHZOOM
1
Lisp Library Modules, Medley Release 1.0, GRAPHZOOM
GRAPHZOOM
1
GRAPHZOOM
1
GRAPHZOOM
6
GraphZoom(GRAPHZOOM NIL GraphZoom NIL NIL 125) allows you to work with graphs (from Grapher) at different scales.
Requirements
1
GRAPHER
Installation
1
Load GRAPHER.LCOM and GRAPHZOOM .LCOM from the library.
User Interface
1
The interface to GraphZoom is through the function SHOWZOOMGRAPH which is used instead of SHOWGRAPH. The resulting grapher window has the capability of being zoomed by using a menu that is attached to the top. To use, call SHOWZOOMGRAPH:
The window has a menu above it that contains the items LARGER and SMALLER. Selecting in the menu with the left button causes a small change in scale; selecting with the middle button causes a larger change in scale.
The graph zooms toward the center of the window.
Function
1
(SHOWZOOMGRAPH(SHOWZOOMGRAPH (function) NIL NIL NIL 125) GRAPH WINDOW LEFTBUTTONFN MIDDLEBUTTONFN
TOPJUSTIFYFLG ALLOWEDITFLG INITSCALE) [Function]
The arguments are the same as in the Grapher function SHOWGRAPH(SHOWGRAPH (function) NIL NIL NIL 125). INITSCALE is the initial scale at which the graph is shown. The default, 1.0, is the same as in SHOWGRAPH. Larger scales make the graph appear smaller.
Limitations
1
The zooming of text is driven from a list of font descriptors stored as the value of the variable DECREASING.FONT.LIST(DECREASING.FONT.% LIST (variable) NIL NIL NIL 125). The values on this list are Times Roman 72, 36, 30, Helvetica 24, 18, 14, 12, 10, 8, 5, 4, and 3. Graphs that have fonts other than Helvetica are printed in the closest Helvetica size. This is often smaller than the corresponding Gacha font.
[This page intentionally left blank]
(LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "") STARTINGPAGE# 125) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD RIGHT) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY HELVETICA OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (270 15 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGR) (54 27 558 36) NIL) (TEXT NIL NIL (54 54 504 702) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "")) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD LEFT) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY HELVETICA OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (54 15 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGV) (54 27 558 36) NIL) (HEADING NIL (HEADINGTYPE VERSOHEAD) (54 762 558 36) NIL) (TEXT NIL NIL (54 54 504 684) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "")) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD RIGHT) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY HELVETICA OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (270 15 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGR) (54 27 558 36) NIL) (HEADING NIL (HEADINGTYPE RECTOHEAD) (54 762 558 36) NIL) (TEXT NIL NIL (54 54 504 684) NIL)))))2HH<01><01>2HH<01>
<01>2HH<01><01>2ll<01><01>2H`<01>
<01>3<01><01>T3<01><01>T-T-<01><00><01>TF<01><01> PAGEHEADING VERSOHEADE<01><01> PAGEHEADINGFOOTINGVE<01><01> PAGEHEADINGFOOTINGRF<01><01> PAGEHEADING RECTOHEAD2<00><00><01><01>  HELVETICA
CLASSIC
TITAN
CLASSICCLASSIC
 HELVETICA HELVETICAMODERN
MODERNMODERN
MODERN  HRULE.GETFNMODERN
 4  HRULE.GETFNMODERN
 4

 HRULE.GETFNMODERN


 HRULE.GETFNMODERN

 HRULE.GETFNMODERN  %IM.INDEX.GETFNE
 HRULE.GETFNMODERN  
 HRULE.GETFNMODERN   HRULE.GETFNMODERN 4
 ~
7<00>0  HRULE.GETFNMODERN *IM.INDEX.GETFNMODERN
Q 6 &IM.INDEX.GETFNCLASSIC

A /  HRULE.GETFNMODERN b3IM.INDEX.GETFNCLASSIC
<00> %
<06>tz<74>
Reference in New Issue View Git Blame Copy Permalink