#pragma option -zCSHARED

#include "th01/math/polar.hpp"
#include "th03/math/polar.hpp"
#include "th04/math/vector.hpp"

int pascal polar(int center, int radius, int ratio)
{
	return (((static_cast<long>(radius) * ratio) >> 8) + center);
}

void pascal vector2_at(
	SPPoint near &ret,
	subpixel_t origin_x,
	subpixel_t origin_y,
	subpixel_t length,
	int angle
)
{
	_BX = angle;
	#if (GAME == 5)
		_BH ^= _BH;
	#endif
	_BX += _BX; // *= sizeof(short)
	ret.x.v = polar_x_fast_unsafe(origin_x, length, _BX);
	ret.y.v = polar_y_fast_unsafe(origin_y, length, _BX);
}