Tutorial:interference — различия между версиями

Материал из SpeccyWiki
Перейти к: навигация, поиск
(Новая страница: «Interference или Moire circles - очень популярный демоэффект, который заключается в наложении област...»)
 
 
Строка 4: Строка 4:
 
Одним из вариантов демоэффекта является операция над блоком памяти, где окружность представляет собой значение радиуса, результат
 
Одним из вариантов демоэффекта является операция над блоком памяти, где окружность представляет собой значение радиуса, результат
 
наложения на подобную область памяти интерпретируется как произвольный цвет.
 
наложения на подобную область памяти интерпретируется как произвольный цвет.
 +
<gallery>
 +
Файл:interference.gif
 +
</gallery>
 +
 
Нижеприведенный пример является иллюстрацией, в частности спрайт двидется не плавно, по точкам, а по байтам, на 8 точек.
 
Нижеприведенный пример является иллюстрацией, в частности спрайт двидется не плавно, по точкам, а по байтам, на 8 точек.
 
Оптимизация отсутствует.
 
Оптимизация отсутствует.

Текущая версия на 04:16, 8 августа 2012

Interference или Moire circles - очень популярный демоэффект, который заключается в наложении области памяти, назовём спрайтом, на аналогичный спрайт с помощью операции XOR. Спрайт представляет собой концентрические окружности. Эффект распространен в демо PowerUp, DemoDyin', Dizzy4k, Inner Universe (1994,Extacy-3), Scum 1k Одним из вариантов демоэффекта является операция над блоком памяти, где окружность представляет собой значение радиуса, результат наложения на подобную область памяти интерпретируется как произвольный цвет.

Нижеприведенный пример является иллюстрацией, в частности спрайт двидется не плавно, по точкам, а по байтам, на 8 точек. Оптимизация отсутствует.

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

        ORG #8000

tabbod  =  #6000
PIX_TAB EQU #6000
begin

  call  mkbod
;--zero crap---------------
 ld hl,tabbod+192
lp0
 ld(hl),0
 inc l
 jr nz,lp0
;-------------------------
  ld a,3
  ld  bc,#6080
lp1  push  bc,af
  call  circle
  pop af,bc
 add a,7
 cp 7*17+3
 jr nz,lp1
 
 ld  hl,#6080
 ld b,8
 
lp2
 push bc
 push hl
 call fill
 pop hl
 ld a,l
 add a, 14
 ld l,a
 pop bc
 djnz lp2
 
 ld  hl,#6010
 call fill

 ld  hl,#60F0
 call fill
;

;---------------------------------------
nbde    INC D:LD A,D:AND 7:RET NZ
        LD A,E:ADD A,#20:LD E,A:RET C
        LD A,D:SUB 8:LD D,A:RET 
; ===========================================================================
fill:
		ld	bc, 64h	; 'd'
		call	sub_800B
		ret
; =============== S U B	R O U T	I N E =======================================
sub_800B:				; CODE XREF: RAM:8007�p
		ld	a, h
		cp	0C0h ; 'А'
		ret	nc
		dec	bc
		push	bc
		call	sub_80F9
		ex	de, hl
		call	sub_814B
		jr	c, loc_801C
		pop	bc
		ret
; ---------------------------------------------------------------------------

loc_801C:				; CODE XREF: sub_800B+D�j
		ld	ix, 0FFFFh
		add	ix, sp
		push	hl
		push	bc
		inc	sp
		xor	a
		push	af
		dec	sp
		ld	c, (ix+1)
		ld	b, (ix+2)
		inc	bc
		ld	l, c
		ld	h, b
		add	hl, bc
		add	hl, bc
		ld	c, l
		ld	b, h
		ld	h, a
		ld	l, a
		sbc	hl, bc
		add	hl, sp
		ld	(hl), a
		ld	sp, hl
		ld	a, 80h ; 'Ђ'
		push	af
		inc	sp
		ld	e, l
		ld	d, h
		inc	de
		dec	bc
		ldir
		push	ix
		pop	bc
		ld	hl, 0FFFAh
		add	hl, bc
		ex	de, hl
		ld	l, c
		ld	h, b

loc_8050:				; CODE XREF: sub_800B+AB�j sub_800B+C0�j
		ld	a, (hl)
		cp	80h ; 'Ђ'
		jr	c, loc_8059
		push	ix
		pop	hl
		ld	a, (hl)

loc_8059:				; CODE XREF: sub_800B+48�j
		cp	40h ; '@'
		jr	c, loc_80B8
		ld	b, a
		dec	hl
		ld	c, (hl)
		dec	hl
		ld	a, (hl)
		dec	hl
		inc	(ix+1)
		jr	nz, loc_806B
		inc	(ix+2)

loc_806B:				; CODE XREF: sub_800B+5B�j
		push	hl
		ld	l, c
		ld	h, b
		ld	b, a
		push	hl
		call	sub_8120
		jr	c, loc_807D
		push	bc
		call	sub_814B
		call	c, sub_80D3
		pop	bc

loc_807D:				; CODE XREF: sub_800B+68�j
		pop	hl
		push	hl
		call	sub_8135
		jr	c, loc_808C
		push	bc
		call	sub_814B
		call	c, sub_80D3
		pop	bc

loc_808C:				; CODE XREF: sub_800B+77�j
		pop	hl
		bit	7, b
		jr	z, loc_80A3
		push	hl
		ld	a, l
		dec	l
		and	1Fh
		jr	z, loc_80A2
		push	bc
		ld	b, 1
		call	sub_814B
		call	c, sub_80D3
		pop	bc

loc_80A2:				; CODE XREF: sub_800B+8B�j
		pop	hl

loc_80A3:				; CODE XREF: sub_800B+84�j
		bit	0, b
		jr	z, loc_80B5
		inc	l
		ld	a, l
		and	1Fh
		jr	z, loc_80B5
		ld	b, 80h ; 'Ђ'
		call	sub_814B
		call	c, sub_80D3

loc_80B5:				; CODE XREF: sub_800B+9A�j sub_800B+A0�j
		pop	hl
		jr	loc_8050
; ---------------------------------------------------------------------------

loc_80B8:				; CODE XREF: sub_800B+50�j
		dec	hl
		dec	hl
		dec	hl
		ld	a, (de)
		cp	80h ; 'Ђ'
		jr	c, loc_80C3
		push	ix
		pop	de

loc_80C3:				; CODE XREF: sub_800B+B3�j
		xor	a
		ld	(de), a
		dec	de
		dec	de
		dec	de
		ld	a, (hl)
		cp	40h ; '@'
		jr	nc, loc_8050
		ld	sp, ix
		inc	sp
		inc	sp
		inc	sp
		ret
; End of function sub_800B


; =============== S U B	R O U T	I N E =======================================


sub_80D3:				; CODE XREF: sub_800B+6E�p sub_800B+7D�p ...
		push	hl
		ld	l, (ix+1)
		ld	h, (ix+2)
		ld	a, h
		or	l
		jr	nz, loc_80E0
		pop	hl
		ret
; ---------------------------------------------------------------------------

loc_80E0:				; CODE XREF: sub_80D3+9�j
		dec	hl
		ld	(ix+1),	l
		ld	(ix+2),	h
		pop	hl
		ld	a, (de)
		cp	80h ; 'Ђ'
		jr	c, loc_80F0
		push	ix
		pop	de

loc_80F0:				; CODE XREF: sub_80D3+18�j
		ex	de, hl
		ld	(hl), d
		dec	hl
		ld	(hl), e
		dec	hl
		ld	(hl), b
		dec	hl
		ex	de, hl
		ret
; End of function sub_80D3


; =============== S U B	R O U T	I N E =======================================


sub_80F9:				; CODE XREF: sub_800B+6�p
		and	7
		or	40h ; '@'
		ld	d, a
		ld	a, h
		rra
		rra
		rra
		and	18h
		or	d
		ld	d, a
		ld	a, l
		and	7
		ld	b, a
		ld	a, 80h ; 'Ђ'
		jr	z, loc_8111

loc_810E:				; CODE XREF: sub_80F9+16�j
		rra
		djnz	loc_810E

loc_8111:				; CODE XREF: sub_80F9+13�j
		ld	b, a
		srl	l
		srl	l
		srl	l
		ld	a, h
		rla
		rla
		and	0E0h ; 'а'
		or	l
		ld	e, a
		ret
; End of function sub_80F9


; =============== S U B	R O U T	I N E =======================================


sub_8120:				; CODE XREF: sub_800B+65�p
		ld	a, h
		dec	h
		and	7
		ret	nz
		ld	a, 8
		add	a, h
		ld	h, a
		ld	a, l
		sub	20h ; ' '
		ld	l, a
		ret	nc
		ld	a, h
		sub	8
		ld	h, a
		cp	40h ; '@'
		ret
; End of function sub_8120


; =============== S U B	R O U T	I N E =======================================


sub_8135:				; CODE XREF: sub_800B+74�p
		inc	h
		ld	a, h
		and	7
		ret	nz
		ld	a, h
		sub	8
		ld	h, a
		ld	a, l
		add	a, 20h ; ' '
		ld	l, a
		ret	nc
		ld	a, h
		add	a, 8
		ld	h, a
		cp	58h ; 'X'
		ccf
		ret
; End of function sub_8135


; =============== S U B	R O U T	I N E =======================================


sub_814B:				; CODE XREF: sub_800B+A�p sub_800B+6B�p	...
		ld	a, b
		xor	(hl)
		and	b
		ret	z
		ld	b, a

loc_8150:				; CODE XREF: sub_814B+10�j
		rra
		ld	c, a
		ld	a, b
		add	a, a
		or	c
		or	b
		ld	c, a
		xor	(hl)
		and	c
		cp	b
		ld	b, a
		jp	nz, loc_8150
		or	(hl)
		ld	(hl), a
		scf
		ret
; End of function sub_814B
;-----------end fill procedure--------------
circle  ld  d,a  
  or  a  
  jp  z,bod  
  inc  a  
  ld  h,b  
  ld  l,c  
  ld  (xy14+1),hl  
  ld  (xy15+1),hl  
  ld  (xy16+1),hl  
  ld  (xy17+1),hl  
  ld  xl,a  
  dec  a  
  ld  e,a  
  ld  a,d  
  add  a,b  
  ld  b,a  
  push  de  
  call  bod  
  pop  de  
  ld  a,b  
  sub  d  
  sub  d  
  ld  b,a  
  push  de  
  call  bod  
  pop  de  
  ld  a,b  
  add  a,d  
  ld  b,a  
  ld  a,c  
  add  a,e  
  ld  c,a  
  push  de  
  call  bod  
  pop  de  
  ld  a,c  
  sub  e  
  sub  e  
  ld  c,a  
  call  bod  
  ld  d,#00  
  ld  h,d  
  ld  l,d  
  ld  e,xl  
  ld  ix,#ff  
e130  inc  d  
  ld  c,d  
  ld  b,#00  
  add  hl,bc  
      
  ld  a,h  
  add  a,a  
  jr  nz,e130  
  push  hl  
  add  hl,hl  
  add  hl,hl  
  xor  a  
  ld  b,a  
  ld  c,e  
  sbc  hl,bc  
  pop  hl  
  jr  c,e130  
      
  ld  b,#00  
  ld  c,e  
  sbc  hl,bc  
  dec  e  
  push  hl  
  call  eelin  
  pop  hl  
  ld  xl,d  
  xor  a  
  xor  xh  
  jr  z,e130  
  ret    
      
eelin  inc  xl  
  ld  a,xl  
  cp  e  
  jr  z,eeln1  
  ld  a,e  
  cp  d  
  jr  nc,eeln1  
  ld  xh,d  
  ret    
eeln1  push  de  
  push  ix  
xy14  ld  bc,#5555  
  ld  a,b  
  add  a,e  
  ld  b,a  
  push  de  
  call  ccnn1  
  pop  de  
xy15  ld  bc,#5555  
  ld  a,b  
  sub  e  
  ld  b,a  
  call  ccnn1  
  pop  ix  
  pop  de  
  ld  a,d  
  cp  e  
  jr  nz,eeln2  
  cp  xl  
  ret  z  
eeln2  push  de  
  push  ix  
xy16  ld  bc,#5555  
  ld  a,c  
  add  a,e  
  ld  c,a  
  push  de  
  call  ccnn2  
  pop  de  
xy17  ld  bc,#5555  
  ld  a,c  
  sub  e  
  ld  c,a  
  call  ccnn2  
  pop  ix  
  pop  de  
  ret    
      
ccnn1  push  bc  
  push  de  
  ld  a,c  
  sub  d  
  ex  af,af  
  ld  a,c  
  sub  xl  
  ld  d,a  
  ex  af,af  
  ld  c,a  
  call  rovno  
  pop  de  
  pop  bc  
  ld  a,c  
  add  a,d  
  ld  d,a  
  ld  a,c  
  add  a,xl  
  ld  c,a  
  jp  rovno  

ccnn2  push  bc  
  push  de  
  ld  a,b  
  sub  d  
  ex  af,af  
  ld  a,b  
  sub  xl  
  ld  d,a  
  ex  af,af  
  ld  b,a  
  call  zvislo  
  pop  de  
  pop  bc  
  ld  a,b  
  add  a,d  
  ld  d,a  
  ld  a,b  
  add  a,xl  
  ld  b,a  
  jp  zvislo
;----------------------
bod  ld  h, high tabbod;>
  ld  l,b  
  ld  d,(hl)  
  inc  h  
  ld  a,(hl)  
  inc  h  
  ld  l,c  
  or  (hl)  
  ld  e,a  
  inc  h  
  ld  a,(de)  
bodset  xor  (hl)  
  ld  (de),a  
  ret  
;--------------------------
hitbod  =  high tabbod  ;>
rovno  ld  a,d  
  cp  c  
  jr  nc,rov01  
  ld  d,c  
  ld  c,a  
rov01  ld  h,hitbod+2  
  ld  l,c  
  ld  a,(hl)  
  dec  h  
  ld  l,b  
  or  (hl)  
  dec  h  
  ld  h,(hl)  
  ld  l,a  
  ld  a,c  
  and  #f8  
  ld  e,a  
  ld  a,d  
  and  #f8  
  cp  e  
  jr  nz,r2byte  
  ld  a,c  
  and  #07  
  ld  b,a  
  ld  a,#ff  
  jr  z,rov02  
rov03  srl  a  
  djnz  rov03  
rov02  ld  c,a  
rov99  ld  a,d  
  and  #07  
  ld  b,a  
  ld  a,#80  
  jr  z,rov04  
rov05  scf    
  rra    
  djnz  rov05  
rov04  and  c  
ooset1  xor  (hl)  
  ld  (hl),a  
  ret    
r2byte  sub  e  
  rrca    
  rrca    
  rrca    
  ld  e,a  
  ld  a,c  
  and  #07  
  ld  b,a  
  ld  a,#ff  
  jr  z,ooset2  
rov06  srl  a  
  djnz  rov06  
ooset2  xor  (hl)  
  ld  (hl),a  
  ld  b,c  
  ld  c,#ff  
rov40  inc  l  
  dec  e  
  jr  z,rov99  
  ld  a,c  
ooset3  xor  (hl)  
  ld  (hl),a  
  jr  rov40  
      
zvislo  ld  a,d  
  cp  b  
  jr  nc,zv2  
  ld  d,b  
  ld  b,a  
zv2  ld  a,d  
  sub  b  
  ret  c  
  inc  a  
  ld  d,a  
  ld  h,hitbod+3  
  ld  l,c  
  ld  e,(hl)  
  dec  h  
  ld  a,(hl)  
  dec  h  
  ld  l,b  
  or  (hl)  
  dec  h  
  ld  h,(hl)  
  ld  l,a  
  ld  a,b  
zvis  cpl    
  and  #07  
  inc  a  
  ld  b,a  
zv1  ld  a,e  
ooset4  xor  (hl)  
  ld  (hl),a  
  inc  h  
  dec  d  
  ret  z  
  djnz  zv1  
  ld  b,#08  
  ld  a,#20  
  add  a,l  
  ld  l,a  
  jr  c,zv1  
  ld  a,#f8  
  add  a,h  
  ld  h,a  
  jr  zv1  
;--------------------form
mkbod  ld  ix,tabbod  
  ld  hl,#4000  
mkbb1  ld  (ix+#00),h  
  inc  xh  
  ld  (ix+#00),l  
  dec  xh  
  call  dole  
  inc  xl  
  jr  nz,mkbb1  
  inc  xh  
  inc  xh  
mkbb2  ld  a,xl  
  rrca    
  rrca    
  rrca    
  and  #1f  
  ld  (ix+#00),a  
  ld  a,xl  
  cpl    
  add  a,a  
  add  a,a  
  add  a,a  
  or  #c7  
  ld  (mkbb3+1),a  
  xor  a  
mkbb3  set  1,a  
  inc  xh  
  ld  (ix+#00),a  
  dec  xh  
  inc  xl  
  jr  nz,mkbb2  
  ret    
      
dole  inc  h  
  ld  a,h  
  and  #07  
  ret  nz  
  ld  a,#20  
  add  a,l  
  ld  l,a  
  ret  c  
  ld  a,#f8  
  add  a,h  
  ld  h,a  
  ret  

часть вторая: Процедура демоэффекта

 ld hl,#4000;рисунок запоминается в область памяти
 ld de,#c000
 ld bc,6144
 ldir
 ld hl,#4000;экран очищается
 ld de,#4001
 ld (hl),l
 ld bc,6143
 ldir
 
loop
 ei
 halt
 ld hl, #c408;первая область памяти
var1: ld de,#c004;вторая область памяти, которая будет использована в качестве XOR
 ld ix,#4004;экранная область, где будет производится вывод
 ld b,192; 192 линии для вывода "спрайта"
ilp0
 push hl
 push de
 push ix
ilp1
 dup 24; для упрощения используется 24 операции
 ld a,(de)
 inc de
 xor(hl);сама операция, наложение байта
 inc hl
 ld (ix),a;результат помещается на экран
 inc ix
 edup

 pop de;для упрощения DE=IX, или адрес экрана
 call nbde;переход вниз по линии
 push de
 pop ix; IX=DE, или теперь IX переместился на одну линию на экране
 pop de;подобная операция используется, так как в памяти происходит перемещение по копии экрана
 call nbde; 
 pop hl
 ex de,hl;еще один трюк с использованием DE для вычисления адреса, хранимого в HL(первая область памяти)
 call nbde
 ex de,hl
 dec b
 jp nz,ilp0; цикл по линиям - 192
;--------------------вычисление движения блока памяти, снова: не по точкам, а через 8.
 ld a,(var1+1)
var2: add a,1
 jr z,changedir;если указатель достиг 0,то нужно изменить значение в операции add a,1 на -1
 cp 8; почему 8? экран 32 байта в длину, операция XOR проводится 24 байта.
 jr z,changedir;если 8, то изменение 1 на -1
 jr skip
changedir
 push af;значение запоминается
 ld a,(var2+1)
 neg; 1 на -1 и наоборот
 ld (var2+1),a
 pop af; полученное значение
skip
 ld (var1+1),a
 jp loop; действие продолжается.