// CLP.fe // Fundamental region for Schoen's triply periodic minimal surface CLP // generated from angle bracket spanner. // Programmer: Ken Brakke, brakke@susqu.edu, http://www.susqu.edu /* Commands: gogo - typical evolution showcube - full unit cell cube layer - 4 x 4 layer of unit cells transforms off - show just single fundamental region setcolor - to color one side yellow, as in my web page. To turn off showing all the edges in the graphics display, hit the "e" key in the graphics window. */ #define HT 1 #define WD 1 view_transform_generators 6 swap_colors -1 0 0 0 // a: y axis 0 -1 0 0 0 0 1 0 0 0 0 1 swap_colors 1 0 0 0 // b: top 0 -1 0 0 0 0 -1 2*HT 0 0 0 1 swap_colors -1 0 0 2*WD // c: front vert 0 -1 0 0 0 0 1 0 0 0 0 1 swap_colors -1 0 0 2*WD // d: front horiz 0 1 0 0 0 0 -1 0 0 0 0 1 swap_colors 1 0 0 0 // e: right flat 0 -1 0 2 0 0 -1 0 0 0 0 1 swap_colors -1 0 0 0 // f: y axis 0 1 0 0 0 0 -1 0 0 0 0 1 vertices 1 0 0 0 fixed 2 0 0 HT fixed 3 WD 0 HT fixed 4 WD 0 0 fixed 5 WD 1 0 fixed 6 0 1 0 fixed edges 1 1 2 fixed 2 2 3 fixed 3 3 4 fixed 4 4 5 fixed 5 5 6 fixed 6 6 1 fixed faces 1 1 2 3 4 5 6 read hessian_normal on; // typical evolution, about as simple as it gets gogo := { r; g 10; r; g 10; r; g 10; r; g 10; hessian; } // command to show full cell in cube showcube := { transform_expr "af"; transforms on; show_trans "R"; } layer := { transform_expr "dfecdeaf"; transforms on; show_trans "R"; } // Set inside color to yellow setcolor := { set facet backcolor yellow } /* Commands: gogo - typical evolution showcube - full unit cell cube layer - 4 x 4 layer of unit cells transforms off - show just single fundamental region setcolor - to color one side yellow, as in my web page. To turn off showing all the edges in the graphics display, hit the "e" key in the graphics window. */