Вопрос-Ответ (для новичков BlitzMax)

[Greymem]

Вопрос по геометрии:
http://forum.boolean.name/showthread...751#post211751

Решение найдено

Function RotateAroundOrigin(X:Float Var, Y:Float Var, ox:Float, oy:Float, a:Int)
	Local DX:Float = X - ox
	Local DY:Float = Y - oy
	Local angdiff:Float = ATan2(DX, DY)
	Local dist:Float = Sqr(DX * DX + DY * DY)
	Local s:Float = Sin(a + angdiff)
	Local c:Float = Cos(a + angdiff)
	Local tx:Float = (dist * s)
	Local ty:Float = (dist * c)
	x = tx + ox
	y = ty + oy
	Return
End Function

Graphics 800, 600

Global oX:Float = 400
Global oY:Float = 300

Global offsetx:Int = 10;
Global Offsety:Int = 20;
Global rX:Float = oX + offsetx
Global rY:Float = oY + Offsety
Global a:Float = 1

While Not KeyHit(KEY_ESCAPE)
	RotateAroundOrigin(rX, rY, ox, oy, a)
	Plot rX, rY
	Plot ox, oy
	
	If KeyHit(KEY_RIGHT)
		ox:+100;
		rX:Float = ox + offsetx
		rY:Float = oy + Offsety
	ElseIf KeyHit(KEY_LEFT)
		ox:-100;
		rX:Float = ox + offsetx
		rY:Float = oy + Offsety
	ElseIf KeyHit(KEY_UP)
		offsetx:+10;
		Offsety:+10;
		rX:Float = ox + offsetx
		rY:Float = oy + Offsety
	ElseIf KeyHit(KEY_DOWN)
		offsetx:-10;
		Offsety:-10;
		rX:Float = ox + offsetx
		rY:Float = oy + Offsety
	EndIf;
	
	
	
	Flip
Wend
End

Источник http://www.blitzbasic.com/Community/...hp?topic=88294
Но немножко переделал под изменение координат опорной точки

[SBJoker]

Это есть в стандартном функционале.

[Greymem]

Сообщение от SBJoker

Это есть в стандартном функционале.

Хммм... и как называется функция?

[Dzirt]

Тему не читай, а сами знаете что....

Atan2()

[Greymem]

Сообщение от Dzirt

Тему не читай, а сами знаете что....

Atan2()

Ваш речевой оборот убивает клетки моего мозга.
Уточните, что вы хотели этим всем сказать?

[SBJoker]

Я уже вам ответил: http://forum.boolean.name/showpost.p...3&postcount=17

[dimanche13]

Сдается мне, ему не нужны намеки, ему нужен код.

[Greymem]

Нетъ и еще раз нетъ =)
Кое до чего я могу дойти сам
Брать SetImageHandle и задавать xy с минусом?

[SBJoker]

именно так, на столько сколько нехватает до требуемой точки на экране.

[Greymem]

Есть вопрос, как узнать сколько мне нехватает до этой точки? =)
Если известна только координата этой точки XY

[SBJoker]

ну смотри, если ты картинку желаешь рисовать в 200, 300
то до начала координат тебе получается -200, -300 так?
Это уже вращение вокруг начала координат получается.

Значит точка_назначения(x,y) - точка_нахождения_картинки(x,y) = смещение_handle_картинки(x,y)

т.е. из координат требуемой точки вращения вычитаем координаты положения видимой части картинки, т.е. если бы у неё был неизмененный хэндл.

[Greymem]

Хммм, а изначально для той картинки которую хочу вращать вокруг точки которой нет на картинке, Handle куда устанавливать то? =)

[SBJoker]

Никуда, он и так изначально в 0,0

[Greymem]

А если мне помимо поворота вокруг произвольной точки, нужно еще и по своей оси потом повернуть?

[SBJoker]

Тога придётся напрячь штуки из вашей подписи.