(use gts)

(define s1 (cube))
(define out (fopen "cube.gts" "w+"))
(surface-rotate s1 dx: 1.0 dy: 1.0 dz: 1.0 angle: 45.0)
(surface-write s1 out)
(fclose out)
(surface-destroy s1)

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

(define s3 (sphere 3))
(define out (fopen "sphere.gts" "w+"))
(surface-write s3 out)
(fclose out)
(surface-destroy s3)