(FILECREATED "19-Dec-86 16:41:11" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH179.;2 19922
changes to: (FNS NC.CardPointerIconPutFn NC.CardPointerIconGetFn NC.MakeTriangularBM
NC.CardPointerIconDisplayFn NC.MakeCardPointerIcon)
(VARS NC.BigTriangleBM RHTPATCH179COMS)
(RECORDS Card&NoteFileUIDs)
previous date: "19-Dec-86 12:42:14" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH179.;1)
(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)
(PRETTYCOMPRINT RHTPATCH179COMS)
(RPAQQ RHTPATCH179COMS ((* * Stuff to define new image object called CardPointerIcon. Contains a
UID for a card rather than a link.)
(* * New stuff for NCLINKS)
(GLOBALVARS NC.CardPointerIconImageFns)
(FNS NC.CardPointerIconDisplayFn NC.CardPointerIconImageBoxFn
NC.CardPointerIconPutFn NC.CardPointerIconGetFn
NC.CardPointerIconCopyFn NC.CardPointerIconButtonEventInFn
NC.CardPointerIconWhenCopiedFn NC.CardPointerIconWhenMovedFn
NC.CardPointerIconWhenDeletedFn NC.CardPointerIconWhenInsertedFn)
(RECORDS Card&NoteFileUIDs)
(BITMAPS NC.BigTriangleBM)
(FNS NC.MakeCardPointerIcon NC.MakeTriangularBM)))
(* * Stuff to define new image object called CardPointerIcon. Contains a UID for a card rather
than a link.)
(* * New stuff for NCLINKS)
(DECLARE: DOEVAL@COMPILE DONTCOPY
(GLOBALVARS NC.CardPointerIconImageFns)
)
(DEFINEQ
(NC.CardPointerIconDisplayFn
(LAMBDA (ImageObj ImageStream STREAMTYPE TEXTSTREAM SCALE)
(* rht: "19-Dec-86 16:40")
(* * Display a card pointer icon)
(PROG ((Scale (DSPSCALE NIL ImageStream))
(Link (NC.FetchLinkFromLinkIcon ImageObj))
Font Left Bottom ShowTitleFlg LinkDisplayMode AttachBitmapFlg DisplayType Window Card
Title Label BoxWidth BoxHeight ImageBox TypeIcon ScaledBitmapWidth ScaledBorderWidth
ScaledSpaceInnerX ScaledSpaceOuterX ScaledSpaceOuterY)
(SETQ Font (DSPFONT NIL ImageStream))
(* * Determine what type of Display to do)
(SETQ DisplayType (fetch (Link DisplayMode) of Link))
(SETQ Card (if (EQ (SETQ ShowTitleFlg (fetch (LINKDISPLAYMODE SHOWTITLEFLG)
of DisplayType))
(QUOTE SOURCE))
then (fetch (Link SourceCard) of Link)
else (fetch (Link DestinationCard) of Link)))
(SETQ LinkDisplayMode (fetch (LINKDISPLAYMODE SHOWLINKTYPEFLG) of DisplayType))
(SETQ AttachBitmapFlg (fetch (LINKDISPLAYMODE ATTACHBITMAPFLG) of DisplayType))
(SETQ Title (if (AND ShowTitleFlg (OR (NEQ ShowTitleFlg (QUOTE FLOAT))
NC.LinkIconShowTitleFlg))
then (NC.RetrieveTitle Card)
else NIL))
(SETQ Label (AND (COND
((EQ LinkDisplayMode (QUOTE FLOAT))
NC.LinkIconShowLinkTypeFlg)
(T LinkDisplayMode))
(fetch (Link Label) of Link)))
(* * Get the image box info for this icon)
(SETQ ImageBox (OR (IMAGEOBJPROP ImageObj (QUOTE BOUNDBOX))
(NC.LinkIconImageBoxFn ImageObj ImageStream NIL NIL NIL
DisplayType Title Label)))
(* * Make temporaries of scaled vars.)
(SETQ ScaledBorderWidth (TIMES Scale NC.LinkIconBorderWidth))
(SETQ ScaledSpaceInnerX (TIMES Scale NC.LinkIconSpaceInnerX))
(SETQ ScaledSpaceOuterX (TIMES Scale NC.LinkIconSpaceOuterX))
(SETQ ScaledSpaceOuterY (TIMES Scale NC.LinkIconSpaceOuterY))
(* * Compute all the size values.)
(SETQ Bottom (PLUS (DIFFERENCE (DSPYPOSITION NIL ImageStream)
(fetch (IMAGEBOX YDESC) of ImageBox))
ScaledSpaceOuterY))
(SETQ BoxHeight (DIFFERENCE (fetch (IMAGEBOX YSIZE) of ImageBox)
(PLUS ScaledSpaceOuterY ScaledSpaceOuterY)))
(* * The adding of Scale to BoxHeight in the call to NC.FetchLinkIconAttachedBitMap is a kludge that works.
Just BoxHeight would make alot more sense.)
(SETQ TypeIcon (AND (COND
((EQ AttachBitmapFlg (QUOTE FLOAT))
NC.LinkIconAttachBitmapFlg)
(T AttachBitmapFlg))
(NC.FetchLinkIconAttachedBitMap Card (PLUS Scale BoxHeight)
Scale)))
(SETQ ScaledBitmapWidth (if TypeIcon
then (TIMES Scale (BITMAPWIDTH TypeIcon))
else 0))
(SETQ Left (PLUS (DSPXPOSITION NIL ImageStream)
ScaledSpaceOuterX))
(SETQ BoxWidth (DIFFERENCE (fetch (IMAGEBOX XSIZE) of ImageBox)
(PLUS ScaledSpaceOuterX ScaledSpaceOuterX
ScaledBitmapWidth)))
(* * Put out the icon bitmap for the appropriate type.)
(COND
(TypeIcon (BITBLT TypeIcon 0 0 ImageStream Left Bottom)
(* DSPFONT is a kludge to get around bug in PRESS BITBLT which sets the width of a space char to NIL.
Bug reported as AR #5630.0)
(DSPFONT Font ImageStream)))
(if (AND TypeIcon (NOT (OR Label Title)))
then (* Quit because just a typeicon)
(RETURN))
(* * Enter the appropriate text.)
(DSPXPOSITION (PLUS Left (if TypeIcon
then ScaledBitmapWidth
else ScaledBorderWidth)
ScaledSpaceInnerX)
ImageStream)
(DSPYPOSITION (PLUS Bottom ScaledBorderWidth (TIMES Scale NC.LinkIconSpaceInnerY)
(FONTDESCENT Font))
ImageStream)
(if (OR Label Title)
then (PRIN1 " " ImageStream))
(AND Label (PRIN1 (CONCAT "<" Label ">")
ImageStream))
(AND Label Title (PRIN1 " " ImageStream))
(AND Title (PRIN1 Title ImageStream))
(* * Draw the box.)
(NC.DrawInnerBox (PLUS Left ScaledBitmapWidth)
Bottom BoxWidth BoxHeight ScaledBorderWidth NIL ImageStream TypeIcon)))
)
(NC.CardPointerIconPutFn
(LAMBDA (ImageObject Stream) (* rht: "19-Dec-86 15:44")
(* * Writes the card and notefile UIDs specified by ImageObject onto the file specified by Stream)
(LET ((Card&NoteFileUIDs (IMAGEOBJPROP ImageObject (QUOTE OBJECTDATUM))))
(NC.WriteUID Stream (fetch (Card&NoteFileUIDs CardUID) of Card&NoteFileUIDs))
(NC.WriteUID Stream (fetch (Card&NoteFileUIDs NoteFileUID) of Card&NoteFileUIDs)))))
(NC.CardPointerIconGetFn
(LAMBDA (Stream) (* rht: "19-Dec-86 15:44")
(* * Reads the UIDs from Stream and returns a card pointer image object.)
(IMAGEOBJCREATE (create Card&NoteFileUIDs
CardUID ←(NC.ReadUID Stream)
NoteFileUID ←(NC.ReadUID Stream))
NC.CardPointerIconImageFns)))
)
[DECLARE: EVAL@COMPILE
(RECORD Card&NoteFileUIDs (CardUID NoteFileUID))
]
(RPAQ NC.BigTriangleBM (READBITMAP))
(200 200
"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"COOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"AOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@COOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@AOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@COOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@AOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@COOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@AOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@COOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@AOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@COOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@AOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@COOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@AOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@COOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@AOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@COOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@AOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@COOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@AOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@COOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@AOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@COOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@AOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@COOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@AOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@COOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@AOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@COOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@AOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@COOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@AOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@COOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@AOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@COOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@AOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@COOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@AOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@GOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@COOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@AOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@GOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@COOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@AOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@GOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@COOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@AOOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@GOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@COOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@AOOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@GOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@COOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@AOOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@GOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@COOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@AOOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@GOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@COOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@AOOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@GOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@COOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@AOOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@GOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@COOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@AOOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@GOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@COOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@AOOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@COOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AOOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@COOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AOOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@COOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AOOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@COOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AOOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@COOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AOOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@COOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AOOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@COOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AOOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@COOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AOOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@COOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AOOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@COOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AOOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@COOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AOOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@COOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AOOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@COOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AOOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@COOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AOOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@COOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AOOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@COOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AOOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@COOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AOOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@COOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AOOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@COO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AOO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AO@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@G@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@")
(DEFINEQ
(NC.MakeCardPointerIcon
(LAMBDA (Card) (* rht: "19-Dec-86 12:40")
(* * Returns a new CardPointerIcon containing the UID's for Card and NoteFile.)
(if (NC.CardP Card)
then (IMAGEOBJCREATE (create Card&NoteFileUIDs
CardUID ←(fetch (Card UID) of Card)
NoteFileUID ←(fetch (NoteFile UID)
of (fetch (Card NoteFile)
of Card)))
NC.CardPointerIconImageFns)
else (NC.ReportError "NC.MakeCardPointerIcon" (CONCAT "Arg not Card object: " Card)))))
(NC.MakeTriangularBM
(LAMBDA (EdgeLength) (* rht: "19-Dec-86 16:30")
(* * Return a bitmap whose upper triangular half is black and lower half is white. Trick is to BITBLT from the
middle of a big constant triangular bitmap.)
(DECLARE (GLOBALVARS NC.BigTriangleBM))
(LET ((MaxLength (BITMAPWIDTH NC.BigTriangleBM)))
(if (GREATERP EdgeLength MaxLength)
then (NC.ReportError "NC.MakeTriangularBM" (CONCAT "EdgeLength arg out of range: "
EdgeLength))
else (LET ((CornerVal (DIFFERENCE (LRSH MaxLength 1)
(if (EVENP EdgeLength)
then (LRSH EdgeLength 1)
else (ADD1 (LRSH EdgeLength 1)))))
(NewBM (BITMAPCREATE EdgeLength EdgeLength)))
(AND (BITBLT NC.BigTriangleBM CornerVal CornerVal NewBM)
NewBM))))))
)
(PUTPROPS RHTPATCH179 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
(FILEMAP (NIL (1419 7137 (NC.CardPointerIconDisplayFn 1429 . 6215) (NC.CardPointerIconPutFn 6218 .
6745) (NC.CardPointerIconGetFn 6747 . 7129)) (18266 19840 (NC.MakeCardPointerIcon 18276 . 18892) (
NC.MakeTriangularBM 18894 . 19838)))))
STOP