libblur 0.24.0

/*
 * // Copyright (c) Radzivon Bartoshyk. All rights reserved.
 * //
 * // Redistribution and use in source and binary forms, with or without modification,
 * // are permitted provided that the following conditions are met:
 * //
 * // 1.  Redistributions of source code must retain the above copyright notice, this
 * // list of conditions and the following disclaimer.
 * //
 * // 2.  Redistributions in binary form must reproduce the above copyright notice,
 * // this list of conditions and the following disclaimer in the documentation
 * // and/or other materials provided with the distribution.
 * //
 * // 3.  Neither the name of the copyright holder nor the names of its
 * // contributors may be used to endorse or promote products derived from
 * // this software without specific prior written permission.
 * //
 * // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
 * // AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * // IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
 * // DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
 * // FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * // DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
 * // SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
 * // CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
 * // OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
 * // OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */
use crate::sse::{load_u8_s32_fast, store_u8_s32};
use crate::stackblur::stack_blur_pass::StackBlurWorkingPass;
use crate::unsafe_slice::UnsafeSlice;
use crate::util::ScratchBuffer;
#[cfg(target_arch = "x86")]
use std::arch::x86::*;
#[cfg(target_arch = "x86_64")]
use std::arch::x86_64::*;

pub(crate) struct VerticalSseStackBlurPass<const CN: usize> {}

impl<const CN: usize> Default for VerticalSseStackBlurPass<CN> {
    fn default() -> Self {
        VerticalSseStackBlurPass::<CN> {}
    }
}

impl<const CN: usize> VerticalSseStackBlurPass<CN> {
    #[target_feature(enable = "sse4.1")]
    fn pass_impl(
        &self,
        pixels: &UnsafeSlice<u8>,
        stride: u32,
        width: u32,
        height: u32,
        radius: u32,
        thread: usize,
        total_threads: usize,
    ) {
        unsafe {
            let div = ((radius * 2) + 1) as usize;
            let mut yp;
            let mut sp;
            let mut stack_start;
            let mut scratch_buffer = ScratchBuffer::<i32, 1024>::new(4 * div * 4);
            let stacks = scratch_buffer.as_mut_slice();

            let v_mul_value = _mm_set1_ps(1. / ((radius as f32 + 1.) * (radius as f32 + 1.)));

            let hm = height - 1;
            let div = (radius * 2) + 1;

            let mut src_ptr;
            let mut dst_ptr;

            let min_x = (thread * width as usize / total_threads) * CN;
            let max_x = ((thread + 1) * width as usize / total_threads) * CN;

            let mut cx = min_x;

            while cx + 8 <= max_x {
                let mut sums0 = _mm_setzero_si128();
                let mut sums1 = _mm_setzero_si128();

                let mut sum_in0 = _mm_setzero_si128();
                let mut sum_in1 = _mm_setzero_si128();

                let mut sum_out0 = _mm_setzero_si128();
                let mut sum_out1 = _mm_setzero_si128();

                let mut src_ptr = cx; // x,0

                {
                    let src_pixel0 = _mm_loadu_si64(pixels.get_ptr(src_ptr).cast());
                    let lo0 = _mm_unpacklo_epi8(src_pixel0, _mm_setzero_si128());

                    let i16_l0 = _mm_unpacklo_epi16(lo0, _mm_setzero_si128());
                    let i16_h0 = _mm_unpackhi_epi16(lo0, _mm_setzero_si128());

                    for i in 0..=radius {
                        let stack_ptr = stacks.as_mut_ptr().add(i as usize * 4 * 4);

                        _mm_storeu_si128(stack_ptr as *mut _, i16_l0);
                        _mm_storeu_si128(stack_ptr.add(4) as *mut _, i16_h0);

                        let j0 = _mm_madd_epi16(i16_l0, _mm_set1_epi32(i as i32 + 1));
                        let j1 = _mm_madd_epi16(i16_h0, _mm_set1_epi32(i as i32 + 1));

                        sums0 = _mm_add_epi32(sums0, j0);
                        sums1 = _mm_add_epi32(sums1, j1);

                        sum_out0 = _mm_add_epi32(sum_out0, i16_l0);
                        sum_out1 = _mm_add_epi32(sum_out1, i16_h0);
                    }
                }

                {
                    for i in 1..=radius {
                        if i <= hm {
                            src_ptr += stride as usize;
                        }

                        let stack_ptr = stacks.as_mut_ptr().add((i + radius) as usize * 4 * 4);
                        let src_pixel0 = _mm_loadu_si64(pixels.get_ptr(src_ptr));
                        let lo0 = _mm_unpacklo_epi8(src_pixel0, _mm_setzero_si128());

                        let i16_l0 = _mm_unpacklo_epi16(lo0, _mm_setzero_si128());
                        let i16_h0 = _mm_unpackhi_epi16(lo0, _mm_setzero_si128());

                        _mm_storeu_si128(stack_ptr as *mut _, i16_l0);
                        _mm_storeu_si128(stack_ptr.add(4) as *mut _, i16_h0);

                        let vj = _mm_set1_epi32(radius as i32 + 1 - i as i32);

                        let j0 = _mm_madd_epi16(i16_l0, vj);
                        let j1 = _mm_madd_epi16(i16_h0, vj);

                        sums0 = _mm_add_epi32(sums0, j0);
                        sums1 = _mm_add_epi32(sums1, j1);

                        sum_in0 = _mm_add_epi32(sum_in0, i16_l0);
                        sum_in1 = _mm_add_epi32(sum_in1, i16_h0);
                    }
                }

                sp = radius;
                yp = radius;
                if yp > hm {
                    yp = hm;
                }
                src_ptr = cx + yp as usize * stride as usize;
                let mut dst_ptr = cx;

                for _ in 0..height {
                    let casted_sum0 = _mm_cvtepi32_ps(sums0);
                    let casted_sum1 = _mm_cvtepi32_ps(sums1);

                    let a0 = _mm_mul_ps(casted_sum0, v_mul_value);
                    let a1 = _mm_mul_ps(casted_sum1, v_mul_value);

                    let scaled_val0 = _mm_cvtps_epi32(a0);
                    let scaled_val1 = _mm_cvtps_epi32(a1);

                    let jv0 = _mm_packus_epi32(scaled_val0, scaled_val1);

                    _mm_storeu_si64(
                        pixels.get_ptr(dst_ptr),
                        _mm_packus_epi16(jv0, _mm_setzero_si128()),
                    );

                    dst_ptr += stride as usize;

                    sums0 = _mm_sub_epi32(sums0, sum_out0);
                    sums1 = _mm_sub_epi32(sums1, sum_out1);

                    stack_start = sp + div - radius;
                    if stack_start >= div {
                        stack_start -= div;
                    }

                    let stack_ptr = stacks.as_mut_ptr().add(stack_start as usize * 4 * 4);

                    let stack_val0 = _mm_loadu_si128(stack_ptr as *const _);
                    let stack_val1 = _mm_loadu_si128(stack_ptr.add(4) as *const _);

                    sum_out0 = _mm_sub_epi32(sum_out0, stack_val0);
                    sum_out1 = _mm_sub_epi32(sum_out1, stack_val1);

                    if yp < hm {
                        src_ptr += stride as usize; // stride
                        yp += 1;
                    }

                    let src_pixel0 = _mm_loadu_si64(pixels.get_ptr(src_ptr));
                    let lo0 = _mm_unpacklo_epi8(src_pixel0, _mm_setzero_si128());

                    let i16_l0 = _mm_unpacklo_epi16(lo0, _mm_setzero_si128());
                    let i16_h0 = _mm_unpackhi_epi16(lo0, _mm_setzero_si128());

                    _mm_storeu_si128(stack_ptr as *mut _, i16_l0);
                    _mm_storeu_si128(stack_ptr.add(4) as *mut _, i16_h0);

                    sum_in0 = _mm_add_epi32(sum_in0, i16_l0);
                    sum_in1 = _mm_add_epi32(sum_in1, i16_h0);

                    sums0 = _mm_add_epi32(sums0, sum_in0);
                    sums1 = _mm_add_epi32(sums1, sum_in1);

                    sp += 1;

                    if sp >= div {
                        sp = 0;
                    }
                    let stack_ptr = stacks.as_mut_ptr().add(sp as usize * 4 * 4);

                    let stack_val0 = _mm_loadu_si128(stack_ptr as *const _);
                    let stack_val1 = _mm_loadu_si128(stack_ptr.add(4) as *const _);

                    sum_out0 = _mm_add_epi32(sum_out0, stack_val0);
                    sum_out1 = _mm_add_epi32(sum_out1, stack_val1);

                    sum_in0 = _mm_sub_epi32(sum_in0, stack_val0);
                    sum_in1 = _mm_sub_epi32(sum_in1, stack_val1);
                }

                cx += 8;
            }

            while cx + CN < max_x {
                let mut sums = _mm_setzero_si128();
                let mut sum_in = _mm_setzero_si128();
                let mut sum_out = _mm_setzero_si128();

                src_ptr = cx; // x,0

                let src_pixel = load_u8_s32_fast::<CN>(pixels.get_ptr(src_ptr));

                for i in 0..=radius {
                    let stack_ptr = stacks.as_mut_ptr().add(i as usize * 4);
                    _mm_storeu_si128(stack_ptr as *mut __m128i, src_pixel);
                    sums = _mm_add_epi32(
                        sums,
                        _mm_madd_epi16(src_pixel, _mm_set1_epi32(i as i32 + 1)),
                    );
                    sum_out = _mm_add_epi32(sum_out, src_pixel);
                }

                for i in 1..=radius {
                    if i <= hm {
                        src_ptr += stride as usize;
                    }

                    let stack_ptr = stacks.as_mut_ptr().add((i + radius) as usize * 4);
                    let src_pixel = load_u8_s32_fast::<CN>(pixels.get_ptr(src_ptr));
                    _mm_storeu_si128(stack_ptr.cast(), src_pixel);
                    sums = _mm_add_epi32(
                        sums,
                        _mm_madd_epi16(src_pixel, _mm_set1_epi32(radius as i32 + 1 - i as i32)),
                    );

                    sum_in = _mm_add_epi32(sum_in, src_pixel);
                }

                sp = radius;
                yp = radius;
                if yp > hm {
                    yp = hm;
                }
                src_ptr = cx + yp as usize * stride as usize;
                dst_ptr = cx;
                for _ in 0..height {
                    let result = _mm_cvtps_epi32(_mm_mul_ps(_mm_cvtepi32_ps(sums), v_mul_value));
                    store_u8_s32::<CN>(pixels.get_ptr(dst_ptr), result);

                    dst_ptr += stride as usize;

                    sums = _mm_sub_epi32(sums, sum_out);

                    stack_start = sp + div - radius;
                    if stack_start >= div {
                        stack_start -= div;
                    }

                    let stack_ptr = stacks.as_mut_ptr().add(stack_start as usize * 4);
                    let stack_val = _mm_loadu_si128(stack_ptr as *const __m128i);
                    sum_out = _mm_sub_epi32(sum_out, stack_val);

                    if yp < hm {
                        src_ptr += stride as usize; // stride
                        yp += 1;
                    }

                    let src_ld = pixels.get_ptr(src_ptr);
                    let src_pixel = load_u8_s32_fast::<CN>(src_ld as *const u8);
                    _mm_storeu_si128(stack_ptr as *mut __m128i, src_pixel);

                    sum_in = _mm_add_epi32(sum_in, src_pixel);
                    sums = _mm_add_epi32(sums, sum_in);

                    sp += 1;

                    if sp >= div {
                        sp = 0;
                    }
                    let stack_ptr = stacks.as_mut_ptr().add(sp as usize * 4);
                    let stack_val = _mm_loadu_si128(stack_ptr as *const __m128i);

                    sum_out = _mm_add_epi32(sum_out, stack_val);
                    sum_in = _mm_sub_epi32(sum_in, stack_val);
                }

                cx += CN;
            }

            const TAIL: usize = 1;

            while cx < max_x {
                let mut sums = _mm_setzero_si128();
                let mut sum_in = _mm_setzero_si128();
                let mut sum_out = _mm_setzero_si128();

                src_ptr = cx; // x,0

                let src_pixel = load_u8_s32_fast::<TAIL>(pixels.get_ptr(src_ptr));

                for i in 0..=radius {
                    let stack_ptr = stacks.as_mut_ptr().add(i as usize * 4);
                    _mm_storeu_si128(stack_ptr as *mut __m128i, src_pixel);
                    sums = _mm_add_epi32(
                        sums,
                        _mm_madd_epi16(src_pixel, _mm_set1_epi32(i as i32 + 1)),
                    );
                    sum_out = _mm_add_epi32(sum_out, src_pixel);
                }

                for i in 1..=radius {
                    if i <= hm {
                        src_ptr += stride as usize;
                    }

                    let stack_ptr = stacks.as_mut_ptr().add((i + radius) as usize * 4);
                    let src_pixel = load_u8_s32_fast::<TAIL>(pixels.get_ptr(src_ptr));
                    _mm_storeu_si128(stack_ptr as *mut __m128i, src_pixel);
                    sums = _mm_add_epi32(
                        sums,
                        _mm_madd_epi16(src_pixel, _mm_set1_epi32(radius as i32 + 1 - i as i32)),
                    );

                    sum_in = _mm_add_epi32(sum_in, src_pixel);
                }

                sp = radius;
                yp = radius;
                if yp > hm {
                    yp = hm;
                }
                src_ptr = cx + yp as usize * stride as usize;
                dst_ptr = cx;
                for _ in 0..height {
                    let result = _mm_cvtps_epi32(_mm_mul_ps(_mm_cvtepi32_ps(sums), v_mul_value));
                    store_u8_s32::<TAIL>(pixels.get_ptr(dst_ptr), result);

                    dst_ptr += stride as usize;

                    sums = _mm_sub_epi32(sums, sum_out);

                    stack_start = sp + div - radius;
                    if stack_start >= div {
                        stack_start -= div;
                    }

                    let stack_ptr = stacks.as_mut_ptr().add(stack_start as usize * 4);
                    let stack_val = _mm_loadu_si128(stack_ptr as *const __m128i);
                    sum_out = _mm_sub_epi32(sum_out, stack_val);

                    if yp < hm {
                        src_ptr += stride as usize; // stride
                        yp += 1;
                    }

                    let src_pixel = load_u8_s32_fast::<TAIL>(pixels.get_ptr(src_ptr));
                    _mm_storeu_si128(stack_ptr as *mut __m128i, src_pixel);

                    sum_in = _mm_add_epi32(sum_in, src_pixel);
                    sums = _mm_add_epi32(sums, sum_in);

                    sp += 1;

                    if sp >= div {
                        sp = 0;
                    }
                    let stack_ptr = stacks.as_mut_ptr().add(sp as usize * 4);
                    let stack_val = _mm_loadu_si128(stack_ptr as *const __m128i);

                    sum_out = _mm_add_epi32(sum_out, stack_val);
                    sum_in = _mm_sub_epi32(sum_in, stack_val);
                }

                cx += TAIL;
            }
        }
    }
}

impl<const CN: usize> StackBlurWorkingPass<u8, CN> for VerticalSseStackBlurPass<CN> {
    fn pass(
        &self,
        pixels: &UnsafeSlice<u8>,
        stride: u32,
        width: u32,
        height: u32,
        radius: u32,
        thread: usize,
        total_threads: usize,
    ) {
        unsafe {
            self.pass_impl(pixels, stride, width, height, radius, thread, total_threads);
        }
    }
}