obsolete many lispusers (#702)
* obsolete many lispusers * NSDISPLAYSIZES isn't obsolete
This commit is contained in:
Larry Masinter
GitHub
281
obsolete/lispusers/HGRAPH
Normal file
281
obsolete/lispusers/HGRAPH
Normal file
@@ -0,0 +1,281 @@
|
||||
(FILECREATED "24-Apr-87 19:08:21" {ERIS}<LISPUSERS>KOTO>HGRAPH.;2 12562
|
||||
|
||||
changes to: (FNS HARDCOPYWHOLEGRAPH)
|
||||
|
||||
previous date: "27-Jan-87 14:35:21" {PHYLUM}<LISPUSERS>KOTO>HGRAPH.;1)
|
||||
|
||||
|
||||
(* Copyright (c) 1987 by Xerox Corporation. All rights reserved.)
|
||||
|
||||
(PRETTYCOMPRINT HGRAPHCOMS)
|
||||
|
||||
(RPAQQ HGRAPHCOMS ((FNS CEILING HARDCOPYDISPLAYGRAPH HARDCOPYWHOLEGRAPH)
|
||||
(P (MOVD (QUOTE HARDCOPYGRAPH)
|
||||
(QUOTE OLDHARDCOPYGRAPH))
|
||||
(MOVD (QUOTE HARDCOPYWHOLEGRAPH)
|
||||
(QUOTE HARDCOPYGRAPH)))
|
||||
(* This is in order to fix the problem with borders on Interpress printers. I\t
|
||||
seems that you cannot bitblt anything thinner than 36 pixel onto an
|
||||
Interpress stream, why? Anyway, this fixes the problem by setting the border
|
||||
width to 36)))
|
||||
(DEFINEQ
|
||||
|
||||
(CEILING
|
||||
[LAMBDA (NUMBER)
|
||||
(COND
|
||||
((EQP (FIX NUMBER)
|
||||
NUMBER)
|
||||
NUMBER)
|
||||
(T (ADD1 (FIX NUMBER])
|
||||
|
||||
(HARDCOPYDISPLAYGRAPH
|
||||
[LAMBDA (GRAPH STREAM CLIP/REG TRANS) (* bbb "27-Jan-87 11:52")
|
||||
|
||||
(* Displays GRAPH with coordinates system translated to TRANS on STREAM. POS=NIL is interpreted as 0\,0.
|
||||
Draws links first then labels so that lattices don't have lines through the labels.)
|
||||
|
||||
(* This function is to be used together with
|
||||
HARDCOPYWHOLEGRAPH\, it assumes that the scaling of
|
||||
the graph is done already, for efficiency.)
|
||||
(PROG (SCALE (LINEWIDTH 1))
|
||||
[OR (type? POSITION TRANS)
|
||||
(SETQ TRANS (CONSTANT (create POSITION
|
||||
XCOORD _ 0
|
||||
YCOORD _ 0]
|
||||
(SETQ STREAM (GETSTREAM STREAM (QUOTE OUTPUT)))
|
||||
(COND
|
||||
((DISPLAYSTREAMP STREAM)
|
||||
|
||||
(* This is because PRIN3 on displaystreams can sometimes cause CR's to be output. GRAPHER/CENTERPRINTINAREA doesn't
|
||||
have the rightmargin kludge that the CENTERPRINTINAREA in MENU has.)
|
||||
|
||||
|
||||
(DSPRIGHTMARGIN 65000 STREAM))
|
||||
(T (SETQ SCALE (DSPSCALE NIL STREAM))
|
||||
[SETQ TRANS (create POSITION
|
||||
XCOORD _ (FIXR (FTIMES SCALE (fetch XCOORD
|
||||
of TRANS)))
|
||||
YCOORD _ (FIXR (FTIMES SCALE (fetch YCOORD
|
||||
of TRANS]
|
||||
(SETQ LINEWIDTH SCALE)))
|
||||
(for N in (fetch (GRAPH GRAPHNODES) of GRAPH)
|
||||
do (DISPLAYNODELINKS N TRANS STREAM GRAPH T LINEWIDTH))
|
||||
(for N in (fetch (GRAPH GRAPHNODES) of GRAPH) do (PRINTDISPLAYNODE N TRANS
|
||||
STREAM
|
||||
CLIP/REG])
|
||||
|
||||
(HARDCOPYWHOLEGRAPH
|
||||
[LAMBDA (GraphOrWindow File ImageType Translation NoAlignmentDots DontCloseStream)
|
||||
(* N.H.Briggs "24-Apr-87 19:07")
|
||||
|
||||
(* * Hardcopy \a whole graph from \a window using as many pages as necessary)
|
||||
|
||||
(* fix: moved SCALE/GRAPH outside the for loops for
|
||||
effiency.)
|
||||
(* fix: moved SCALE.REGION inline, in order to avoid
|
||||
the LOADFNS in the COMS list.)
|
||||
(LET ((Stream (OR (AND File (OPENP File (QUOTE OUTPUT))
|
||||
File)
|
||||
(OPENIMAGESTREAM File ImageType)))
|
||||
(Graph (COND
|
||||
((WINDOWP GraphOrWindow)
|
||||
(WINDOWPROP GraphOrWindow (QUOTE GRAPH)))
|
||||
(T GraphOrWindow)))
|
||||
GraphUnitsPerPageUnit PageUnitsPerGraphUnit GraphRegionInGraphUnits GraphRegionInPageUnits
|
||||
PageRegion PageWidthInGraphUnits PageHeightInGraphUnits GraphWidthInGraphUnits
|
||||
GraphHeightInGraphUnits CornerXOffsetInGraphUnits CornerYOffsetInGraphUnits PageScale
|
||||
LeftCenteringOffsetInGraphUnits BottomCenteringOffsetInGraphUnits PageNumberFont
|
||||
NumberOfXPages NumberOfYPages XPageNumberPositionInPageUnits YPageNumberPositionInPageUnits
|
||||
LeftXAlignmentInPageUnits RightXAlignmentInPageUnits LowerYAlignmentInPageUnits
|
||||
UpperYAlignmentInPageUnits PageUnitsPerInch)
|
||||
(SETQ PageScale (DSPSCALE NIL Stream))
|
||||
(SETQ GraphUnitsPerPageUnit (FQUOTIENT 1.0 PageScale))
|
||||
(SETQ PageUnitsPerGraphUnit PageScale) (* 72 screen points per inch.)
|
||||
(SETQ PageUnitsPerInch (TIMES PageScale 72))
|
||||
(SETQ GraphRegionInGraphUnits (GRAPHREGION Graph))
|
||||
(SETQ CornerXOffsetInGraphUnits (MINUS (fetch (REGION LEFT) of
|
||||
GraphRegionInGraphUnits)))
|
||||
(SETQ CornerYOffsetInGraphUnits (MINUS (fetch (REGION BOTTOM) of
|
||||
GraphRegionInGraphUnits)))
|
||||
(* fix: moved SCALE.REGION inline, in order to avoid
|
||||
the LOADFNS in the COMS list.)
|
||||
[SETQ GraphRegionInPageUnits (CREATEREGION (FIXR (QUOTIENT (fetch (REGION LEFT)
|
||||
of
|
||||
GraphRegionInGraphUnits)
|
||||
GraphUnitsPerPageUnit))
|
||||
(FIXR (QUOTIENT (fetch (REGION BOTTOM)
|
||||
of
|
||||
GraphRegionInGraphUnits)
|
||||
GraphUnitsPerPageUnit))
|
||||
(FIXR (QUOTIENT (fetch (REGION WIDTH)
|
||||
of
|
||||
GraphRegionInGraphUnits)
|
||||
GraphUnitsPerPageUnit))
|
||||
(FIXR (QUOTIENT (fetch (REGION HEIGHT)
|
||||
of
|
||||
GraphRegionInGraphUnits)
|
||||
GraphUnitsPerPageUnit]
|
||||
(SELECTQ (IMAGESTREAMTYPE Stream)
|
||||
[INTERPRESS
|
||||
|
||||
(* * Make the clipping region be the whole page on Interpress streams)
|
||||
|
||||
|
||||
(DSPCLIPPINGREGION (CREATEREGION 0 0 (FIXR (TIMES
|
||||
PageUnitsPerInch 8.5)
|
||||
)
|
||||
(FIXR (TIMES
|
||||
PageUnitsPerInch
|
||||
11.0)))
|
||||
Stream)
|
||||
|
||||
(* * Get rid of 1 inch margins except .5 inch at right and top)
|
||||
|
||||
|
||||
(SETQ PageRegion (CREATEREGION 0 0 (FIXR (TIMES
|
||||
PageUnitsPerInch 8.0)
|
||||
)
|
||||
(FIXR (TIMES PageUnitsPerInch
|
||||
10.5]
|
||||
[PRESS
|
||||
|
||||
(* * Make the clipping region be the whole page on Press streams)
|
||||
|
||||
|
||||
(DSPCLIPPINGREGION (CREATEREGION 0 0 (FIXR (TIMES PageUnitsPerInch
|
||||
8.5))
|
||||
(FIXR (TIMES PageUnitsPerInch
|
||||
11.0)))
|
||||
Stream)
|
||||
|
||||
(* * Get rid of 1 inch margins except 1 inch at right and top)
|
||||
|
||||
|
||||
(SETQ PageRegion (CREATEREGION 0 0 (FIXR (TIMES PageUnitsPerInch
|
||||
7.5))
|
||||
(FIXR (TIMES PageUnitsPerInch 10.0]
|
||||
(SETQ PageRegion (DSPCLIPPINGREGION NIL Stream)))
|
||||
(SETQ PageWidthInGraphUnits (TIMES (fetch (REGION WIDTH) of PageRegion)
|
||||
GraphUnitsPerPageUnit))
|
||||
(SETQ PageHeightInGraphUnits (TIMES (fetch (REGION HEIGHT) of PageRegion)
|
||||
GraphUnitsPerPageUnit))
|
||||
(SETQ GraphWidthInGraphUnits (fetch (REGION WIDTH) of GraphRegionInGraphUnits))
|
||||
(SETQ GraphHeightInGraphUnits (fetch (REGION HEIGHT) of GraphRegionInGraphUnits))
|
||||
(SETQ BottomCenteringOffsetInGraphUnits (QUOTIENT (DIFFERENCE PageHeightInGraphUnits
|
||||
(REMAINDER
|
||||
GraphHeightInGraphUnits
|
||||
PageHeightInGraphUnits))
|
||||
1.75))
|
||||
(SETQ LeftCenteringOffsetInGraphUnits (QUOTIENT (DIFFERENCE PageWidthInGraphUnits
|
||||
(REMAINDER
|
||||
GraphWidthInGraphUnits
|
||||
PageWidthInGraphUnits))
|
||||
1.75))
|
||||
(SETQ NumberOfYPages (CEILING (QUOTIENT GraphHeightInGraphUnits PageHeightInGraphUnits)
|
||||
))
|
||||
(SETQ NumberOfXPages (CEILING (QUOTIENT GraphWidthInGraphUnits PageWidthInGraphUnits)))
|
||||
(SETQ PageNumberFont (FONTCREATE (QUOTE MODERN)
|
||||
6))
|
||||
|
||||
(* * The page numbers are \a quarter of in after the edge of the printing edge and are in the upper right hand
|
||||
corner of the page. The pages are printed row-wise and no page numbers are printed on the last page.
|
||||
The page numbers are positioned .25 inch to the right of the right edge of the page region and .35 inch up from the
|
||||
top of the page region. The alignment dots are .25 inch to the right of the right edge of the page region and .25
|
||||
inch up from the page region.)
|
||||
|
||||
|
||||
(SETQ XPageNumberPositionInPageUnits (PLUS (fetch (REGION RIGHT) of PageRegion)
|
||||
(TIMES PageUnitsPerInch .25)))
|
||||
(SETQ YPageNumberPositionInPageUnits (PLUS (fetch (REGION TOP) of PageRegion)
|
||||
(TIMES PageUnitsPerInch .35)))
|
||||
(SETQ LeftXAlignmentInPageUnits (TIMES PageUnitsPerInch .25))
|
||||
(SETQ RightXAlignmentInPageUnits (PLUS (fetch (REGION RIGHT) of PageRegion)
|
||||
(TIMES PageUnitsPerInch .25)))
|
||||
(SETQ LowerYAlignmentInPageUnits (TIMES PageUnitsPerInch .25))
|
||||
(SETQ UpperYAlignmentInPageUnits (PLUS (fetch (REGION TOP) of PageRegion)
|
||||
(TIMES PageUnitsPerInch .25)))
|
||||
(* Latest fix: moved SCALE/GRAPH outside the for loops
|
||||
for effiency.)
|
||||
(SETQ Graph (SCALE/GRAPH Graph Stream PageScale))
|
||||
[for BottomOfPageInGraphUnits from 0 to GraphHeightInGraphUnits by
|
||||
PageHeightInGraphUnits
|
||||
as YPageNumber from 1
|
||||
do (for LeftOfPageInGraphUnits from 0 to GraphWidthInGraphUnits by
|
||||
PageWidthInGraphUnits
|
||||
as XPageNumber from 1
|
||||
do [HARDCOPYDISPLAYGRAPH Graph Stream (DSPCLIPPINGREGION NIL Stream)
|
||||
(create POSITION
|
||||
XCOORD _ (FIXR (PLUS
|
||||
CornerXOffsetInGraphUnits
|
||||
LeftCenteringOffsetInGraphUnits
|
||||
(MINUS
|
||||
LeftOfPageInGraphUnits)))
|
||||
YCOORD _ (FIXR (PLUS
|
||||
BottomCenteringOffsetInGraphUnits
|
||||
CornerYOffsetInGraphUnits
|
||||
(MINUS
|
||||
BottomOfPageInGraphUnits]
|
||||
|
||||
(* * Print the alignment points)
|
||||
|
||||
|
||||
[COND
|
||||
((NOT NoAlignmentDots)
|
||||
|
||||
(* * The lower left page should not have \a dot in the lower left corner. Similarly for other corner pages.)
|
||||
|
||||
|
||||
(COND
|
||||
((NOT (AND (EQ XPageNumber 1)
|
||||
(EQ YPageNumber 1)))
|
||||
(MOVETO LeftXAlignmentInPageUnits LowerYAlignmentInPageUnits
|
||||
Stream)
|
||||
(printout Stream ".")))
|
||||
(COND
|
||||
((NOT (AND (EQ XPageNumber NumberOfXPages)
|
||||
(EQ YPageNumber 1)))
|
||||
(MOVETO RightXAlignmentInPageUnits LowerYAlignmentInPageUnits
|
||||
Stream)
|
||||
(printout Stream ".")))
|
||||
(COND
|
||||
((NOT (AND (EQ YPageNumber NumberOfYPages)
|
||||
(EQ XPageNumber 1)))
|
||||
(MOVETO LeftXAlignmentInPageUnits UpperYAlignmentInPageUnits
|
||||
Stream)
|
||||
(printout Stream ".")))
|
||||
(COND
|
||||
((NOT (AND (EQ XPageNumber NumberOfXPages)
|
||||
(EQ YPageNumber NumberOfYPages)))
|
||||
(MOVETO RightXAlignmentInPageUnits UpperYAlignmentInPageUnits
|
||||
Stream)
|
||||
(printout Stream "."]
|
||||
(COND
|
||||
((NOT (AND (EQ XPageNumber NumberOfXPages)
|
||||
(EQ YPageNumber NumberOfYPages)))
|
||||
(* Not on the very last page)
|
||||
(DSPFONT PageNumberFont Stream)
|
||||
(MOVETO XPageNumberPositionInPageUnits YPageNumberPositionInPageUnits
|
||||
Stream)
|
||||
(printout Stream XPageNumber "," YPageNumber)
|
||||
(* Print the page number)
|
||||
(DSPNEWPAGE Stream]
|
||||
(COND
|
||||
((NOT DontCloseStream)
|
||||
(CLOSEF Stream])
|
||||
)
|
||||
(MOVD (QUOTE HARDCOPYGRAPH)
|
||||
(QUOTE OLDHARDCOPYGRAPH))
|
||||
(MOVD (QUOTE HARDCOPYWHOLEGRAPH)
|
||||
(QUOTE HARDCOPYGRAPH))
|
||||
|
||||
|
||||
|
||||
(* This is in order to fix the problem with borders on Interpress printers. I\t seems that you
|
||||
cannot bitblt anything thinner than 36 pixel onto an Interpress stream, why? Anyway, this
|
||||
fixes the problem by setting the border width to 36)
|
||||
|
||||
(PUTPROPS HGRAPH COPYRIGHT ("Xerox Corporation" 1987))
|
||||
(DECLARE: DONTCOPY
|
||||
(FILEMAP (NIL (779 12115 (CEILING 789 . 928) (HARDCOPYDISPLAYGRAPH 930 . 2653) (HARDCOPYWHOLEGRAPH
|
||||
2655 . 12113)))))
|
||||
STOP
|
||||
Reference in New Issue
Block a user