(save-name "p-tetrahedron.scm")

(clear)

(hint-normal)

(define (build-tetrahedron)
  (let ((ob (build-polygons 12 2)))
    (grab ob)
    (pdata-set "p"  0 (vector -0.5 -0.5 -0.5))
    (pdata-set "p"  1 (vector -0.5  0.5  0.5))
    (pdata-set "p"  2 (vector  0.5  0.5 -0.5))

    (pdata-set "p"  3 (vector -0.5 -0.5 -0.5))
    (pdata-set "p"  4 (vector  0.5 -0.5  0.5))
    (pdata-set "p"  5 (vector -0.5  0.5  0.5))

    (pdata-set "p"  6 (vector -0.5  0.5  0.5))
    (pdata-set "p"  7 (vector  0.5 -0.5  0.5))
    (pdata-set "p"  8 (vector  0.5  0.5 -0.5))

    (pdata-set "p"  9 (vector -0.5 -0.5 -0.5))
    (pdata-set "p" 10 (vector  0.5  0.5 -0.5))
    (pdata-set "p" 11 (vector  0.5 -0.5  0.5))
    (recalc-normals)
    (finalise)
    (ungrab)
    ob
  )
)


(colour (vector 1 1 0))
(build-tetrahedron)

(translate (vector 3 0 0))
(colour (vector 1 1 0))
(build-cube)