      :text (text-transformation-matrix state shape)
      :circle (circle-transformation-matrix state shape)
      :icon (icon-transformation-matrix state shape)
+     :icon-raw (icon-transformation-matrix state shape)
      :image (icon-transformation-matrix state shape)
      :path (path-transformation-matrix state shape)
      :group (group-transformation-matrix state shape))))

    :rect (move-rect-vertex shape vid dpoint)
    :text (move-rect-vertex shape vid dpoint)
    :icon (move-rect-vertex shape vid dpoint)
    :path (move-rect-vertex shape vid dpoint)
    :circle (move-circle-vertex shape vid dpoint)))


  (case (:type shape)
    :rect (setup-rect shape props)
    :icon (setup-rect shape props)
    :icon-raw (setup-rect shape props)
    :text (setup-rect shape props)
    :circle (setup-circle shape props)
    :group (setup-group shape props)))
