Add stretch parameter for RF pulse adjustments

src/components/pulses/constant_pulses.jl

@@ -64,10 +64,10 @@ end
 
 split_timestep(pulse::ConstantPulse, precision) = Inf
 
-function adjust_internal(block::ConstantPulse; scale=1., frequency=0.)
+function adjust_internal(block::ConstantPulse; scale=1., frequency=0., stretch=1.)
     ConstantPulse(
         block.amplitude * scale,
-        block.duration,
+        block.duration * stretch,
         block.phase,
         block.frequency + frequency,
         block.group,

src/components/pulses/generic_pulses.jl

@@ -153,9 +153,9 @@ function split_timestep(gp::GenericPulse, precision)
     return sqrt(2 * precision / max_second_der)
 end
 
-function adjust_internal(block::GenericPulse; scale=1., frequency=0.)
+function adjust_internal(block::GenericPulse; scale=1., frequency=0., stretch=1.)
     GenericPulse(
-        block.time,
+        block.time .* stretch,
         block.amplitude .* scale,
         block.phase .+ (360. * frequency) .* (block.time .- effective_time(block))
     )

src/components/pulses/sinc_pulses.jl

@@ -107,7 +107,7 @@ function split_timestep(block::SincPulse, precision)
     return sqrt(2 * precision / max_second_derivative)
 end
 
-function adjust_internal(block::SincPulse; scale=1., frequency=0.)
+function adjust_internal(block::SincPulse; scale=1., frequency=0., stretch=1.)
     SincPulse(
         block.apodise,
         block.Nzeros,
@@ -115,7 +115,7 @@ function adjust_internal(block::SincPulse; scale=1., frequency=0.)
         block.amplitude * scale,
         block.phase,
         block.frequency + frequency,
-        block.lobe_duration,
+        block.lobe_duration * stretch,
         block.group
     )
 end