ЭТЮДЫ

[denpopov]

нет, все работает. Я на другом участке сделал неправильно.
дема на 3ВМ почти готова

[denpopov]

кстати, не нашел темы про скроллер на две точки. Если кто помнит, дайте линк плз, возникла идея.

[Vitamin]

rr h:rr l достаточно

[Destr]

Надо получить HL=A*128
делаю:
ld h,a,l,0
or a:srl h:rr l;A*128

выходит фигня
подскажите плз, что не так?

Должно всё работать.
(а OR A перед SRL H не нужен)

[Alex Rider]

Если кто помнит, дайте линк плз, возникла идея.

Как быстро сколлить память на 2 пиксела?

[denpopov]

нашел описание алгоритма построения окружности:

This is the entire algorithm:

	Y = Radius
	X = 0
	A = Radius/2
:loop
	Plot4(x,y)	;Could just use Plot8
	X = X + 1
	A = A - X
	if A<0 then A=A+Y : Y=Y-1
	if X < Y then :loop

; Now more or less reverse the above to get the other eighth

	A = -R/2 - 1
:loop2	
	Plot4(x,y)
	A = A + Y
	Y = Y - 1
	if A<0 then X=X+1:A=A-X
	if Y>=0 then :loop2

со второй половиной ваааще непонятно, ничего не вышло

[Advertiser]

[Titus]

	A = -R/2 - 1
:loop2	
	Plot4(x,y)
	A = A + Y
	Y = Y - 1
	if A<0 then X=X+1:A=A-X
	if Y>=0 then :loop2

Здесь ошибочка, надо не A<0, а A>0.

[jerri]

denpopov, а что не понятно?
у тебя первая половина рисует 1/8 окружности (половину сектора)
а вторая половина рисует вторую 1/8 окружности

и на середине они должны встретиться

[Titus]

и на середине они должны встретиться

- Я буду есть сосиску с начала, а ты с конца.
- Встретимся на середине!

(c) Котенок по имени Гав.

[denpopov]

а вторая половина рисует вторую 1/8 окружности

не рисует, а выходит горизонтальная линия.

в текстовке есть ссылка на C9 hacking, взял процедуру там.Теперь интересно, прокатит ли EOR fill с заливкой окружности...