Цитата Сообщение от GM BIT Посмотреть сообщение
Есть у кого процедура построения окружности? Покороче, и которая рисуется НЕ посекторно.
алгоритм Брезенхема, но у меня пока нет, увы.

---------- Post added at 01:20 ---------- Previous post was at 00:36 ----------

вот, пойдет, пожалуй из раскопок:
;--------точка,построение по de(y,x)--------------------------

PLOTTBL EQU #A000

call FORMER

FORMER LD DE,#4000,BC,#8000,L,E
FLP1 LD H,high PLOTTBL
LD (HL),D:INC H:LD (HL),E:INC H
LD (HL),C:INC H:LD (HL),B
RRC B
LD A,C:ADC A,0:LD C,A
FBR1 INC D:LD A,D:AND 7
JR NZ,FNXT:LD A,E:ADD A,32
LD E,A:JR C,FNXT
LD A,D:SUB 8:LD D,A
FNXT INC L:JR NZ,FLP1
LD HL,PLOTTBL+#C0,BC,#3F
LD DE,HL:INC E
LD (HL),0:LDIR
RET
;-----------ставим точку на DE------------------------
PLOT PUSH HL,BC:LD H,PLOTTBL[,L,D,B,(HL):INC H
LD A,(HL),L,E:INC H:OR (HL)
INC H:LD C,A,A,(BC)
OR (HL):LD (BC),A
POP BC,HL:RET