Skip to content

Commit

Permalink
Update PALPInterface.m2
Browse files Browse the repository at this point in the history
changed Drange to Degrees
  • Loading branch information
frenlye committed Jun 5, 2024
1 parent ec8ddbb commit f7a5402
Showing 1 changed file with 5 additions and 5 deletions.
10 changes: 5 additions & 5 deletions CYToolsM2/PALPInterface.m2
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,7 @@ newPackage(
)

export {
"palpVertices","getVerticesFromWS", "Drange", "getWSFromDim"
"palpVertices","getVerticesFromWS", "Degrees", "getWSFromDim"
}

-- str = get "!poly.x -v -r << FOO
Expand Down Expand Up @@ -53,17 +53,17 @@ getVerticesFromWS List := Matrix => wlist ->(

getVerticesFromWS({10,1,2,3,4})

getWSFromDim = method(Options => {Drange => null})
getWSFromDim = method(Options => {Degrees => null})

getWSFromDim ZZ := List => opts -> d -> (
drange := opts.Drange;
drange := opts.Degrees;
str0 := toString(d);
str1 := if opts.Drange === null then "!cws.x -w"|str0
str1 := if opts.Degrees === null then "!cws.x -w"|str0
else "!cws.x -w"|str0|" "|toString(drange_0)|" "|toString(drange_1);

PALPOutput := get str1;
L := lines PALPOutput;
L1 := if opts.Drange === null then L else drop(L,-1);
L1 := if opts.Degrees === null then L else drop(L,-1);
M := for ell in L1 list(
L0 := separate(" +",ell);
L0Mod := take(L0, {0,d+1});
Expand Down

0 comments on commit f7a5402

Please sign in to comment.