From 1d0aed3d6eced8672a1a6c19cc2daea03f14a48e Mon Sep 17 00:00:00 2001
From: Mike Stillman <mikestillman1@gmail.com>
Date: Sun, 2 Jun 2024 19:15:11 -0400
Subject: [PATCH] some code added to help create PALP interface functions

---
 CYToolsM2/PALPInterface.m2 | 71 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 71 insertions(+)

diff --git a/CYToolsM2/PALPInterface.m2 b/CYToolsM2/PALPInterface.m2
index e132896..687daf6 100644
--- a/CYToolsM2/PALPInterface.m2
+++ b/CYToolsM2/PALPInterface.m2
@@ -156,3 +156,74 @@ runPoly(L1, "Tv")
 runPoly(L1, "Tp")
 runPoly(L1, "N")
 runPoly(L1, "t")
+
+-- Using nef.x
+3 1 1 1 0 0 0 0 0  2 0 0 0 1 1 0 0 0  3 0 0 0 0 0 1 1 1
+nef.x -h
+nef.x -p -c2 -V << FOO
+3 1 1 1 0 0 0 0 0  2 0 0 0 1 1 0 0 0  3 0 0 0 0 0 1 1 1
+FOO
+
+-- Using cws.x
+cws.x -h
+
+10 1 1 1 1 1 5 M:1128 6 N:8 6 H:1,0,976 [5910]
+
+# points are the columns
+poly.x -v << FOO
+5 1 1 1 1 1
+FOO
+
+# points are the rows
+poly.x -e << FOO
+5 1 1 1 1 1
+FOO
+
+# points are the rows
+poly.x -e << FOO
+45 5 6 7 8 9 10
+FOO
+
+run "poly.x -e << FOO
+3 1 1 1 0 0 0 3 0 0 0 1 1 1
+FOO
+"
+
+run "poly.x -e << FOO
+36 1 4 4 6 9 12
+FOO
+"
+
+str = get "!poly.x -e << FOO
+36 1 4 4 6 9 12
+FOO
+"
+L = lines str
+L = drop(drop(L, 3), -2)
+netList L
+L0 = separate(" +", L#0)
+for x in drop(L0, 1) list value x
+M = matrix for ell in L list (
+    L0 := separate(" +", ell);
+    for x in drop(L0, 1) list value x
+    )
+
+get "!poly.x -e << FOO
+42 2 3 5 5 6 21
+FOO
+"
+
+get "!poly.x -e << FOO
+143233 43 1651 3328 20226 47194 70791
+FOO
+"
+
+get "!poly.x -v << FOO
+143233 43 1651 3328 20226 47194 70791
+FOO
+"
+
+lines get///!curl "http://rgc.itp.tuwien.ac.at/fourfolds/db/5d_reflexive,h11=100.txt"///;
+#oo == 204046
+o31_100000
+