Вопрос на засыпку: что делает эта подпрограмма?

[jerri]

входные данные result_lh
сумма двух квадратов

выходные данные L - result_l

count_round
;                LDY     rezult_h        ; y=(rezult_h)
;                LDA     rezult_l        ; a=(rezult_l)
;                STA     factor_2        ; (factor2)=(rezult_l)
	ld	de,(rezult_1)
			;	d(y=result_h)
			;	e=factor2

;                 LDX     #0              ; x=0
;                 STX     rezult_l        ; rezult_l=0
;                 LDA     #8
;                 STA     factor_1        ; ctr=8 repeat 16 times

	ld	bc,#0800
			;	b=factor_1
			;	c=x
	ld	l,0	
			;	l=rezult_l
count_loop
;                 CPX     rezult_l        ; x=(result_l)?
		
	ld	a,c
	cp	l

;                 BCC     skip_decr       ; jr nc
	jr	nc,skip_decr

;                 BNE     no_chek_round   ; jr nz
	jr	nz,no_chek_round



;                 CPY     #$40 ; '@'      ; y(rezult_h)=#40?
	ld	a,d
	cp	#40

;                 BCC     skip_decr       ; jr nc
	jr	nc,skip_decr



no_chek_round
;                 TYA
;                 SBC     #$40 ; '@'      ; y(result_h)-#40
;                 TAY

	ld	a,d
	sbc	a,#40	
	ld	d,a

;                 TXA
;                 SBC     rezult_l        ; x-result_l
;                 TAX

	ld	a,c
	sbc	a,l
	ld	c,a

skip_decr

;                 ROL     rezult_l        ; rezult_l*2

	rl	l


;                 ASL     factor_2        ; <(factor2)(result_l)
;                 TYA
;                 ROL     A               ; <y
;                 TAY
;                 TXA
;                 ROL     A               ; <x
;                 TAX

	sla	e
	rl	d
	rl	c

;                 ASL     factor_2        ; <(factor2)(result_l)
;                 TYA
;                 ROL     A               ; <y
;                 TAY
;                 TXA
;                 ROL     A               ; ;<x
;                 TAX

	sla	e
	rl	d
	rl	c

;                 DEC     factor_1
;                 BNE     count_loop

	djnz	count_loop

;                 RTS
	ret

[Advertiser]

[svofski]

Просто догадка, приближение квадратного корня?

http://6502org.wikidot.com/software-math-sqrt

На 6502 совсем мой глаз не заточен, но вроде похоже.

[jerri]

svofski, да это определенно извлечение корня.
но зачем?

у нас есть сумма катетов. зачем нам гипотенуза?

[svofski]

Длина отрезка, вектора, расстояние между двумя точками, Евклидова норма, L2-норма. В графике постоянно пригождается. Можно определить принадлежность точки к кругу, или шару. В большинстве случаев можно сэкономить извлечение корня и сравнивать так же с квадратом расстояния. Но если это не просто сравнение, то не всегда получается так упростить. Это же Элита?

[Shiny]

Может, решение квадратного уравнения втиснулось?

[jerri]

Длина отрезка, вектора, расстояние между двумя точками, Евклидова норма, L2-норма. В графике постоянно пригождается. Можно определить принадлежность точки к кругу, или шару. В большинстве случаев можно сэкономить извлечение корня и сравнивать так же с квадратом расстояния. Но если это не просто сравнение, то не всегда получается так упростить. Это же Элита?

ага
заставка с Акорна
там где рисуется подсвеченная планета

[svofski]

Тогда это может быть модель освещения. яркость = dotproduct(нормаль к сфере, вектор на лампочку) * коэффициент. Чтобы это работало, векторы нужно нормировать, для этого надо их компоненты умножить на величину обратную длине. Это удобно ложится на стандартные наборы алгоритмов, в которых как правило есть уже разработанное оптимизированное приближение 1/sqrt(x) (square root reciprocal). Для сферы по идее можно и упростить, принять все размеры за 1.

[jerri]

нет

svofski,

берется рандомное число
возводится в квадрат
берется еще одно рандомное число

сохраняем

возводится в квадрат
складываем с первым квадратом
если больше то точку игнорируем

из 4000 вычитаем сумму
если меньше то точку игнорируем

потом извлекаем корень
и берем сохраненное число
рисуем точку по координатам

[svofski]

Освещение методом монте карло? Сфера и освещение 1 бит на пиксель с дизерингом.

[jerri]

svofski, по факту вот такая картинка