@knowvah/dot-engine 0.1.0

package/src/common/shapeData.ts

@@ -0,0 +1,502 @@
+// SPDX-License-Identifier: EPL-2.0
+
+/**
+ * Polygon data constants ported from lib/common/shapes.c.
+ * Each constant mirrors a `static polygon_t p_*` declaration in the C source.
+ *
+ * @see lib/common/shapes.c
+ * @see lib/common/const.h
+ */
+
+import type { PolygonT, GraphvizPolygonStyle } from './types.js';
+
+// ---------------------------------------------------------------------------
+// Polygon-style enum constants — from lib/common/const.h
+// ---------------------------------------------------------------------------
+
+/** @see lib/common/const.h:DOGEAR */
+export const DOGEAR = 1;
+/** @see lib/common/const.h:TAB */
+export const TAB = 2;
+/** @see lib/common/const.h:FOLDER */
+export const FOLDER = 3;
+/** @see lib/common/const.h:BOX3D */
+export const BOX3D = 4;
+/** @see lib/common/const.h:COMPONENT */
+export const COMPONENT = 5;
+/** @see lib/common/const.h:PROMOTER */
+export const PROMOTER = 6;
+/** @see lib/common/const.h:CDS */
+export const CDS = 7;
+/** @see lib/common/const.h:TERMINATOR */
+export const TERMINATOR = 8;
+/** @see lib/common/const.h:UTR */
+export const UTR = 9;
+/** @see lib/common/const.h:PRIMERSITE */
+export const PRIMERSITE = 10;
+/** @see lib/common/const.h:RESTRICTIONSITE */
+export const RESTRICTIONSITE = 11;
+/** @see lib/common/const.h:FIVEPOVERHANG */
+export const FIVEPOVERHANG = 12;
+/** @see lib/common/const.h:THREEPOVERHANG */
+export const THREEPOVERHANG = 13;
+/** @see lib/common/const.h:NOVERHANG */
+export const NOVERHANG = 14;
+/** @see lib/common/const.h:ASSEMBLY */
+export const ASSEMBLY = 15;
+/** @see lib/common/const.h:SIGNATURE */
+export const SIGNATURE = 16;
+/** @see lib/common/const.h:INSULATOR */
+export const INSULATOR = 17;
+/** @see lib/common/const.h:RIBOSITE */
+export const RIBOSITE = 18;
+/** @see lib/common/const.h:RNASTAB */
+export const RNASTAB = 19;
+/** @see lib/common/const.h:PROTEASESITE */
+export const PROTEASESITE = 20;
+/** @see lib/common/const.h:PROTEINSTAB */
+export const PROTEINSTAB = 21;
+/** @see lib/common/const.h:RPROMOTER */
+export const RPROMOTER = 22;
+/** @see lib/common/const.h:RARROW */
+export const RARROW = 23;
+/** @see lib/common/const.h:LARROW */
+export const LARROW = 24;
+/** @see lib/common/const.h:LPROMOTER */
+export const LPROMOTER = 25;
+/** @see lib/common/const.h:CYLINDER */
+export const CYLINDER = 26;
+/** Star: custom 10-vertex generator (not a regular decagon).
+ *  @see lib/common/shapes.c:star_gen / star_vertices */
+export const STAR = 27;
+
+// ---------------------------------------------------------------------------
+// Default polygon style — all flags false, shape = 0
+// ---------------------------------------------------------------------------
+
+/** Zero-valued polygon style (C zero-init). */
+export const ZERO_STYLE: GraphvizPolygonStyle = {
+  filled: false,
+  radial: false,
+  rounded: false,
+  diagonals: false,
+  auxlabels: false,
+  invisible: false,
+  striped: false,
+  dotted: false,
+  dashed: false,
+  wedged: false,
+  underline: false,
+  fixedshape: false,
+  shape: 0,
+};
+
+// ---------------------------------------------------------------------------
+// Helper: build a polygon style with a custom shape discriminant
+// ---------------------------------------------------------------------------
+
+function withShape(shapeId: number): GraphvizPolygonStyle {
+  return { ...ZERO_STYLE, shape: shapeId };
+}
+
+function withFlags(
+  flags: Partial<GraphvizPolygonStyle>,
+): GraphvizPolygonStyle {
+  return { ...ZERO_STYLE, ...flags };
+}
+
+// ---------------------------------------------------------------------------
+// Polygon definitions — one per static polygon_t in shapes.c
+// ---------------------------------------------------------------------------
+
+/** @see lib/common/shapes.c:p_polygon */
+export const P_POLYGON: PolygonT = {
+  regular: false, peripheries: 1, sides: 0,
+  orientation: 0, distortion: 0, skew: 0,
+  option: ZERO_STYLE, vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_ellipse */
+export const P_ELLIPSE: PolygonT = {
+  regular: false, peripheries: 1, sides: 1,
+  orientation: 0, distortion: 0, skew: 0,
+  option: ZERO_STYLE, vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_circle */
+export const P_CIRCLE: PolygonT = {
+  regular: true, peripheries: 1, sides: 1,
+  orientation: 0, distortion: 0, skew: 0,
+  option: ZERO_STYLE, vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_egg */
+export const P_EGG: PolygonT = {
+  regular: false, peripheries: 1, sides: 1,
+  orientation: 0, distortion: -0.3, skew: 0,
+  option: ZERO_STYLE, vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_triangle */
+export const P_TRIANGLE: PolygonT = {
+  regular: false, peripheries: 1, sides: 3,
+  orientation: 0, distortion: 0, skew: 0,
+  option: ZERO_STYLE, vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_box */
+export const P_BOX: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 0, distortion: 0, skew: 0,
+  option: ZERO_STYLE, vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_square */
+export const P_SQUARE: PolygonT = {
+  regular: true, peripheries: 1, sides: 4,
+  orientation: 0, distortion: 0, skew: 0,
+  option: ZERO_STYLE, vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_plaintext */
+export const P_PLAINTEXT: PolygonT = {
+  regular: false, peripheries: 0, sides: 4,
+  orientation: 0, distortion: 0, skew: 0,
+  option: ZERO_STYLE, vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_plain */
+export const P_PLAIN: PolygonT = {
+  regular: false, peripheries: 0, sides: 4,
+  orientation: 0, distortion: 0, skew: 0,
+  option: ZERO_STYLE, vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_diamond */
+export const P_DIAMOND: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 45.0, distortion: 0, skew: 0,
+  option: ZERO_STYLE, vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_trapezium */
+export const P_TRAPEZIUM: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 0, distortion: -0.4, skew: 0,
+  option: ZERO_STYLE, vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_parallelogram */
+export const P_PARALLELOGRAM: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 0, distortion: 0, skew: 0.6,
+  option: ZERO_STYLE, vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_house */
+export const P_HOUSE: PolygonT = {
+  regular: false, peripheries: 1, sides: 5,
+  orientation: 0, distortion: -0.64, skew: 0,
+  option: ZERO_STYLE, vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_pentagon */
+export const P_PENTAGON: PolygonT = {
+  regular: false, peripheries: 1, sides: 5,
+  orientation: 0, distortion: 0, skew: 0,
+  option: ZERO_STYLE, vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_hexagon */
+export const P_HEXAGON: PolygonT = {
+  regular: false, peripheries: 1, sides: 6,
+  orientation: 0, distortion: 0, skew: 0,
+  option: ZERO_STYLE, vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_septagon */
+export const P_SEPTAGON: PolygonT = {
+  regular: false, peripheries: 1, sides: 7,
+  orientation: 0, distortion: 0, skew: 0,
+  option: ZERO_STYLE, vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_octagon */
+export const P_OCTAGON: PolygonT = {
+  regular: false, peripheries: 1, sides: 8,
+  orientation: 0, distortion: 0, skew: 0,
+  option: ZERO_STYLE, vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_note */
+export const P_NOTE: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 0, distortion: 0, skew: 0,
+  option: withShape(DOGEAR), vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_tab */
+export const P_TAB: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 0, distortion: 0, skew: 0,
+  option: withShape(TAB), vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_folder */
+export const P_FOLDER: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 0, distortion: 0, skew: 0,
+  option: withShape(FOLDER), vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_box3d */
+export const P_BOX3D: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 0, distortion: 0, skew: 0,
+  option: withShape(BOX3D), vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_component */
+export const P_COMPONENT: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 0, distortion: 0, skew: 0,
+  option: withShape(COMPONENT), vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_underline */
+export const P_UNDERLINE: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 0, distortion: 0, skew: 0,
+  option: withFlags({ underline: true }), vertices: null,
+};
+
+/**
+ * Cylinder: 19 sides, vertices computed at render time (null here).
+ * In C, vertices points to a cylinder_gen descriptor; here null is used
+ * since cylinder rendering is handled by the cylinder draw function.
+ *
+ * @see lib/common/shapes.c:p_cylinder
+ */
+export const P_CYLINDER: PolygonT = {
+  regular: false, peripheries: 1, sides: 19,
+  orientation: 0, distortion: 0, skew: 0,
+  option: withShape(CYLINDER), vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_doublecircle */
+export const P_DOUBLECIRCLE: PolygonT = {
+  regular: true, peripheries: 2, sides: 1,
+  orientation: 0, distortion: 0, skew: 0,
+  option: ZERO_STYLE, vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_invtriangle */
+export const P_INVTRIANGLE: PolygonT = {
+  regular: false, peripheries: 1, sides: 3,
+  orientation: 180.0, distortion: 0, skew: 0,
+  option: ZERO_STYLE, vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_invtrapezium */
+export const P_INVTRAPEZIUM: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 180.0, distortion: -0.4, skew: 0,
+  option: ZERO_STYLE, vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_invhouse */
+export const P_INVHOUSE: PolygonT = {
+  regular: false, peripheries: 1, sides: 5,
+  orientation: 180.0, distortion: -0.64, skew: 0,
+  option: ZERO_STYLE, vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_doubleoctagon */
+export const P_DOUBLEOCTAGON: PolygonT = {
+  regular: false, peripheries: 2, sides: 8,
+  orientation: 0, distortion: 0, skew: 0,
+  option: ZERO_STYLE, vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_tripleoctagon */
+export const P_TRIPLEOCTAGON: PolygonT = {
+  regular: false, peripheries: 3, sides: 8,
+  orientation: 0, distortion: 0, skew: 0,
+  option: ZERO_STYLE, vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_Mdiamond */
+export const P_MDIAMOND: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 45.0, distortion: 0, skew: 0,
+  option: withFlags({ diagonals: true, auxlabels: true }),
+  vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_Msquare */
+export const P_MSQUARE: PolygonT = {
+  regular: true, peripheries: 1, sides: 4,
+  orientation: 0, distortion: 0, skew: 0,
+  option: withFlags({ diagonals: true }), vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_Mcircle */
+export const P_MCIRCLE: PolygonT = {
+  regular: true, peripheries: 1, sides: 1,
+  orientation: 0, distortion: 0, skew: 0,
+  option: withFlags({ diagonals: true, auxlabels: true }),
+  vertices: null,
+};
+
+/**
+ * Star: 10 sides, vertices computed at render time (null here).
+ * In C, vertices points to star_gen; here null since star rendering
+ * is handled by star_inside and poly_gencode.
+ *
+ * @see lib/common/shapes.c:p_star
+ */
+export const P_STAR: PolygonT = {
+  regular: false, peripheries: 1, sides: 10,
+  orientation: 0, distortion: 0, skew: 0,
+  option: withShape(STAR), vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_promoter */
+export const P_PROMOTER: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 0, distortion: 0, skew: 0,
+  option: withShape(PROMOTER), vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_cds */
+export const P_CDS: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 0, distortion: 0, skew: 0,
+  option: withShape(CDS), vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_terminator */
+export const P_TERMINATOR: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 0, distortion: 0, skew: 0,
+  option: withShape(TERMINATOR), vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_utr */
+export const P_UTR: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 0, distortion: 0, skew: 0,
+  option: withShape(UTR), vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_insulator */
+export const P_INSULATOR: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 0, distortion: 0, skew: 0,
+  option: withShape(INSULATOR), vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_ribosite */
+export const P_RIBOSITE: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 0, distortion: 0, skew: 0,
+  option: withShape(RIBOSITE), vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_rnastab */
+export const P_RNASTAB: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 0, distortion: 0, skew: 0,
+  option: withShape(RNASTAB), vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_proteasesite */
+export const P_PROTEASESITE: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 0, distortion: 0, skew: 0,
+  option: withShape(PROTEASESITE), vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_proteinstab */
+export const P_PROTEINSTAB: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 0, distortion: 0, skew: 0,
+  option: withShape(PROTEINSTAB), vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_primersite */
+export const P_PRIMERSITE: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 0, distortion: 0, skew: 0,
+  option: withShape(PRIMERSITE), vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_restrictionsite */
+export const P_RESTRICTIONSITE: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 0, distortion: 0, skew: 0,
+  option: withShape(RESTRICTIONSITE), vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_fivepoverhang */
+export const P_FIVEPOVERHANG: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 0, distortion: 0, skew: 0,
+  option: withShape(FIVEPOVERHANG), vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_threepoverhang */
+export const P_THREEPOVERHANG: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 0, distortion: 0, skew: 0,
+  option: withShape(THREEPOVERHANG), vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_noverhang */
+export const P_NOVERHANG: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 0, distortion: 0, skew: 0,
+  option: withShape(NOVERHANG), vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_assembly */
+export const P_ASSEMBLY: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 0, distortion: 0, skew: 0,
+  option: withShape(ASSEMBLY), vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_signature */
+export const P_SIGNATURE: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 0, distortion: 0, skew: 0,
+  option: withShape(SIGNATURE), vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_rpromoter */
+export const P_RPROMOTER: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 0, distortion: 0, skew: 0,
+  option: withShape(RPROMOTER), vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_rarrow */
+export const P_RARROW: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 0, distortion: 0, skew: 0,
+  option: withShape(RARROW), vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_larrow */
+export const P_LARROW: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 0, distortion: 0, skew: 0,
+  option: withShape(LARROW), vertices: null,
+};
+
+/** @see lib/common/shapes.c:p_lpromoter */
+export const P_LPROMOTER: PolygonT = {
+  regular: false, peripheries: 1, sides: 4,
+  orientation: 0, distortion: 0, skew: 0,
+  option: withShape(LPROMOTER), vertices: null,
+};

package/src/common/shapes.ts

@@ -0,0 +1,187 @@
+// SPDX-License-Identifier: EPL-2.0
+
+/**
+ * Shape catalogue ported from lib/common/shapes.c.
+ *
+ * Exports the `Shapes` table (62 entries, indices 0–61), the
+ * `DEFAULT_SHAPE_NAME` constant, and the `bindShape` lookup function.
+ *
+ * @see lib/common/shapes.c:Shapes
+ * @see lib/common/shapes.c:bind_shape
+ */
+
+import { ShapeKind, type ShapeDesc, type ShapeFunctions } from './types.js';
+import {
+  P_BOX, P_POLYGON, P_ELLIPSE, P_EGG, P_TRIANGLE, P_CIRCLE,
+  P_SQUARE, P_PLAINTEXT, P_PLAIN, P_DIAMOND, P_TRAPEZIUM,
+  P_PARALLELOGRAM, P_HOUSE, P_PENTAGON, P_HEXAGON, P_SEPTAGON,
+  P_OCTAGON, P_NOTE, P_TAB, P_FOLDER, P_BOX3D, P_COMPONENT,
+  P_UNDERLINE, P_CYLINDER, P_DOUBLECIRCLE, P_INVTRIANGLE,
+  P_INVTRAPEZIUM, P_INVHOUSE, P_DOUBLEOCTAGON, P_TRIPLEOCTAGON,
+  P_MDIAMOND, P_MSQUARE, P_MCIRCLE, P_STAR, P_PROMOTER, P_CDS,
+  P_TERMINATOR, P_UTR, P_INSULATOR, P_RIBOSITE, P_RNASTAB,
+  P_PROTEASESITE, P_PROTEINSTAB, P_PRIMERSITE, P_RESTRICTIONSITE,
+  P_FIVEPOVERHANG, P_THREEPOVERHANG, P_NOVERHANG, P_ASSEMBLY,
+  P_SIGNATURE, P_RPROMOTER, P_RARROW, P_LARROW, P_LPROMOTER,
+} from './shapeData.js';
+import { polyGencode } from './poly-gencode.js';
+import { recordGencode } from './record.js';
+import { polyInside, recordInside, starInside } from './poly-inside.js';
+import { polyPort } from './compass-port.js';
+import { recordPort, recordPath } from './record-port.js';
+
+// ---------------------------------------------------------------------------
+// Shape function tables
+// ---------------------------------------------------------------------------
+
+/** insidefn entry: ShapeFunctions types the context as unknown. */
+const POLY_INSIDE = polyInside as ShapeFunctions['insidefn'];
+
+/** Function table for all polygon-based shapes. @see lib/common/shapes.c */
+const POLY_FNS: ShapeFunctions = {
+  initfn: null,
+  freefn: null,
+  portfn: polyPort as ShapeFunctions['portfn'],
+  insidefn: POLY_INSIDE,
+  pboxfn: null,
+  codefn: polyGencode,
+};
+
+/** Star reuses the polygon fns but with the star-specific inside test (edge
+ * clipping to the concave star boundary). @see lib/common/shapes.c:star_fns */
+const STAR_FNS: ShapeFunctions = {
+  ...POLY_FNS,
+  insidefn: starInside as ShapeFunctions['insidefn'],
+};
+
+/** Function table for record shapes. @see lib/common/shapes.c:record_fns */
+const RECORD_FNS: ShapeFunctions = {
+  initfn: null,
+  freefn: null,
+  portfn: recordPort as ShapeFunctions['portfn'],
+  insidefn: recordInside as ShapeFunctions['insidefn'],
+  pboxfn: recordPath as ShapeFunctions['pboxfn'],
+  codefn: recordGencode,
+};
+
+// Descriptor constructors (one per shape_functions group in shapes.c)
+const mkPoly = (n: string, p: ShapeDesc['polygon']): ShapeDesc =>
+  ({ name: n, fns: POLY_FNS, polygon: p, kind: ShapeKind.SH_POLY, usershape: false });
+const mkStar = (n: string, p: ShapeDesc['polygon']): ShapeDesc =>
+  ({ name: n, fns: STAR_FNS, polygon: p, kind: ShapeKind.SH_POLY, usershape: false });
+const mkPoint = (n: string, p: ShapeDesc['polygon']): ShapeDesc =>
+  ({ name: n, fns: POLY_FNS, polygon: p, kind: ShapeKind.SH_POINT, usershape: false });
+const mkRecord = (n: string): ShapeDesc =>
+  ({ name: n, fns: RECORD_FNS, polygon: null, kind: ShapeKind.SH_RECORD, usershape: false });
+const mkEpsf = (n: string): ShapeDesc =>
+  ({ name: n, fns: null, polygon: null, kind: ShapeKind.SH_EPSF, usershape: false });
+
+/**
+ * Shape catalogue — 62 entries (indices 0–61).
+ * Index 0 is the fallback for unknown shape names.
+ * Order matches lib/common/shapes.c:Shapes exactly.
+ *
+ * @see lib/common/shapes.c:Shapes
+ */
+export const Shapes: readonly ShapeDesc[] = [
+  /* [0]  */ mkPoly('box',              P_BOX),
+  /* [1]  */ mkPoly('polygon',          P_POLYGON),
+  /* [2]  */ mkPoly('ellipse',          P_ELLIPSE),
+  /* [3]  */ mkPoly('oval',             P_ELLIPSE),
+  /* [4]  */ mkPoly('circle',           P_CIRCLE),
+  /* [5]  */ mkPoint('point',           P_CIRCLE),
+  /* [6]  */ mkPoly('egg',              P_EGG),
+  /* [7]  */ mkPoly('triangle',         P_TRIANGLE),
+  /* [8]  */ mkPoly('none',             P_PLAINTEXT),
+  /* [9]  */ mkPoly('plaintext',        P_PLAINTEXT),
+  /* [10] */ mkPoly('plain',            P_PLAIN),
+  /* [11] */ mkPoly('diamond',          P_DIAMOND),
+  /* [12] */ mkPoly('trapezium',        P_TRAPEZIUM),
+  /* [13] */ mkPoly('parallelogram',    P_PARALLELOGRAM),
+  /* [14] */ mkPoly('house',            P_HOUSE),
+  /* [15] */ mkPoly('pentagon',         P_PENTAGON),
+  /* [16] */ mkPoly('hexagon',          P_HEXAGON),
+  /* [17] */ mkPoly('septagon',         P_SEPTAGON),
+  /* [18] */ mkPoly('octagon',          P_OCTAGON),
+  /* [19] */ mkPoly('note',             P_NOTE),
+  /* [20] */ mkPoly('tab',              P_TAB),
+  /* [21] */ mkPoly('folder',           P_FOLDER),
+  /* [22] */ mkPoly('box3d',            P_BOX3D),
+  /* [23] */ mkPoly('component',        P_COMPONENT),
+  /* [24] */ mkPoly('cylinder',         P_CYLINDER),
+  /* [25] */ mkPoly('rect',             P_BOX),
+  /* [26] */ mkPoly('rectangle',        P_BOX),
+  /* [27] */ mkPoly('square',           P_SQUARE),
+  /* [28] */ mkPoly('doublecircle',     P_DOUBLECIRCLE),
+  /* [29] */ mkPoly('doubleoctagon',    P_DOUBLEOCTAGON),
+  /* [30] */ mkPoly('tripleoctagon',    P_TRIPLEOCTAGON),
+  /* [31] */ mkPoly('invtriangle',      P_INVTRIANGLE),
+  /* [32] */ mkPoly('invtrapezium',     P_INVTRAPEZIUM),
+  /* [33] */ mkPoly('invhouse',         P_INVHOUSE),
+  /* [34] */ mkPoly('underline',        P_UNDERLINE),
+  /* [35] */ mkPoly('Mdiamond',         P_MDIAMOND),
+  /* [36] */ mkPoly('Msquare',          P_MSQUARE),
+  /* [37] */ mkPoly('Mcircle',          P_MCIRCLE),
+  /* [38] */ mkPoly('promoter',         P_PROMOTER),
+  /* [39] */ mkPoly('cds',              P_CDS),
+  /* [40] */ mkPoly('terminator',       P_TERMINATOR),
+  /* [41] */ mkPoly('utr',              P_UTR),
+  /* [42] */ mkPoly('insulator',        P_INSULATOR),
+  /* [43] */ mkPoly('ribosite',         P_RIBOSITE),
+  /* [44] */ mkPoly('rnastab',          P_RNASTAB),
+  /* [45] */ mkPoly('proteasesite',     P_PROTEASESITE),
+  /* [46] */ mkPoly('proteinstab',      P_PROTEINSTAB),
+  /* [47] */ mkPoly('primersite',       P_PRIMERSITE),
+  /* [48] */ mkPoly('restrictionsite',  P_RESTRICTIONSITE),
+  /* [49] */ mkPoly('fivepoverhang',    P_FIVEPOVERHANG),
+  /* [50] */ mkPoly('threepoverhang',   P_THREEPOVERHANG),
+  /* [51] */ mkPoly('noverhang',        P_NOVERHANG),
+  /* [52] */ mkPoly('assembly',         P_ASSEMBLY),
+  /* [53] */ mkPoly('signature',        P_SIGNATURE),
+  /* [54] */ mkPoly('rpromoter',        P_RPROMOTER),
+  /* [55] */ mkPoly('larrow',           P_LARROW),
+  /* [56] */ mkPoly('rarrow',           P_RARROW),
+  /* [57] */ mkPoly('lpromoter',        P_LPROMOTER),
+  /* [58] */ mkRecord('record'),
+  /* [59] */ mkRecord('Mrecord'),
+  /* [60] */ mkEpsf('epsf'),
+  /* [61] */ mkStar('star',             P_STAR),
+] as const;
+
+/**
+ * Name of the fallback shape used when a requested name is not found.
+ * Matches Shapes[0].name.
+ *
+ * @see lib/common/shapes.c:Shapes (first entry is default for no such shape)
+ */
+export const DEFAULT_SHAPE_NAME = 'box';
+
+/**
+ * Returns the ShapeDesc for the given name (case-sensitive).
+ * Falls back to Shapes[0] (box) when the name is not recognised.
+ *
+ * Equivalent to C's bind_shape() for built-in shapes; the user-shape
+ * and shapefile branches require a node argument not yet ported.
+ *
+ * @see lib/common/shapes.c:bind_shape
+ */
+export function bindShape(name: string, shapefile?: string): ShapeDesc {
+  // C bind_shape: a non-empty shapefile attr (safefile is a pass-through when
+  // no HTTP server / Gvfilepath is configured) switches any non-epsf shape to
+  // "custom" — a user_shape clone of Shapes[0] (box). Headless, the image
+  // never loads (gvusershape_size fails, warning printed at sizing), so the
+  // node renders as a plain box outline at its normal dims — which is exactly
+  // the headless oracle's output for shapefile nodes (graphs/user_shapes).
+  // The port models that endpoint directly: shapefile ⇒ the box descriptor.
+  // @see lib/common/shapes.c:bind_shape (3970), :3975-3978, :2022-2041
+  let effective = name;
+  if (shapefile !== undefined && shapefile !== '' && name !== 'epsf') {
+    effective = 'box';
+  }
+  for (const shape of Shapes) {
+    if (shape.name === effective) {
+      return shape;
+    }
+  }
+  return Shapes[0];
+}