(use gts)

(define s1 (cylinder 1.0 3))
(define out (fopen "cylinder.gts" "w+"))
(surface-write s1 out)
(fclose out)
(surface-destroy s1)

(define s2 (cone 2.0 3))
(define out (fopen "cone.gts" "w+"))
(surface-write s2 out)
(fclose out)
(surface-destroy s2)