cubeCorners :: GLfloat -> [(GLfloat, GLfloat, GLfloat)]
cubeCorners w =
  [ (w, w, w), (-w, w, w), (-w, -w, w), (w, -w, w)
  , (w, w, -w), (-w, w, -w), (-w, -w, -w), (w, -w, -w) ]
cubeCorners :: GLfloat -> [(GLfloat, GLfloat, GLfloat)]
cubeCorners w =
  [ (w, w, w), (-w, w, w), (-w, -w, w), (w, -w, w)
  , (w, w, -w), (-w, w, -w), (-w, -w, -w), (w, -w, -w) ]
cubeCorners w =
  [ (w, w, w), (-w, w, w), (-w, -w, w), (w, -w, w)
  , (w, w, -w), (-w, w, -w), (-w, -w, -w), (w, -w, -w) ]