(with-animation kind-of-animation
   (let* ((a-node  (svg-node rectangular x y 'step "n" ))
          ...
          (an-edge (svg-edge a-node another-node 'step "m" ))
          ...
         )
     (svg-graph 'from-step "f" 'to-step "t" 
        (list a-node ...)
        (list an-edge ...)
        (explanations 'x 10 'y 430 'width 600 'height 100 
          (explanation 'step "i" "Explanation text")
          ...)
     ) ))