more drawing

coherentgraphics · May 8, 2024 · d44b65b · d44b65b
1 parent c93e545
commit d44b65b
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 4 deletions.
diff --git a/cpdflibtest.js b/cpdflibtest.js
@@ -972,12 +972,14 @@ console.log("---cpdf_drawBez23()");
 cpdf.drawBez23(50, 450, 200, 50);
 console.log("---cpdf_drawBez13()");
 cpdf.drawBez13(75, 150, 123, 456);
+cpdf.drawStroke();
 console.log("---cpdf_drawCircle()");
 cpdf.drawFillColRGB(0, 1, 0.5);
+cpdf.drawCircle(500, 400, 50);
 cpdf.drawFill();
 console.log("---cpdf_drawStrokeColGrey()");
 cpdf.drawStrokeColGrey(0.5);
-cpdf.drawCircle(500, 420, 50);
+cpdf.drawCircle(500.0, 420.0, 50.0);
 cpdf.drawStroke();
 console.log("---cpdf_drawStrokeColRGB()");
 cpdf.drawStrokeColRGB(0.5, 0, 0.5);
@@ -989,15 +991,15 @@ cpdf.drawCircle(500, 460, 50);
 cpdf.drawStroke()
 console.log("---cpdf_drawFillColGrey()");
 cpdf.drawFillColGrey(0.5);
-cpdf.drawCircle(500, 460, 50);
+cpdf.drawCircle(500, 480, 50);
 cpdf.drawFill();
 console.log("---cpdf_drawFillColRGB()");
 cpdf.drawFillColRGB(0.5, 0, 0.5);
-cpdf.drawCircle(500, 480, 50);
+cpdf.drawCircle(500, 500, 50);
 cpdf.drawFill();
 console.log("---cpdf_drawFillColCYMK()");
 cpdf.drawFillColRGB(0.5, 0, 0.5);
-cpdf.drawCircle(500, 500, 50);
+cpdf.drawCircle(500, 520, 50);
 cpdf.drawFill();
 console.log("---cpdf_drawFill()");
 cpdf.drawFill();

diff --git a/exports.ml b/exports.ml
@@ -98,6 +98,12 @@ let _ =
        val right = 10
        val diagonal = 11
        val reversediagonal = 12
+       val capButt = 0
+       val capRound = 1
+       val capSquare = 2
+       val joinMiter = 0
+       val joinRound = 1
+       val joinBevel = 2
        val timesRoman = Js.string "Times-Roman"
        val timesBold = Js.string "Times-Bold"
        val timesItalic = Js.string "Times-Italic"