From 36b09506c54298bb36fd5ac42f4993742b21fa51 Mon Sep 17 00:00:00 2001
From: npgallup <38515843+npgallup@users.noreply.github.com>
Date: Sun, 2 Jun 2024 17:01:56 -0600
Subject: [PATCH] boilerplate implementation and testing for
 projectivebundledivisors

---
 ToricExtras/ProjectiveBundlesDivisors.m2 | 24 +++++++++++++++++++++++-
 1 file changed, 23 insertions(+), 1 deletion(-)

diff --git a/ToricExtras/ProjectiveBundlesDivisors.m2 b/ToricExtras/ProjectiveBundlesDivisors.m2
index e89be07..9d76446 100644
--- a/ToricExtras/ProjectiveBundlesDivisors.m2
+++ b/ToricExtras/ProjectiveBundlesDivisors.m2
@@ -1,4 +1,23 @@
 needsPackage "NormalToricVarieties"
+
+divisorsToVariety := method();
+
+--check that underlying varieties of given divisors are same
+
+divisorsToVariety List := (listOfDivisors) -> (
+
+inputVariety := variety(listOfDivisors#0);
+
+-- 
+
+rayList := {};
+coneList := {};
+outputVariety := normalToricVariety(rayList , coneList);
+
+);
+
+end ------------------------------
+
 rayList = {{-1} , {1}}
 coneList = {{1}, {0}}
 X = normalToricVariety (rayList, coneList)
@@ -12,4 +31,7 @@ rayListH = { {1 , 0} , { 0 , 1} , {-1, 3}, {0 , -1}}
 coneListH = { { 0 , 1} , { 1, 2} , { 2 , 3} , {3 , 0} }
 Y = normalToricVariety (rayListH , coneListH)
 Y1 = hirzebruchSurface 3
-max Y1
\ No newline at end of file
+max Y1
+
+D1 = toricDivisor ( {0 , 7} , X)
+D0 = toricDivisor ( { 0 , 0}, X)