#! /usr/bin/gawk -f
# Last edited on 2025-08-07 18:04:06 by stolfi

BEGIN {
  # Defines the wire outline of the RGB cube.
  usage = ( ARGV[0] " >> ${geom_file}" );
  output_cube(0.3,0.3,0.3);
}

function output_cube(re,ge,be,   x,y,z, kx,ky,kz) {
  printf "-box %6.4f %6.4f %6.4f\n", re, ge, be;
  for (kx = 0; kx < 2; kx++) {
    for (ky = 0; ky < 2; ky++) {
      for (kz = 0; kz < 2; kz++) {
        x = kx - 0.5;
        y = ky - 0.5;
        z = kz - 0.5;
        printf "  %+7.4f %+7.4f %+7.4f\n", x, y, z;
      }
    }
  }
}