DIRECTORYPrincOps USING [BBptr, BBTableSpace, CharEntry, TextBltArg, TextBltFontHandle, TextBltResult],PrincOpsUtils USING [AlignedBBTable, BITBLT],SoftwareTextBlt USING [];TextBltImpl: PROGRAMIMPORTS PrincOpsUtilsEXPORTS SoftwareTextBlt =BEGINTextBlt: PUBLIC PROC [index: CARDINAL, bitPos: CARDINAL, micaPos: CARDINAL,count: INTEGER, ptr: POINTER TO PrincOps.TextBltArg]RETURNS [newIndex: CARDINAL, newBitPos: CARDINAL, newMicaPos: CARDINAL, newCount: INTEGER,result: PrincOps.TextBltResult] = {bbtablespace: PrincOps.BBTableSpace;bb: PrincOps.BBptr = PrincOpsUtils.AlignedBBTable[@bbtablespace];font: PrincOps.TextBltFontHandle = ptr.font;UNTIL index > ptr.last DOFetchChar: PROC RETURNS [CHARACTER] = INLINE {RETURN[ptr.text[index]]};BitWidth: PROC RETURNS [CARDINAL] = INLINE {RETURN[font.font.widths[char]]};Height: PROC RETURNS [CARDINAL] = INLINE {RETURN[font.height]};MicaWidth: PROC RETURNS [CARDINAL] = INLINE {RETURN[font.font.char[char].mica]};Pad: PROC RETURNS [BOOL] = INLINE {RETURN[font.rgflags[char].pad]};Stop: PROC RETURNS [BOOL] = INLINE {RETURN[font.rgflags[char].stop]};char: CHARACTER = FetchChar[];IF ptr.function = resolve THEN ptr.coord[index] _ bitPos;IF Stop[] THEN GOTO Quit;IF micaPos + MicaWidth[] > ptr.margin THEN GOTO Margin;IF ptr.function = display THEN DisplayChar[ptr, bitPos, char, bb];bitPos _ bitPos + BitWidth[];micaPos _ micaPos + MicaWidth[];IF Pad[] THEN {count _ count + 1;IF ptr.function # format THEN {bitPos _ bitPos + ptr.space;IF count <= 0 THEN bitPos _ bitPos + 1;};};index _ index + 1;REPEATQuit => result _ stop;Margin => result _ margin;FINISHED => result _ normal;ENDLOOP;RETURN[index, bitPos, micaPos, count, result]};DisplayChar: PROC [ptr: POINTER TO PrincOps.TextBltArg, bitPos: CARDINAL, char: CHARACTER,bb: PrincOps.BBptr] =  --INLINE-- {font: PrincOps.TextBltFontHandle = ptr.font;ce: LONG POINTER TO PrincOps.CharEntry = @font.font.char[char];KernLeftWidth: PROC RETURNS [CARDINAL] = INLINE {RETURN[LOOPHOLE[ce.leftKern]]};KernRightWidth: PROC RETURNS [CARDINAL] = INLINE {RETURN[LOOPHOLE[ce.rightKern]]};bitPos _ bitPos - KernLeftWidth[];bb.dst _ [word: ptr.dst + bitPos/16, reserved: 0, bit: bitPos MOD 16];bb.dstBpl _ INTEGER[ptr.dstBpl];bb.src _ [word: @font.font.bits[ce.offset], reserved: 0, bit: 0];bb.srcDesc.srcBpl _ bb.width _ font.font.widths[char] + KernLeftWidth[] + KernRightWidth[];bb.height _ font.height;bb.flags _ [direction: forward, disjoint: TRUE, disjointItems: TRUE,gray: FALSE, srcFunc: null, dstFunc: or, reserved: 0];bb.reserved _ 0;PrincOpsUtils.BITBLT[bb];};END.   F  TextBltImpl.mesaLast Edited by: Levin, April 11, 1983 9:48 am Э╩a  Ш JЪЬЩJЪЬ-Щ-JШ Ъ╧k	Ш	ЪЬ	ЭЬШJЪЬNШNЧJЪЬЭЬЭЬШ-JЪЬЭЬШJШ ЧЪЬЭШJЪЭЬШJЪЭЬШЧJШ JЪЭШJШ Ъ╧nЬЭЬЭЬШJЪЬЭЬ
ЭЬЭЬШ5JЪЬЭЬЭЬЭЬШ4ЪЭЬШ	JЪ	Ь
ЭЬЭЬЭЬЭЬШQJЪЬ#Ш#ЧJШ$JШAJШ,ЪЭЬЭШJЪЮ	ЬЭЬЭЬЭ	ЬЭЬЭЬШGJЪЮЬЭЬЭЬЭЬЭЬЭЬШLJЪЮЬЭЬЭЬЭЬЭЬЭЬШ?JЪЮ	ЬЭЬЭЬЭЬЭЬЭЬШPJЪЮЬЭЬЭЬЭЬЭЬЭЬШCJЪЮЬЭЬЭЬЭЬЭЬЭЬШEJЪЬЭ	ЬШJЪЭЬЭЬШ9JЪЭЬЭЬЭЬШJЪЭЬ$ЭЬЭЬШ7JЪЭЬЭЬ$ШBJШJШ ЪЭЬЭЬШJШЪЭЬЭЬШJШJЪЭЬЭЬШ'JЪЬШЧJЪЬШЧJШЪЭШJШJШJЪЭЬШЧJЪЭЬШЧJЪЭЬ'Ш-JЪЬШJШ ЧЪЮЬЭЬШJЪ	ЬЭЬЭЬЭЬЭ	ЬШGJЪЬ╧c
ЬШ#JШ,JЪЬЭЬЭЬЭЬ,Ш?JЪЮЬЭЬЭЬЭЬЭЬЭЬЭЬШPJЪЮЬЭЬЭЬЭЬЭЬЭЬЭЬШRJШ"JЪЬ>ЭЬШFJЪЬЭЬШ JШAJШ[JШШJЪЬЭЬЭЬШ8JЪЬЭЬ)Ш4JЪЬШЧJШJЪЬЭЬШJЪЬШJШ ЧJЪЭЬШЧ ЕЧ    
F  э  