     (.setLayout frm (BorderLayout.))
     (-> frm .getContentPane (.add (.getCanvas wnd) BorderLayout/CENTER))
     (.setSize frm 300 300)
-    (let [x (add-thing-to-move-around scn 100 100)
-	  y (add-thing-to-move-around scn 50 50)]
-      (connect-nodes scn x y))
+    (let [x (add-node scn 100 100)
+	  y (add-node scn 50 50)
+	  z (add-node scn 75 23)]
+      (connect-nodes scn x y)
+      (connect-nodes scn x z)
+      (connect-nodes scn y z))
     (.setVisible frm true)))

	   (let [dx (- x @x0)
		 dy (- y @y0)]
	     (when @interaction-obj
	       (.translate @interaction-obj dx dy)
	       (doseq [c (:upper @(.getUserData @interaction-obj))]
		 (let [c1 (aget (.getX c) 0)
		       c2 (aget (.getY c) 0)
		       d1 (aget (.getX c) 1)
		       d2 (aget (.getY c) 1)]
		   (.setGeometry c (+ c1 dx) (+ c2 dy) d1 d2)))
	       (doseq [c (:lower @(.getUserData @interaction-obj))]
		 (let [c1 (aget (.getX c) 0)
		       c2 (aget (.getY c) 0)
		       d1 (aget (.getX c) 1)
		       d2 (aget (.getY c) 1)]

	    (ref-set interaction-obj nil))
	   nil)))))

(defn show-some-picture []
  (let [wnd (GWindow.)
	scn (GScene. wnd)
