;;; bad-meshes --- bad meshes god damn swamp -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:

(require 'cl-lib)
(cl-pushnew "." load-path :test #'string=)
(require 'luki-lisp)

(defconst bad-meshes-hexahedron nil)
(setf bad-meshes-hexahedron
  [[[ -0.5  0.5  0.5 ]  [  0.5  0.5 -0.5 ]  [  0.5  0.5  0.5 ]  [ 0.0 1.0 ] [ 1.0 0.0 ] [ 1.0 1.0 ]]    ; top    a (y =  1.0) BEG A SIDE
   [[ -0.5 -0.5  0.5 ]  [  0.5  0.5  0.5 ]  [  0.5 -0.5  0.5 ]  [ 0.0 1.0 ] [ 1.0 0.0 ] [ 1.0 1.0 ]]    ; front  a (z =  1.0)
   [[ -0.5 -0.5 -0.5 ]  [ -0.5  0.5  0.5 ]  [ -0.5 -0.5  0.5 ]  [ 0.0 1.0 ] [ 1.0 0.0 ] [ 1.0 1.0 ]]    ; left   a (x =  1.0)
   [[  0.5 -0.5  0.5 ]  [  0.5  0.5 -0.5 ]  [  0.5 -0.5 -0.5 ]  [ 0.0 1.0 ] [ 1.0 0.0 ] [ 1.0 1.0 ]]    ; right  a (x = -1.0)
   [[  0.5 -0.5 -0.5 ]  [ -0.5  0.5 -0.5 ]  [ -0.5 -0.5 -0.5 ]  [ 0.0 1.0 ] [ 1.0 0.0 ] [ 1.0 1.0 ]]    ; back   a (z = -1.0)
   [[  0.5 -0.5 -0.5 ]  [ -0.5 -0.5  0.5 ]  [  0.5 -0.5  0.5 ]  [ 0.0 1.0 ] [ 1.0 0.0 ] [ 1.0 1.0 ]]    ; bottom a (y = -1.0) END A SIDE
   [[  0.5 -0.5 -0.5 ]  [ -0.5 -0.5 -0.5 ]  [ -0.5 -0.5  0.5 ]  [ 0.0 1.0 ] [ 0.0 0.0 ] [ 1.0 0.0 ]]    ; bottom b (y = -1.0) BEG B SIDE
   [[  0.5 -0.5 -0.5 ]  [  0.5  0.5 -0.5 ]  [ -0.5  0.5 -0.5 ]  [ 0.0 1.0 ] [ 0.0 0.0 ] [ 1.0 0.0 ]]    ; back   b (z = -1.0)
   [[  0.5 -0.5  0.5 ]  [  0.5  0.5  0.5 ]  [  0.5  0.5 -0.5 ]  [ 0.0 1.0 ] [ 0.0 0.0 ] [ 1.0 0.0 ]]    ; right  b (x = -1.0)
   [[ -0.5 -0.5 -0.5 ]  [ -0.5  0.5 -0.5 ]  [ -0.5  0.5  0.5 ]  [ 0.0 1.0 ] [ 0.0 0.0 ] [ 1.0 0.0 ]]    ; left   b (x =  1.0)
   [[ -0.5 -0.5  0.5 ]  [ -0.5  0.5  0.5 ]  [  0.5  0.5  0.5 ]  [ 0.0 1.0 ] [ 0.0 0.0 ] [ 1.0 0.0 ]]    ; front  b (z =  1.0)
   [[ -0.5  0.5  0.5 ]  [ -0.5  0.5 -0.5 ]  [  0.5  0.5 -0.5 ]  [ 0.0 1.0 ] [ 0.0 0.0 ] [ 1.0 0.0 ]]]) ; top    b (y =  1.0) END B SIDE

(<- 'bad-meshes)
;;; bad-meshes.el ends here