/box-inline-create { % => box-generic-inline-create dup /Lines [] put dup box-inline-setup-methods dup /box-inline add-type } def % => Box % Extends the existing line box to include the given child % OR starts new line box, if current child is to the left of the box right edge % (which should not happen white the line box is filled) % % @param $box child box which will be first in this line box % @param $line_no number of line box % /box-inline-extend-line { % => LineNo Box This dup box-inline-get-lines length % => LineNo Box This NumLines 3 index le { % => LineNo Box This % New line box started 2 index 2 index 2 index box-inline-init-line % => LineNo Box This 2 index % => LineNo Box This LineNo } { % => LineNo Box This 1 index get-left % => LineNo Box This BoxLeft 1 index box-inline-get-lines % => LineNo Box This BoxLeft Lines 4 index get % => LineNo Box This BoxLeft Line line-get-right % => LineNo Box This BoxLeft LineRight lt { % => LineNo Box This 2 index 1 add % => LineNo Box This LineNo' dup 3 index 3 index % => LineNo Box This LineNo' LineNo' Box This box-inline-init-line % => LineNo Box This LineNo' } { dup box-inline-get-lines % => LineNo Box This Lines 3 index get % => LineNo Box This Line 2 index exch line-extend % => LineNo Box This 2 index % => LineNo Box This LineNo } ifelse % => } ifelse % => LineNo Box This LineNo' exch pop exch pop exch pop } def /box-inline-get-extra-line-left { % => This dup get-extra-left % => This EL 1 index get-parent /null ne { % => This EL 1 index get-parent /get-extra-line-left call-method % => This EL ParentEL add } if exch pop } def /box-inline-get-extra-line-right { dup get-extra-right % => This EL 1 index get-parent /null ne { % => This EL 1 index get-parent /get-extra-line-right call-method % => This EL ParentEL add } if exch pop } def /box-inline-get-lines { /Lines get } def % Initialize next line box inside this inline % % Adds the next element to _lines array inside the current object and initializes it with the % $box parameters % % @param $box child box which will be first in this line box % @param $line_no number of line box % /box-inline-init-line { % => LineNo Box This 1 index line-create % => LinoNo Box This Line 1 index box-inline-get-lines array-prepend 1 index box-inline-put-lines % => LineNo Box This pop pop pop } def /box-inline-merge-line { % => LineNo Box This 1 index box-inline-get-lines { % => LineNo Box This Line 1 index box-inline-get-lines % => LineNo Box This Line Lines array-prepend % => LineNo Box This Lines' 1 index box-inline-put-lines % => LineNo Box This } forall % => LineNo Box This exch pop exch pop box-inline-get-lines length % => LineNo' } def /box-inline-offset { % => DY DX This 3 copy box-container-offset % => DY DX This dup box-inline-get-lines { % => DY DX This Line 3 index exch 3 index exch line-offset % => DY DX This } forall pop pop pop } def /box-inline-put-lines { % => Value This exch /Lines exch put } def /box-inline-reflow { % => Context Parent This % Note that inline boxes (actually SPANS) % are never added to the parent's line boxes % Move current box to the parent's current coordinates % Note that span box will start at the far left of the parent, NOT on its current X! % Also, note that inline box can have margins, padding and borders! 1 index get-left 1 index put-left 1 index get-top 1 index get-extra-top sub 1 index put-top % => Context Parent This % first line of the SPAN will be offset to its parent current-x PLUS the left padding of current span! 1 index get-current-x 1 index get-extra-left add % => Context Parent This CX dup 3 index put-current-x % => Context Parent This CX 1 index put-current-x % => Context Pareht This % Note that the same operation IS NOT applied to parent current-y! % The padding space is just extended to the top possibly OVERLAPPING the above boxes. 0 1 index put-width % Reflow contents 0 % => Context Parent This LineNo 1 index get-content { % => Context Parent This LineNo Child % Add current element into _parent_ line box and reflow it 4 index 4 index % => Context Parent This LineNo Child Context Parent 2 index /reflow call-method % => Context Parent This LineNo Child % Track the real height of the inline box; it will be used by other functions % (say, functions calculating content height) dup get-bottom-margin % => Context Parent This LineNo' Child BM 3 index box-generic-extend-height % => Context Parent This LineNo Child pop } forall % => Context Parent This LineNo pop % => Context Parent This % Extend parent height to fit this inline box % TODO: Is it really required? Seems that it will be accomplished by child reflow functions % dup get-bottom-margin % => Context Parent This GBM % 2 index % box-generic-extend-height % => Context Parent This % Apply right extra space value (padding + border + margin) 1 index get-current-x 1 index get-extra-right add 2 index put-current-x % After reflow_content we should have the top stack value replace by the value % of last child bottom collapsed margin dup box-container-get-first-data /null ne { 2 index context-pop-collapsed-margin 0 3 index context-push-collapsed-margin } if pop pop pop } def /box-inline-reflow-inline { % => This 0 % => This LineNo 1 index get-content { % => This LineNo Child dup /reflow-inline call-method dup /box-inline is-a { 1 index % => This LineNo Child LineNo 1 index % => This LineNo Child LineNo Child 4 index % => This LineNo Child LineNo Child This box-inline-merge-line % => This LineNo Child LineNo' 3 2 roll % => This Child LineNo' LineNo pop exch % => This LineNo' Child } { 1 index % => This LineNo Child LineNo 1 index % => This LineNo Child LineNo Child 4 index % => This LineNo Child LineNo Child This box-inline-extend-line % => This LineNo Child LineNo' 3 2 roll % => This Child LineNo' LineNo pop exch % => This LineNo' Child } ifelse % => This LineNo' Child pop } forall pop pop } def /box-inline-setup-methods { % => Box dup get-box-dict /Methods get % => Box Methods dup /get-extra-line-left {box-inline-get-extra-line-left} put dup /get-extra-line-right {box-inline-get-extra-line-right} put dup /offset {box-inline-offset} put dup /reflow {box-inline-reflow} put dup /reflow-inline {box-inline-reflow-inline} put dup /show {box-inline-show} put pop pop } def /box-inline-show { % => Viewport This % Show line boxes background and borders dup box-inline-get-lines { % => Viewport This Line 1 index 1 index line-fake-box % => Viewport This Line FakeBox dup 4 index % => Viewport This Line FakeBox FakeBox Viewport 4 index get-background background-show % => Viewport This Line FakeBox dup 4 index 4 index get-border border-show % => Viewport This Line FakeBox pop pop } forall % Show content dup get-content { % => Viewport This Child 2 index exch /show call-method % => Viewport This } forall pop pop } def /line-create { % => Box << >> dup /right 3 index get-right put dup /left 3 index get-left put dup /top 3 index get-top put dup /bottom 3 index get-bottom put exch pop } def /line-extend { % => Box This dup /top get % => Box This V1 2 index get-top % => Box This V1 V2 max 1 index exch /top exch put dup /right get % => Box This V1 2 index get-right % => Box This V1 V2 max 1 index exch /right exch put dup /bottom get % => Box This V1 2 index get-bottom % => Box This V1 V2 min 1 index exch /bottom exch put % Left edge of the line box should never be modified pop pop } def /line-get-right { /right get } def /line-fake-box { % => Box This % Create the fake box object box-block-create % => Box This FakeBox % Setup fake box size 1 index /left get 1 index put-left 1 index /right get 2 index /left get sub 1 index put-width 1 index /top get 1 index get-baseline sub 1 index put-top 1 index /top get 2 index /bottom get sub 1 index put-height % Setup padding value 2 index get-padding 1 index put-padding % Setup fake box border and background 2 index get-background 1 index put-background 2 index get-border 1 index put-border exch pop exch pop } def /line-offset { % => DY DX This dup /top get % => DY DX This Top 3 index add % => DY DX This Top' 1 index exch % => DY DX This This Top' /top exch put % => DY DX This dup /bottom get % => DY DX This Bottom 3 index add % => DY DX This Bottom' 1 index exch % => DY DX This This Bottom' /bottom exch put % => DY DX This dup /left get % => DY DX This Left 2 index add % => DY DX This Left' 1 index exch % => DY DX This This Left' /left exch put % => DY DX This dup /right get % => DY DX This Right 2 index add % => DY DX This Right' 1 index exch % => DY DX This This Right' /right exch put % => DY DX This pop pop pop } def