← Back to branch summary

~reviczky/context/mirror

« back to all changes in this revision

Viewing changes to tex/context/base/mkxl/trac-vis.lmt

  • Committer: Context Git Mirror Bot
  • Author(s): Hans Hagen
  • Date: 2022-12-27 20:56:16 UTC
  • Revision ID: git-v1:db25374e65d39dc254ddce11b40ad4a95e6a385b
2022-12-27 21:04:00

Show diffs side-by-side

added added

removed removed

Lines of Context:
tex/context/base/mkxl/trac-vis.lmt
797
797
 
798
798
    local getshift       = nuts.getshift
799
799
    local getorientation = nuts.getorientation
 
800
    local setorientation = nuts.setorientation
800
801
    local getheight      = nuts.getheight
801
802
 
802
803
    setmetatableindex(o_cache,function(t,size)
811
812
 
812
813
    ruledbox = function(head,current,vertical,layer,what,simple,previous,trace_origin,parent)
813
814
        local wd, ht, dp = getwhd(current)
 
815
--       local wd, ht, dh, shift = nuts.getlistdimensions(current) -- MAYBE
814
816
        local force_origin = wd == 0 or (dp + ht) == 0
815
817
        local shift = getshift(current)
816
 
        local orientation, xoffset, yoffset = getorientation(current)
 
818
-- print(getorientation(current,true))
 
819
        local orientation, xoffset, yoffset, w, h, d = getorientation(current) -- TODO
 
820
if orientation and orientation ~= 0 and (h ~= 0 or d ~= 0) then
 
821
--     wd = w
 
822
    ht = h
 
823
    dp = d
 
824
end
817
825
        local next = getnext(current)
818
826
        local prev = previous
819
827
        setboth(current)
831
838
                b_cache[what] = this
832
839
            end
833
840
        end
834
 
        -- we need to trigger the right mode (else sometimes no whatits)
835
841
        local rest, more
836
842
        if force_origin then
837
843
            rest = emptyrule(wd,ht,dp) -- we accept some overhead
888
875
                dashed = 3*size,
889
876
            }
890
877
        end
 
878
        --
891
879
        local info = setlink(this and copylist(this) or nil,rest,more)
892
880
        --
893
881
        setlisttransparency(info,"trace:s")
934
922
            end
935
923
            info = new_hlist(info,wd,ht,dp,shift)
936
924
        end
 
925
-- if orientation then
 
926
--     setorientation(current,0,0)
 
927
--     setorientation(info,orientation,xoffset,yoffset)
 
928
-- end
937
929
        if next then
938
930
            setlink(info,next)
939
931
        end