ЭТЮДЫ

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

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

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

Цитата:

---

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

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

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

---

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

Цитата:

---

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

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

---

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

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

Код:

---

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

---

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

Цитата:

---

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

Код:

---

        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.

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

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

Цитата:

---

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

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

---

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

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

Цитата:

---

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

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

---

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

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