dessin 0.8.23

//! Basic building blocks of dessin
//!
//! ## Usage
//!
//! ### Ellipse
//!
//! ```
//! # use dessin::prelude::*;
//! dessin!(
//! 	Ellipse()
//! );
//! ```
//!
//! ### Text
//!
//! ```
//! # use dessin::prelude::*;
//! dessin!(
//! 	Text()
//! );
//! ```
//!
//! ### Curve
//!
//! ```
//! # use dessin::prelude::*;
//! dessin!(
//! 	Curve()
//! );
//! ```
//!
//! ### Image
//!
//! ```
//! # use dessin::prelude::*;
//! dessin!(
//! 	Image()
//! );
//! ```
//!
//! ### Group
//!
//! ```
//! # use dessin::prelude::*;
//! dessin!(
//! 	[]
//! );
//! ```
//!
//! ### Dynamic
//!
//! ```
//! # use dessin::prelude::*;
//!
//! let ellipse_ref /* : Arc<RwLock<Ellipse>> */ = Default::default();
//!
//! dessin!(
//! 	Dynamic<Ellipse>(
//! 		_ref = &ellipse_ref,
//! 		semi_major_axis = 2.
//! 	)
//! );
//!
//! // Later in code
//!
//! ellipse_ref.write().unwrap().semi_major_axis(0.5);
//! ```
//!
//! ## Details

pub(crate) mod curve;
pub(crate) mod dynamic;
pub(crate) mod ellipse;
pub(crate) mod image;
pub(crate) mod text;

pub use self::image::*;
pub use curve::*;
pub use dynamic::*;
pub use ellipse::*;
use na::{Point2, Rotation2, Scale2, Vector2};
use nalgebra::{self as na, Transform2, Translation2};
use std::{fmt, marker::PhantomData, sync::Arc};
pub use text::*;

/// Transforming operation on shapes such as:
/// - a translation with [`translate`][ShapeOp::translate]
/// - a scale with [`scale`][ShapeOp::scale]
/// - a rotation with [`rotate`][ShapeOp::rotate]
/// - any other transform with [`transform`][ShapeOp::transform]
pub trait ShapeOp {
	/// Apply an ordinary transform.
	/// You don't need to implement [`translate`][ShapeOp::translate], [`scale`][ShapeOp::scale] or [`rotate`][ShapeOp::rotate]
	/// yourself as a blanket implementation is given with this transform.
	fn transform(&mut self, transform_matrix: Transform2<f32>) -> &mut Self;

	/// Translation
	#[inline]
	fn translate<T: Into<Translation2<f32>>>(&mut self, translation: T) -> &mut Self {
		self.transform(na::convert::<_, Transform2<f32>>(translation.into()));
		self
	}
	/// Scale
	#[inline]
	fn scale<S: Into<Scale2<f32>>>(&mut self, scale: S) -> &mut Self {
		self.transform(na::convert::<_, Transform2<f32>>(scale.into()));
		self
	}
	/// Rotation
	#[inline]
	fn rotate<R: Into<Rotation2<f32>>>(&mut self, rotation: R) -> &mut Self {
		self.transform(na::convert::<_, Transform2<f32>>(rotation.into()));
		self
	}

	/// Get own local transform.
	/// Required for the blanket implementation of [`global_transform`][ShapeOp::global_transform].
	fn local_transform(&self) -> &Transform2<f32>;
	/// Absolute transform given the parent transform
	#[inline]
	fn global_transform(&self, parent_transform: &Transform2<f32>) -> Transform2<f32> {
		parent_transform * self.local_transform()
	}
}

/// Same as [`ShapeOp`] but for chaining methods.
/// All shapes that implement [`ShapeOp`] also implement [`ShapeOpWith`] for free.
pub trait ShapeOpWith: ShapeOp + Sized {
	/// Transform
	#[inline]
	fn with_transform(mut self, transform_matrix: Transform2<f32>) -> Self {
		self.transform(transform_matrix);
		self
	}

	/// Translate
	#[inline]
	fn with_translate<T: Into<Translation2<f32>>>(mut self, translation: T) -> Self {
		self.translate(translation);
		self
	}
	/// Resize
	#[inline]
	fn with_resize<S: Into<Scale2<f32>>>(mut self, scale: S) -> Self {
		self.scale(scale);
		self
	}
	/// Rotate
	#[inline]
	fn with_rotate<R: Into<Rotation2<f32>>>(mut self, rotation: R) -> Self {
		self.rotate(rotation);
		self
	}
}
impl<T: ShapeOp> ShapeOpWith for T {}

/// Marker discribing the state of a bounding box.
/// With this marker, the bounding box may be skew or rotated.
#[derive(Debug, Clone, Copy, PartialEq)]
pub struct UnParticular;
/// Marker discribing the state of a bounding box.
/// With this marker, the sides of the bounding box are guaranteed to be aligned with the X and Y axis.
#[derive(Debug, Clone, Copy, PartialEq)]
pub struct Straight;

/// Bounding box used to describe max bound of an shape.
/// Usefull to find the max size of shapes as multiple [`BoundingBox`] can be join together.
#[derive(Debug, Clone, Copy, PartialEq)]
pub struct BoundingBox<Type> {
	_ty: PhantomData<Type>,
	top_left: Point2<f32>,
	top_right: Point2<f32>,
	bottom_right: Point2<f32>,
	bottom_left: Point2<f32>,
}
impl<T> BoundingBox<T> {
	/// Top border
	///
	/// ⚠️ There is no guarantee that this is actually the most top border.
	/// [`straigthen`][BoundingBox::straigthen] the [`BoundingBox`] first for this guarantee.
	#[inline]
	pub fn top(&self) -> f32 {
		self.top_left.y
	}

	/// Bottom border
	///
	/// ⚠️ There is no guarantee that this is actually the most bottom border.
	/// [`straigthen`][BoundingBox::straigthen] the [`BoundingBox`] first for this guarantee.
	#[inline]
	pub fn bottom(&self) -> f32 {
		self.bottom_left.y
	}

	/// Left border
	///
	/// ⚠️ There is no guarantee that this is actually the most left border.
	/// [`straigthen`][BoundingBox::straigthen] the [`BoundingBox`] first for this guarantee.
	#[inline]
	pub fn left(&self) -> f32 {
		self.bottom_left.x
	}

	/// Right border
	///
	/// ⚠️ There is no guarantee that this is actually the most right border.
	/// [`straigthen`][BoundingBox::straigthen] the [`BoundingBox`] first for this guarantee.
	#[inline]
	pub fn right(&self) -> f32 {
		self.bottom_right.x
	}

	/// Top left corner
	///
	/// ⚠️ There is no guarantee that this is actually the most top and left corner.
	/// [`straigthen`][BoundingBox::straigthen] the [`BoundingBox`] first for this guarantee.
	#[inline]
	pub fn top_left(&self) -> Point2<f32> {
		self.top_left
	}

	/// Top right corner
	///
	/// ⚠️ There is no guarantee that this is actually the most top and right corner.
	/// [`straigthen`][BoundingBox::straigthen] the [`BoundingBox`] first for this guarantee.
	#[inline]
	pub fn top_right(&self) -> Point2<f32> {
		self.top_right
	}

	/// bottom right corner
	///
	/// ⚠️ There is no guarantee that this is actually the most bottom and right corner.
	/// [`straigthen`][BoundingBox::straigthen] the [`BoundingBox`] first for this guarantee.
	#[inline]
	pub fn bottom_right(&self) -> Point2<f32> {
		self.bottom_right
	}

	/// Bottom left corner
	///
	/// ⚠️ There is no guarantee that this is actually the most bottom and left corner.
	/// [`straigthen`][BoundingBox::straigthen] the [`BoundingBox`] first for this guarantee.
	#[inline]
	pub fn bottom_left(&self) -> Point2<f32> {
		self.bottom_left
	}

	/// Apply a transform to a [`BoundingBox`]
	pub fn transform(self, transform: &Transform2<f32>) -> BoundingBox<UnParticular> {
		BoundingBox {
			_ty: PhantomData,
			top_left: transform * self.top_left,
			top_right: transform * self.top_right,
			bottom_right: transform * self.bottom_right,
			bottom_left: transform * self.bottom_left,
		}
	}

	/// Width
	pub fn width(&self) -> f32 {
		(self.top_right - self.top_left).magnitude()
	}

	/// Height
	pub fn height(&self) -> f32 {
		(self.top_right - self.bottom_right).magnitude()
	}
}

impl BoundingBox<UnParticular> {
	/// Create a [`BoundingBox`] from each corner
	pub fn new(
		top_left: Point2<f32>,
		top_right: Point2<f32>,
		bottom_right: Point2<f32>,
		bottom_left: Point2<f32>,
	) -> Self {
		BoundingBox {
			_ty: PhantomData,
			top_left,
			top_right,
			bottom_right,
			bottom_left,
		}
	}

	/// Center of a [`BoundingBox`].
	/// If you need a [`BoundingBox<Straight>`], you should straighten it first and then call center on it.
	pub fn center(&self) -> Point2<f32> {
		let x =
			(self.bottom_left.x + self.bottom_right.x + self.top_left.x + self.top_right.x) / 4.;
		let y =
			(self.bottom_left.y + self.bottom_right.y + self.top_left.y + self.top_right.y) / 4.;

		Point2::new(x, y)
	}

	/// Straighen a [`BoundingBox`] and guarantee that the sides of the bounding box are aligns with the X and Y axis.
	pub fn straigthen(&self) -> BoundingBox<Straight> {
		let top = self
			.top_left
			.y
			.max(self.top_right.y)
			.max(self.bottom_left.y)
			.max(self.bottom_right.y);
		let bottom = self
			.top_left
			.y
			.min(self.top_right.y)
			.min(self.bottom_left.y)
			.min(self.bottom_right.y);

		let right = self
			.top_left
			.x
			.max(self.top_right.x)
			.max(self.bottom_left.x)
			.max(self.bottom_right.x);
		let left = self
			.top_left
			.x
			.min(self.top_right.x)
			.min(self.bottom_left.x)
			.min(self.bottom_right.x);

		BoundingBox {
			_ty: PhantomData,
			top_left: Point2::new(left, top),
			top_right: Point2::new(right, top),
			bottom_right: Point2::new(right, bottom),
			bottom_left: Point2::new(left, bottom),
		}
	}

	/// Same as [`straighten`] but for chaining
	#[inline]
	pub fn into_straight(self) -> BoundingBox<Straight> {
		self.straigthen()
	}
}

impl BoundingBox<Straight> {
	/// [`BoundingBox`] center at the origin
	pub fn zero() -> Self {
		BoundingBox {
			_ty: PhantomData,
			top_left: Point2::origin(),
			top_right: Point2::origin(),
			bottom_right: Point2::origin(),
			bottom_left: Point2::origin(),
		}
	}

	/// [`BoundingBox`] center at the given point
	pub fn at<P: Into<Point2<f32>>>(p: P) -> Self {
		let p = p.into();
		BoundingBox {
			_ty: PhantomData,
			top_left: p,
			top_right: p,
			bottom_right: p,
			bottom_left: p,
		}
	}

	/// [`BoundingBox`] from mins and maxs
	pub fn mins_maxs(min_x: f32, min_y: f32, max_x: f32, max_y: f32) -> Self {
		BoundingBox {
			_ty: PhantomData,
			top_left: [min_x, max_y].into(),
			top_right: [max_x, max_y].into(),
			bottom_right: [max_x, min_y].into(),
			bottom_left: [min_x, min_y].into(),
		}
	}

	/// [`BoundingBox`] centered at (0,0) with a given size
	pub fn centered<V: Into<Vector2<f32>>>(size: V) -> Self {
		let size = size.into() / 2.;
		BoundingBox {
			_ty: PhantomData,
			top_left: Point2::new(-size.x, size.y),
			top_right: Point2::new(size.x, size.y),
			bottom_right: Point2::new(size.x, -size.y),
			bottom_left: Point2::new(-size.x, -size.y),
		}
	}

	/// Convert the [`BoundingBox`] to [`UnParticular`].
	#[inline]
	pub fn as_unparticular(self) -> BoundingBox<UnParticular> {
		BoundingBox {
			_ty: PhantomData,
			top_left: self.top_left,
			top_right: self.top_right,
			bottom_right: self.bottom_right,
			bottom_left: self.bottom_left,
		}
	}

	/// Straighen a [`BoundingBox`] and guarantee that the sides of the bounding box are aligns with the X and Y axis.
	pub fn straigthen(&self) -> BoundingBox<Straight> {
		*self
	}

	/// Same as [`straighten`] but for chaining
	#[inline]
	pub fn into_straight(self) -> BoundingBox<Straight> {
		self
	}

	/// Scale difference from self to other
	#[inline]
	pub fn scale_difference(&self, other: &BoundingBox<Straight>) -> Vector2<f32> {
		Vector2::new(other.width() / self.width(), other.height() / self.height())
	}

	/// A u B
	///
	/// Creates a bigger [`BoundingBox`] from the union of the two.
	pub fn join(mut self, other: BoundingBox<Straight>) -> BoundingBox<Straight> {
		let min_x = self.bottom_left.x.min(other.bottom_left.x);
		let min_y = self.bottom_left.y.min(other.bottom_left.y);
		let max_x = self.top_right.x.max(other.top_right.x);
		let max_y = self.top_right.y.max(other.top_right.y);

		self.top_left.x = min_x;
		self.top_left.y = max_y;

		self.top_right.x = max_x;
		self.top_right.y = max_y;

		self.bottom_right.x = max_x;
		self.bottom_right.y = min_y;

		self.bottom_left.x = min_x;
		self.bottom_left.y = min_y;

		self
	}

	/// A n B
	///
	/// Creates a smaller [`BoundingBox`] from the intersection of the two.
	pub fn intersect(mut self, other: BoundingBox<Straight>) -> BoundingBox<Straight> {
		let (min_x, max_x) = if self.bottom_right.x <= other.bottom_left.x
			|| self.bottom_left.x >= other.bottom_right.x
		{
			(0., 0.)
		} else {
			(
				self.bottom_left.x.max(other.bottom_left.x),
				self.top_right.x.min(other.top_right.x),
			)
		};

		let (min_y, max_y) =
			if self.top_left.y <= other.bottom_left.y || self.bottom_right.y >= other.top_left.y {
				(0., 0.)
			} else {
				(
					self.bottom_left.y.max(other.bottom_left.y),
					self.top_right.y.min(other.top_right.y),
				)
			};

		self.top_left.x = min_x;
		self.top_left.y = max_y;
		self.top_right.x = max_x;
		self.top_right.y = max_y;
		self.bottom_right.x = max_x;
		self.bottom_right.y = min_y;
		self.bottom_left.x = min_x;
		self.bottom_left.y = min_y;

		self
	}

	/// Center of a [`BoundingBox`].
	pub fn center(&self) -> Point2<f32> {
		let x = (self.bottom_left.x + self.top_right.x) / 2.;
		let y = (self.bottom_left.y + self.top_right.y) / 2.;

		Point2::new(x, y)
	}
}

/// Traits that defined whether a [`Shape`] can be bound by a [`BoundingBox`]
pub trait ShapeBoundingBox {
	/// [`BoundingBox`] of a [`Shape`]
	fn local_bounding_box(&self) -> BoundingBox<UnParticular>;
	/// Absolute [`BoundingBox`] from a transform
	fn global_bounding_box(&self, parent_transform: &Transform2<f32>) -> BoundingBox<UnParticular> {
		self.local_bounding_box().transform(parent_transform)
	}
}

/// A group of [`Shape`], locally positionned by a transform
#[derive(Default, Debug, Clone, PartialEq)]
pub struct Group {
	/// Transform of the whole group
	pub local_transform: Transform2<f32>,
	/// List of shapes
	pub shapes: Vec<Shape>,
	/// Metadata
	pub metadata: Vec<(String, String)>,
}

/// Building block of a dessin
///
/// Every complex shape should boil down to these.
#[derive(Clone)]
pub enum Shape {
	/// A group of [`Shape`], locally positionned by a transform
	Group(Group),
	/// Block of style
	Style {
		/// Fill
		fill: Option<crate::style::Fill>,
		/// Stroke
		stroke: Option<crate::style::Stroke>,
		/// Styled shape. (Or Shapes if it is a [`Groupe`][Shape::Group])
		shape: Box<Shape>,
	},
	/// Ellipse
	Ellipse(Ellipse),
	/// Image
	Image(Image),
	/// Text
	Text(Text),
	/// Curve
	Curve(Curve),
	/// Shape whose body is generated only during export.
	///
	/// Enables chirurgical changes of the shape.
	///
	/// See [`Dynamic`] for more details.
	Dynamic {
		/// Transform of the whole group
		local_transform: Transform2<f32>,
		/// The shape at run time
		shaper: Arc<Shaper>,
	},
}
impl PartialEq for Shape {
	fn eq(&self, other: &Self) -> bool {
		match (self, other) {
			(Shape::Group(g1), Shape::Group(g2)) => g1 == g2,
			(
				Shape::Style {
					fill: fill1,
					stroke: stroke1,
					shape: shape1,
				},
				Shape::Style {
					fill: fill2,
					stroke: stroke2,
					shape: shape2,
				},
			) => fill1 == fill2 && stroke1 == stroke2 && shape1 == shape2,
			(Shape::Ellipse(e1), Shape::Ellipse(e2)) => e1 == e2,
			(Shape::Image(i1), Shape::Image(i2)) => i1 == i2,
			(Shape::Text(t1), Shape::Text(t2)) => t1 == t2,
			(Shape::Curve(c1), Shape::Curve(c2)) => c1 == c2,
			(
				Shape::Dynamic {
					local_transform: local_transform1,
					shaper: shaper1,
				},
				Shape::Dynamic {
					local_transform: local_transform2,
					shaper: shaper2,
				},
			) => local_transform1 == local_transform2 && shaper1() == shaper2(),
			_ => false,
		}
	}
}

impl Shape {
	/// Get current shape as group
	/// If current shape isn't a group, morph it into a group
	pub fn get_or_mutate_as_group(&mut self) -> &mut Group {
		if let Shape::Group(g) = self {
			g
		} else {
			let mut dummy = Shape::Group(Group {
				local_transform: Default::default(),
				shapes: Default::default(),
				metadata: Default::default(),
			});

			std::mem::swap(self, &mut dummy);

			let mut group = Shape::Group(Group {
				local_transform: Default::default(),
				shapes: vec![dummy],
				metadata: vec![],
			});

			std::mem::swap(self, &mut group);
			self.get_or_mutate_as_group()
		}
	}

	/// Add some metadata
	pub fn extend_metadata<K: ToString, V: ToString, E: IntoIterator<Item = (K, V)>>(
		&mut self,
		extend: E,
	) {
		self.get_or_mutate_as_group().metadata.extend(
			extend
				.into_iter()
				.map(|(k, v)| (k.to_string(), v.to_string())),
		);
	}

	/// Add some metadata
	pub fn add_metadata<K: ToString, V: ToString>(&mut self, (key, value): (K, V)) {
		let key = key.to_string();
		let value = value.to_string();

		self.get_or_mutate_as_group().metadata.push((key, value));
	}
}

impl fmt::Debug for Shape {
	fn fmt(&self, f: &mut fmt::Formatter<'_>) -> fmt::Result {
		match self {
			Self::Group(Group {
				local_transform,
				shapes,
				metadata,
			}) => f
				.debug_struct("Group")
				.field("local_transform", local_transform)
				.field("shapes", shapes)
				.field("metadata", metadata)
				.finish(),
			Self::Style {
				fill,
				stroke,
				shape,
			} => f
				.debug_struct("Style")
				.field("fill", fill)
				.field("stroke", stroke)
				.field("shape", shape)
				.finish(),
			Self::Ellipse(arg0) => f.debug_tuple("Ellipse").field(arg0).finish(),
			Self::Image(arg0) => f.debug_tuple("Image").field(arg0).finish(),
			Self::Text(arg0) => f.debug_tuple("Text").field(arg0).finish(),
			Self::Curve(arg0) => f.debug_tuple("Curve").field(arg0).finish(),
			Self::Dynamic {
				local_transform,
				shaper: _,
			} => f
				.debug_struct("Dynamic")
				.field("local_transform", local_transform)
				.field("shaper", &"Arc<Fn() -> Shape>")
				.finish(),
		}
	}
}

impl Default for Shape {
	fn default() -> Self {
		Shape::Group(Group {
			local_transform: Transform2::default(),
			shapes: vec![],
			metadata: vec![],
		})
	}
}

impl ShapeOp for Shape {
	fn transform(&mut self, transform_matrix: Transform2<f32>) -> &mut Self {
		match self {
			Shape::Group(Group {
				local_transform, ..
			}) => {
				*local_transform = transform_matrix * *local_transform;
			}
			Shape::Style { shape, .. } => {
				shape.transform(transform_matrix);
			}
			Shape::Ellipse(v) => {
				v.transform(transform_matrix);
			}
			Shape::Image(v) => {
				v.transform(transform_matrix);
			}
			Shape::Text(v) => {
				v.transform(transform_matrix);
			}
			Shape::Curve(v) => {
				v.transform(transform_matrix);
			}
			Shape::Dynamic {
				local_transform, ..
			} => {
				*local_transform = transform_matrix * *local_transform;
			}
		};

		self
	}

	#[inline]
	fn local_transform(&self) -> &Transform2<f32> {
		match self {
			Shape::Group(Group {
				local_transform, ..
			}) => local_transform,
			Shape::Style { shape, .. } => shape.local_transform(),
			Shape::Ellipse(v) => v.local_transform(),
			Shape::Image(v) => v.local_transform(),
			Shape::Text(v) => v.local_transform(),
			Shape::Curve(v) => v.local_transform(),
			Shape::Dynamic {
				local_transform, ..
			} => local_transform,
		}
	}
}

impl ShapeBoundingBox for Shape {
	fn local_bounding_box(&self) -> BoundingBox<UnParticular> {
		match self {
			Shape::Group(Group {
				local_transform,
				shapes,
				..
			}) => shapes
				.iter()
				.map(|v| v.global_bounding_box(local_transform).straigthen())
				.reduce(BoundingBox::join)
				.unwrap_or_else(|| BoundingBox::zero())
				.as_unparticular(),
			Shape::Style { shape, .. } => shape.local_bounding_box(),
			Shape::Ellipse(e) => e.local_bounding_box(),
			Shape::Image(i) => i.local_bounding_box(),
			Shape::Text(t) => t.local_bounding_box(),
			Shape::Curve(c) => c.local_bounding_box(),
			Shape::Dynamic {
				local_transform,
				shaper,
			} => shaper().local_bounding_box().transform(local_transform),
		}
	}
}

#[cfg(test)]
mod tests {
	use crate::prelude::*;
	use nalgebra::{Point2, Rotation2, Transform2};
	use std::f32::consts::FRAC_PI_2;

	const EPS: f32 = 10e-6;

	#[test]
	fn parent_rotate_child_scale() {
		let base = dessin!(Image(scale = [2., 4.], translate = [1., 2.]));

		let base_position = base.position(&Transform2::default());
		assert!(
			(base_position.bottom_left - Point2::new(0., 0.)).magnitude() < EPS,
			"left = {}, right = [0., 0.]",
			base_position.bottom_left,
		);
		assert!(
			(base_position.top_left - Point2::new(0., 4.)).magnitude() < EPS,
			"left = {}, right = [0., 4.]",
			base_position.top_left,
		);
		assert!(
			(base_position.top_right - Point2::new(2., 4.)).magnitude() < EPS,
			"left = {}, right = [2., 4.]",
			base_position.top_right,
		);

		let transform = nalgebra::convert(Rotation2::new(FRAC_PI_2));
		let transform_position = base.position(&transform);
		assert!(
			(transform_position.bottom_left - Point2::new(0., 0.)).magnitude() < EPS,
			"left = {}, right = [0., 0.]",
			transform_position.bottom_left,
		);
		assert!(
			(transform_position.top_left - Point2::new(-4., 0.)).magnitude() < EPS,
			"left = {}, right = [-4., 0.]",
			transform_position.top_left,
		);
		assert!(
			(transform_position.top_right - Point2::new(-4., 2.)).magnitude() < EPS,
			"left = {}, right = [-4., 2.]",
			transform_position.top_right,
		);
	}
}