From d5e963e68f139354782c3667f054b443048c4d5e Mon Sep 17 00:00:00 2001 From: Erik Paemurru Date: Mon, 27 Jan 2025 11:44:45 +0100 Subject: [PATCH] Simplify code for toric blowup along a cone --- .../Schemes/src/ToricBlowups/constructors.jl | 16 +--------------- 1 file changed, 1 insertion(+), 15 deletions(-) diff --git a/experimental/Schemes/src/ToricBlowups/constructors.jl b/experimental/Schemes/src/ToricBlowups/constructors.jl index a3a384da4432..dd97bd4cb4ec 100644 --- a/experimental/Schemes/src/ToricBlowups/constructors.jl +++ b/experimental/Schemes/src/ToricBlowups/constructors.jl @@ -241,11 +241,6 @@ Multivariate polynomial ring in 5 variables over QQ graded by ``` """ function blow_up(v::NormalToricVarietyType, n::Int; coordinate_name::Union{String, Nothing} = nothing) - coordinate_name = _find_blowup_coordinate_name(v, coordinate_name) - gens_S = gens(cox_ring(v)) - center_unnormalized = ideal_sheaf(v, ideal([gens_S[i] for i in 1:number_of_rays(v) if cones(v)[n,i]])) - blown_up_variety = normal_toric_variety(star_subdivision(v, n)) - # minimal supercone coordinates coords = zeros(QQ, n_rays(v)) for i in 1:number_of_rays(v) @@ -257,16 +252,7 @@ function blow_up(v::NormalToricVarietyType, n::Int; coordinate_name::Union{Strin ) coords = scaling_factor * coords - phi = ToricBlowupMorphism( - v, - blown_up_variety, - coordinate_name, - exceptional_ray, - exceptional_ray, - center_unnormalized - ) - set_attribute!(phi, :minimal_supercone_coordinates_of_exceptional_ray, coords) - return phi + return blow_up_along_minimal_supercone_coordinates(v, coords; coordinate_name=coordinate_name) end