Sunday 6 January 2019

Viewport Text

This is less of a snippet and more a full-blown script...

Allows you to display viewport text for:
  • object name and type
  • edge length
  • face area and texels
Text is displayed on the object or at the corner of the viewport, according to preference.

A UI is provided to configure the viewport settings, and may be closed once the viewport text is activated.





global ViewportText_EdgeEnabled
global ViewportText_EdgeEnabled
global ViewportText_EdgeCount
global ViewportText_EdgeTotal
global ViewportText_EdgeAverage

global ViewportText_ObjectEachEnabled
global ViewportText_ObjectName
global ViewportText_ObjectType
global ViewportText_ObjectColorBy

global ViewportText_ObjectSummaryEnabled
global ViewportText_ObjectSummaryName
global ViewportText_ObjectSummaryType

global ViewportText_FaceCount
global ViewportText_FaceArea
global ViewportText_FaceTexels

global ViewportText_TexelsPerMeter
global ViewportText_Position
global ViewportText_Enabled

global ViewportText_VerticalOffset
global GW_displayViewportText
global ViewportText_ObjectColorByColors = #("Always Yellow", "WireColor", "SuperClass", "Geometry SubClass") 


if ViewportText_Enabled == undefined then
(
    
    ViewportText_ObjectEachEnabled = True
    ViewportText_ObjectName = True
    ViewportText_ObjectType = True
    ViewportText_ObjectColorBy = "Geometry SubClass"

    ViewportText_ObjectSummaryEnabled = True
    ViewportText_ObjectSummaryName = True
    ViewportText_ObjectSummaryType = True
    
    ViewportText_EdgeCount = true
    ViewportText_EdgeTotal = true
    ViewportText_EdgeAverage = true
    
    ViewportText_FaceCount = True
    ViewportText_FaceArea = True
    ViewportText_FaceTexels = True
    
    ViewportText_VerticalOffset = 0
    ViewportText_TexelsPerMeter = 1024
    ViewportText_Position = "Bottom-left"
    ViewportText_Enabled = True

)

unregisterRedrawViewsCallback GW_displayViewportText

----------------------
-- Helper Funcitons
----------------------

fn round_to val n =
(
local mult = 10.0 ^ n
(floor ((val * mult) + 0.5)) / mult
)

fn systemAreaToMetersSquared systemUnitsArea =
(
    systemUnitsAreaInMeterSquare = case units.SystemType of
    (
        #Inches: 1550.0
        #Feet: 10.7639
        #Miles: 0.000000386102
        #Millimeters: 1000000.0
        #Centimeters: 10000.0
        #Meters: 1.0
        #Kilometers: 0.000001
    )
    
    meterssquared = systemUnitsArea / systemUnitsAreaInMeterSquare
    meterssquared *= (units.SystemScale ^ 2) 
    return round_to meterssquared 2
)

fn systemAreaToTexelArea systemUnitsArea =
(
    meterssquared = systemAreaToMetersSquared systemUnitsArea
    onesidetexels = (((meterssquared ^ 0.5) * ViewportText_TexelsPerMeter) as integer) as string
    
    return (onesidetexels + "x" + onesidetexels + "px")
)

fn colorFromSuperClass obj =
(
    cyan = color 0 255 255
    return case (superclassof obj) of
    (
        GeometryClass: white
        Helper: green
        Shape: cyan
        Camera: orange
        Light: yellow
        System: red
        SpaceWarpObject: red
        UndefinedClass: red
        default: red
    )
)

fn colorFromGeometryClass obj =
(
    cyan = color 0 255 255
    if superclassof obj != GeometryClass then return white
    return case (classof obj) of
    (
        Editable_Poly: green
        PolyMeshObject: green
        Editable_Mesh: yellow
        Box: cyan
        Plane: cyan
        cone: cyan
        geosphere: cyan
        sphere: cyan
        cylinder:cyan
        torus: cyan
        pyramid: cyan
        teapot: cyan
        default: if canConvertTo o Editable_Poly then orange else red
    )
)


----------------------
-- Viewport Draw
----------------------

fn drawText str textcolor worldpos textposition =
(
    extents = gw.getTextExtent str
    if textposition == "Selection" then
    (
        screenpos = gw.wTransPoint worldpos
        screenpos = [screenpos.x, gw.getWinSizeY()-screenpos.y,0]
        
        if ViewportText_VerticalOffset > 15 or ViewportText_VerticalOffset < -15 then
        (
            gw.setColor #line textcolor
            endoffset = if ViewportText_VerticalOffset > 0 then -10 else 5
            gw.hPolyline #(screenpos, screenpos + [0,ViewportText_VerticalOffset + endoffset,0]) false
        )
        
        screenpos = [screenpos.x - (extents.x / 2.0), screenpos.y - (extents.y / 2.0) + ViewportText_VerticalOffset, 0]
        gw.htext screenpos str color:textcolor
        
        
    )
    else
    (
        case textposition of
        (
            "Bottom-left": pos = [50, 20, 0]
            "Bottom-Right": pos = [gw.getWinSizeX()-extents.x, 20, 0]
            "Top-Right": pos = [gw.getWinSizeX()-extents.x, gw.getWinSizeY()-extents.y, 0]
        )
        gw.htext pos str color:textcolor
    )
  gw.enlargeUpdateRect #whole  
)


fn DisplayEdgeMeasure =
(
    str = ""
    worldpos = [0,0,0]
    
    obj = selection[1]
    op = if classof obj == editable_poly or classof obj == polymeshobject then polyop else meshop
    
    edges = getedgeselection obj as array
    if edges.count == 0 then return false
    edgelengths = #()
    midpoints = #()

    for i = 1 to edges.count do
    (
        verts = op.getvertsusingedge obj edges[i] as array
        v1 = op.getvert obj verts[1]
        v2 = op.getvert obj verts[2]
        edgelengths[i] = distance v1 v2
        midpoints[i] = (v1 + v2) / 2.0
    )

    totallength = 0
    for edlen in edgelengths do totallength += edlen
        
    midpoint = 0
    for m in midpoints do midpoint += m
    midpoint = midpoint / (midpoints.count as float)
    worldpos = midpoint

    --format "edges: %, total: %, average: %\n" edges.count totallength (totallength / edges.count)
    if ViewportText_EdgeCount then 
    (
        str += "edges: " + edges.count as string + "     "
    )
    if ViewportText_EdgeTotal then
    (
        str += "total: " + units.formatValue totallength + "    "
    )
    if ViewportText_EdgeAverage then 
    (
        str += "average: " + units.formatValue (totallength / (edges.count as float)) + "  "
    )
    
    drawText str white worldpos ViewportText_Position
)

fn DisplayFaceMeasure =
(
    str = ""
    
    worldpos = [0,0,0]
    obj = selection[1]
    op = if classof obj == editable_poly or classof obj == polymeshobject then polyop else meshop
    
    faces = (getfaceselection obj) as array
    if faces.count == 0 then return false
    faceareas = #()
    midpoints = #() 

    for i = 1 to faces.count do
    (
        faceareas[i] = op.getfacearea obj faces[i]
        midpoints[i] = op.getfacecenter obj faces[i]
    )

    totalarea = 0
    for a in faceareas do totalarea += a
    
        
    midpoint = [0,0,0]
    for m in midpoints do midpoint += m
    midpoint = midpoint / (midpoints.count as float)
    worldpos = midpoint
--     print "--"
--     print (midpoints as array)
--     print worldpos
    
    if ViewportText_FaceCount then 
    (
        str += "faces: " + faces.count as string + "     "
    )
    if ViewportText_FaceArea then
    (
        str += "area: " + ((systemAreaToMetersSquared totalarea) as string) + "msq    "
    )
    if ViewportText_FaceTexels then
    (
        str += "texels: " + systemAreaToTexelArea totalarea + "    "
    )
    drawText str white worldpos ViewportText_Position
)


fn DisplayObjects =
(
    worldpos = [0,0,0]
    sel = getcurrentselection()
    
    matchingclasses = true
    (
        for o in sel do
        (
            if classof o != classof sel[1] then matchingclasses = false
        )
    )
    matchingsuperclasses = true
    for o in sel do (if superclassof o != superclassof sel[1] then matchingsuperclasses = false; exit)

    if ViewportText_ObjectEachEnabled then
    (
        if sel.count < 1000 then -- too many objects would be very cluttered on screen and hurt perf
        (            
            for obj in sel do
            (
                str = ""
                if ViewportText_ObjectName then str += obj.name + "    "
                if ViewportText_ObjectType then str += ((classof obj) as string) + "    "
                case ViewportText_ObjectColorBy of
                (
                    "Always Yellow": textcolor = yellow
                    "WireColor": try (textcolor = obj.wirecolor) catch (textcolor = yellow)
                    "SuperClass": textcolor = colorFromSuperClass obj
                    "Geometry SubClass": textcolor = colorFromGeometryClass obj
                )
                if textcolor == undefined then (print obj.name; print obj.wirecolor)
                
                worldpos = obj.pos
                drawText str textcolor worldpos "Selection"
            )
        )
    )

    if ViewportText_ObjectSummaryEnabled then
    (
        str = ""
        if ViewportText_ObjectSummaryName then
        (
            if sel.count == 1 then str += sel[1].name + "    "
                else str += sel.count as string + " objects    "
        )
        
        if ViewportText_ObjectSummaryType then
        (
            if matchingclasses then str += (classof sel[1]) as string + " (" + sel.count as string + ")    "
                else str += "various types (" + sel.count as string + ")    "
        )
        
        pos = ViewportText_Position
        -- prevent summary and each from overlapping
        if ViewportText_ObjectEachEnabled and ViewportText_Position == "Selection" then
        (
            pos = "Bottom-left"
        )
        
        worldpos = [0,0,0]
        for o in sel do worldpos += o.pos
        worldpos = worldpos / (sel.count as float)
        
        drawText str yellow worldpos pos
    )    
)


fn GW_displayViewportText =
(
    
    gw.setTransform (matrix3 1)
    
    -- OBJECTS
    if subobjectlevel == 0 or subobjectlevel == undefined and selection.count > 0 then
    (
        DisplayObjects()
    )
    -- EDGES
    if (subobjectlevel == 2 or subobjectlevel == 3) and selection.count == 1 then
    (
        DisplayEdgeMeasure()
    )
    -- FACES
    if (subobjectlevel == 4 or subobjectlevel == 5) and selection.count == 1 then
    (
        DisplayFaceMeasure()
    )
)


----------------------
--            UI
----------------------

try (destroydialog rol_ViewportText) catch()

rollout rol_ViewportText "Viewport Text"
(
    group "Per Object"
    (
        checkbox chk_objectname "Object Name"
        checkbox chk_objecttype "Object Type"
        radiobuttons rdo_colorby "Color By" labels:ViewportText_ObjectColorByColors
        checkbox chk_objecteach "Enabled"
    )
    group "Object Summary"
    (
        checkbox chk_objectsummaryname "Object Name / Count"
        checkbox chk_objectsummarytype "Object Type + Count"
        checkbox chk_objectsummaryenabled "Enabled"
    )
    group "Edge"
    (
        checkbox chk_edgecount "Edge Count"
        checkbox chk_edgetotal "Edge Total"
        checkbox chk_edgeaverage "Edge Average"
    )
    group "Face"
    (
        checkbox chk_facecount "Face Count"
        checkbox chk_facearea "Surface Area"
        checkbox chk_facetexels "Texel Area"
    )
    
    spinner spn_texelsPerMeter "Texels per Meter  " range:[128, 4096, 1024] scale:128 type:#integer offset:[46,4] width:110
    label lbl_pos "Position" across:2 width:80 offset:[8,2]
    dropdownlist ddl_position "" items:#("Selection", "Bottom-left", "Bottom-Right", "Top-Right") width:90 offset:[-20,0]
    spinner spn_verticalOffset "Vertical Offset      " range:[-50,50,0] scale:5 type:#integer offset:[46,-3] width:110
    checkbutton btn_enable "Enable" width:100 offset:[0,-2]
    
    fn updatePrefs =
    (
        ViewportText_EdgeCount = chk_edgecount.checked
        ViewportText_EdgeTotal = chk_edgetotal.checked
        ViewportText_EdgeAverage = chk_edgeaverage.checked
        
        ViewportText_ObjectEachEnabled = chk_objecteach.checked
        ViewportText_ObjectName = chk_objectname.checked
        ViewportText_ObjectType = chk_objecttype.checked
        ViewportText_ObjectColorBy = ViewportText_ObjectColorByColors[rdo_colorby.state]
        
        ViewportText_ObjectSummaryEnabled = chk_objectsummaryenabled.checked
        ViewportText_ObjectSummaryName = chk_objectsummaryname.checked
        ViewportText_ObjectSummaryType = chk_objectsummarytype.checked
        
        ViewportText_FaceCount = chk_facecount.checked
        ViewportText_FaceArea = chk_facearea.checked
        ViewportText_FaceTexels = chk_facetexels.checked
        
        ViewportText_TexelsPerMeter = spn_texelsPerMeter.value
        ViewportText_Position = ddl_position.selected
        ViewportText_VerticalOffset = spn_verticalOffset.value
        ViewportText_Enabled = btn_enable.checked
        
        
        btn_enable.text = if ViewportText_Enabled then "Active" else "Click to Activate"
        unregisterRedrawViewsCallback GW_displayViewportText
        if ViewportText_Enabled then registerRedrawViewsCallback GW_displayViewportText 
        redrawViews()     
    )
    
    on rol_ViewportText open do
    (
        chk_edgecount.checked = ViewportText_EdgeCount
        chk_edgetotal.checked = ViewportText_EdgeTotal
        chk_edgeaverage.checked = ViewportText_EdgeAverage
        
        chk_objecteach.checked = ViewportText_ObjectEachEnabled
        chk_objectname.checked = ViewportText_ObjectSummaryName
        chk_objecttype.checked = ViewportText_ObjectType
        rdo_colorby.state = finditem ViewportText_ObjectColorByColors ViewportText_ObjectColorBy
        
        chk_objectsummaryname.checked = ViewportText_ObjectSummaryEnabled
        chk_objectsummarytype.checked = ViewportText_ObjectSummaryType
        chk_objectsummaryenabled.checked = ViewportText_ObjectSummaryEnabled
        
        chk_facecount.checked = ViewportText_FaceCount
        chk_facearea.checked = ViewportText_FaceArea
        chk_facetexels.checked = ViewportText_FaceTexels
        
        spn_texelsPerMeter.value = ViewportText_TexelsPerMeter
        ddl_position.selection = finditem ddl_position.items ViewportText_Position
        spn_verticalOffset.value = ViewportText_VerticalOffset
        btn_enable.checked = ViewportText_Enabled
        
        updatePrefs()
    )
    
    on chk_edgecount changed val do updatePrefs()
    on chk_edgetotal changed val do updatePrefs()
    on chk_edgeaverage changed val do updatePrefs()
    
    on chk_objectname changed val do updatePrefs()
    on chk_objecttype changed val do updatePrefs()
    on rdo_colorby changed val do updatePrefs()
    on chk_objecteach changed val do updatePrefs()
    
    on chk_objectsummaryname changed val do updatePrefs()
    on chk_objectsummarytype changed val do updatePrefs()
    on chk_objectsummaryenabled changed val do updatePrefs()
    
    on chk_facecount changed val do updatePrefs()
    on chk_facearea changed val do updatePrefs()
    on chk_facetexels changed val do updatePrefs()
    on spn_texelsPerMeter changed val do updatePrefs()
    
    on btn_enable changed val do updatePrefs()
    on ddl_position selected val do updatePrefs()
    on spn_verticalOffset changed val do updatePrefs()
)

createdialog rol_ViewportText

1 comment: