1
0
mirror of synced 2026-01-12 00:42:56 +00:00
Interlisp.medley/lispusers/FILLREGION.TEDIT
2020-11-15 19:22:14 -08:00

17 lines
11 KiB
Plaintext
Raw 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.

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

en·vÅos FILLREGION
2
4
1
FILLREGION
1
4
Originally By: Mike Bird (Inference Corp., Los Angeles, CA)
Jim Wogulis (Wogulis@ICS.UCI.EDU)
Greg Wexler (Wexler.pasa@Xerox)
New Owner: James M. Turner (Turner.Lexington@Xerox.com)
INTRODUCTION
The Fillregion package provides a function which will allow the user to "fill in" arbitrary regions of a bitmap or window with a shade or bitmap (or any valid shade argument to BITBLT).. The regions must be defined by a black or white outline. There are two functions provided to the user: FILL.REGION and AUTO.FILL.
(FILL.REGION window.or.bm interior.pos shade) [Function]
window.or.bm : Must be either a window or bitmap otherwise an error occurs.
interior.pos : Must be a position within window.or.bm that is within the interior of the region to be filled.
shade : Shade can be any valid shade argument that BITBLT will accept.
This will return the window.or.bm with the specified region filled in. The region to be filled is determined by the pixel specified at interior.pos. If the pixel is black, all the connected black regions will be shaded, otherwise, if the pixel is white, all the connected white region will be filled. If the user aborts the function before completion, the orginal window.or.bm will be restored.
(AUTO.FILL shade) [Function]
shade : Shade can be any valid shade argument that BITBLT will accept.
With your mouse pointing inside the appropriate region in a window, this function will fill in the region with the shade specified. This package only works for one bit per pixel bitmaps, color is not supported.
Example:
(AUTO.FILL 1234)
¡˜ÿÿÀ?ÿÿþÿÿÿÿàþÿüðÿÀðüþ?øÀàÿàüÀððÀðààxÀðxð8x8x8À88À88à88à88ÿÿð88ÿÿüðx8?ÿÿÿÀxx8~ÿø|ðxøþ<Àðxðÿ€ààpàÀðÀpÀàüÀpðÿpð€?þppøð>pÀð<ÿøpÀàxÿüxààøð~xðàðÀxðààxpàÀpxàp|à?Àp<à|ÀpãøÀðçðÀðÏàÀàÿÀàþÀàÀüÀÀðÀÀàÀàÀÀðð~ðÿüxÿøx8>8|8ø8ð<à<À>€þÿàÿ€ÿ€ÿðÿÿ€ÿÿÿÀÿðÿàÿþ?ÿàÿÀÿüþÿ€ððÀø?ÿ|ÿÀøøðüàÿÀÀààððøøøü|ÿà>ü°ðÀ0ààÀÀàÀ<à à<ð à8ðð8pð<pþx<pÿ€xðÀÿÀ<ðÀ?à<àÀ|ðÀàÀøøààÀðxðÀ?€à8ü€€à<ÿà<ÿÀøÿ0ÀþøÀÞøà<ÀÜøà<À¼øà8À<øðxà8¸øøà>x¸|ðð|x¸?àð<ÿÀxðð<ÿ€|ðàþ?áàÁà<øƒÀ<ÿÿÀxÿþ€<øà€<ð€xàxÀÀpÀðà?ððþàüü<à<àÿÀ8ÀÿÿþxÀÿÿðxÀÿÿððü?€ÿÿþøresults in: Ÿ?ÿþÿÿÿðÿÿÿÿøˆ<C3B8>ÿà?þwwwwxˆˆˆˆŸàpðqøwwwwww|xˆˆÿȈ¾pÿðqÿùwwàÿww€xˆ<78>€>ˆ<>xÀ9>À?w|÷wÀ<ˆøȉÀxÀÀpÑÀwp÷wÀˆðȉÀpÀÀ?ÿøpÑÀÿÿÿà÷x÷wÀÿÿÿþÈøȉÀøˆŸÿÀà<ÀÀñ>Àü÷ww€wwwwþø<>€>ˆ‹€>ˆˆˆˆ¿ðàþ|yÿùywÿ÷ww€÷wwwww€<ˆÿȈ<C388>ø‰ÿˆˆ‹€àÿÀÑÿñÀwwwww÷ƒ÷wwÀˆˆˆˆ<CB86>ˆ¾øˆ‹À||Àx=÷wwwwÿwpww€興ˆ<CB86>øˆðˆ‹€ààðñÑà÷www?÷wàww€xˆˆˆŽˆˆàˆ<>xøð=ñð?www÷wwpw~ˆˆˆ<CB86>ˆˆˆø<ˆž||>ù<÷wwwwwwƒ÷w|ˆˆˆˆˆˆˆ<CB86>ÿèˆøÀÿÀpÑÿð÷wwwwwwwwwwðȈˆˆˆˆˆˆˆˆ‹àÀÀÑ÷wwwwwwwww興ˆˆˆˆˆˆˆþðüùwwwwwwwwÿÀ<ˆˆˆˆˆˆˆŸÿüÿðÿý?ÿ€ÿÿwwwwwwÿøÿþˆˆˆˆˆˆÿÿ€?ÿÿðÿñÿÿÿwwwwwwÿÿàøˆˆˆˆˆˆÿü€ÿ€ÿÿÀÿwwwwwwwø興ˆˆˆˆˆ<CB86>þÀÿÀàwwwwwwwwwøˆˆˆˆˆˆŽˆˆˆü<=w÷www÷wwÀx‰ÿøˆˆˆ<CB86>興àðÿøðñàýø÷€?www÷www|蟈ˆˆˆÈˆˆˆ¾àÀñq÷|÷wwwwwwwȼˆˆˆˆ¸ˆˆˆ<CB86>À80ñ8ñÀ÷x÷wwwwÿwwÀ輈žˆˆˆÿþˆ‰àà<ø?àñ?àà÷~wwwwÀ÷wðøŸˆþˆˆ<CB86>Ȉðp€>üÀpyàýýñpwÿÿwÿww÷wp8‰ÿø<C3BF>øˆˆŽèˆø<øàx=ñÑñ8www~÷÷÷wxˆˆˆ¾è<C2BE>È<EFBFBD>舸ÀÀ8ÑÑ8wwwù÷}÷wÀ÷wxˆˆ‰óȽȋàˆˆøãÀ=Àø?xÇÿÿp÷ww‡÷y÷wÿwwpèˆ<C3A8>ˆøèˆŸøˆˆðøðý>ðñà÷üwð÷wwwwwàÿøˆàxˆˆˆˆÀÿðàxÀÿ=ày?wÀ?wwwwxÀ>ˆˆˆˆ¾x|qø÷w€÷wwwðø<>興¿ààøÿ€ñÿþ÷~ÿÿðÈžÿÿ€Àÿø÷|éüÿøÿð
Comments and suggetions are welcome.
(LIST ((PAGE NIL (PAPERSIZE LETTER FOLIOINFO (ARABIC "" "") STARTINGPAGE# 92) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE NIL . LETTER) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO NIL) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE NIL . LETTER) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO NIL) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))))) ,È3ÈÈT2ÈÈ,È,È,ŠŠ8,È ,ŠŠ8HÈÈ PAGEHEADING RUNNINGHEADCLASSICCLASSICCLASSICMODERN
TERMINAL
MODERN

TIMESROMAN
TERMINAL
 HELVETICA
MODERN
MODERN
MODERN MODERNMODERN
 
  HRULE.GETFNMODERN
 HRULE.GETFNMODERN
 HRULE.GETFNMODERN
  HRULE.GETFNMODERN   HRULE.GETFNMODERN   =" 9
 ? !   A cD
  DÔ 
 BMOBJ.GETFN3
TIMESROMAN
 ° BMOBJ.GETFN3% WUzº