;
; @ANO_SCRIPT_NAME		math_intp
; @ANO_SCRIPT_VERSION		0.0.1
; @ANO_SCRIPT_DESCRIPTION	Simple interpolation example
;
; @ANO_FLAGS_USE_PROTOS		[ ]
; @ANO_FLAGS_VAR_NAME_SUBS	[ ]
; @ANO_FLAGS_VAR_WARN_UNUSED	[ ]
;
; Copyright (c) 2016-2026, Jani Salonen <salojan@goto10.co>
; All rights reserved.
;
; Example to make looped interpolation between two points.
;

main [exit: 0] {
	; Set initial points for interpolation.
	;
	mov	_p1 (& -1.1, 0.0, 0.0)
	mov	_p2 (& -1.1, -0.75, 0.0)
	mov	_p3 (& 1.9, 0.75, 0.0)
	mov	_p4 (& 1.9, 0.0, 0.0)

	; Set interpolation point, bias and tension.
	;
	mov	_intp (0.0)
	mov	_bias (0.0)
	mov	_tension (0.0)

	; Loop for ten interpolation points.
	;
	print "Interpolated point is (x, y):\n\n"

	loop (mov i ([int] 0); i < 10; inc i) {
		coords_intp_hermite_x (_p1, _p2, _p3, _p4, \
			_intp, _bias, _tension)

		print	" " . rc . ", "

		coords_intp_hermite_y (_p1, _p2, _p3, _p4, \
			_intp, _bias, _tension)

		print	rc . "\n"

		add	_intp (0.1)
	}

	print "\n"
}