ZXNet эхоконференция «code.zx»

├┤i, All !

Маус типа кемпстон получает все большее распространение, а никакого
прогресса не наблюдается. В этом просто убедиться запустив первую
попавшуюся программу где есть стрелка и управляется он чем угодно, но
не маусом :-( . Hо это еще половина беды - чтобы двигать стрелку на
большие расстояния надо неплохо размахивать руками (Ц) Медноногов из
zx.spectrum. Hу чтобы руками не размахивать и стрелка не дергалась
при небольшом перемещении есть прогрессивный драйвер мауса в котором
величина смещения мауса умножается на скорость его перемещения. Т.е.
чем быстрее, тем дальше при перемещении на одно расстояние. В резуль-
тате не надо размахивать руками чтобы передвигат стрелку на большое
расстояние и не надо долго и мучительно пытаться передвинуть ее на
1 пиксель - при медленном перемещении все плавно.


Вот сам драйвер (ц) Медноногов.

OLDCO DEFW 0 ;
COORD DEFW 0 ;координаты (х-младший, y-старший)
CONTRB DEFB #FF ;три младших бита - кнопки

MOUSDRV LD BC,#FBDF
LD DE,(OLDCO)
LD HL,(COORD)
IN A,(C) ;вычисление X
LD (OLDCO),A
SUB E
JR Z,MSEx0
JP P,MSEx1
NEG
CALL MSElog
NEG
ADD A,L
JR C,MSExe
XOR A
JR MSExe
MSEx1 CALL MSElog
ADD A,L
JR C,MSEx11
CP 254 ;max X
JR C,MSExe
MSEx11 LD A,254 ;max X
MSExe LD L,A
MSEx0 LD B,#FF ;вычисление Y
IN A,(C)
LD (OLDCO+1),A
SUB D
JR Z,MSEy0
JP M,MSEy1
CALL MSElog
NEG
ADD A,H
JR C,MSEye
XOR A
JR MSEye
MSEy1 NEG
CALL MSElog
ADD A,H
JR C,MSEy11
CP 190 ;max Y
JR C,MSEye
MSEy11 LD A,190 ;max Y
MSEye LD H,A
MSEy0 LD (COORD),HL
LD B,#FA ;кнопки
IN A,(C)
LD (CONTRB),A
RET
;
MSElog CP 4 ;мышка с ускорением
RET C
ADD A,A
JR C,MSElgC
CP 8*2
RET C
ADD A,8
JR C,MSElgC
CP 120
RET C
MSElgC LD A,120
RET


Как оно работает - не вникал. Комментариев нет. Hо принцип ясен.