(require rsc3-interface/rsc3-interface)

(let* ((w  (make-window "frame.test"))
       (f0 (make-frame w #t))
       (d0 (make-dial f0 30 30 display))
       (f1 (make-frame f0 #f))
       (d1 (make-dial f1 30 30 display))
       (d2 (make-dial f1 30 30 display)))
  (window-show w))