Nested Structure (Bytefield)

(defattrs :hdr {:fill "#e4b5f7"})
(defattrs :body {:fill "#a0fafa"})

(defn draw-group-label-header [span label]
  (draw-box (text label [:math {:font-size 12}]) {:span span :borders #{} :height 14}))

(draw-column-headers)
(draw-group-label-header 4 "Magic")
(draw-group-label-header 2 "Version")
(draw-group-label-header 2 "Type")
(draw-group-label-header 4 "Length")
(next-row 14)
(draw-box (hex-text 0xFFFFFFFF 4 :bold) [:hdr {:span 4}])
(draw-box (hex-text 1 2 :bold) [:hdr {:span 2}])
(draw-box (hex-text 0x0A 2 :bold) [:hdr {:span 2}])
(draw-box (hex-text 256 4 :bold) [:hdr {:span 4}])
(draw-gap "Payload" {:min-label-columns 4})
(draw-bottom)