From ad9e782d84e9315dd8e16ad5b139e9034b9dad7d Mon Sep 17 00:00:00 2001
From: John Tsiombikas <nuclear@member.fsf.org>
Date: Mon, 27 Jun 2022 05:19:34 +0300
Subject: [PATCH] relfection failed

---
 bootcard.asm |   64 +++++++++++++++++++++++++++++++---------------------------
 1 file changed, 34 insertions(+), 30 deletions(-)

diff --git a/bootcard.asm b/bootcard.asm
index 4a2f3e4..67e935e 100644
--- a/bootcard.asm
+++ b/bootcard.asm
@@ -9,7 +9,8 @@
 nticks	equ 7e00h
 tmoffs	equ 7e04h
 musptr	equ 7e08h
-ppos	equ 7e0ch
+frame	equ 7e0ch
+fval	equ 7e10h
 
 %macro setcur 2
 	mov dx, %1 | (%2 << 8)
@@ -74,12 +75,6 @@ mainloop:
 	and al, 8
 	jz .novb
 
-	call drawbg
-
-	call psys
-
-	jmp mainloop
-
 drawbg:
 	mov bx, 200
 	mov di, 5120
@@ -115,25 +110,34 @@ drawbg:
 
 	dec cx
 	jnz .mnt
-	
-	ret
+	;ret
+
+refl:	mov di, 150 * 320
+	mov si, di
+	mov dx, 50
+	fldz
+.rloop:	fld st0
+	fiadd word [frame]
+	fidiv word [w30]
+	fsincos
+	fistp word [fval]
+	fstp st0
+	fld1
+	fadd
+
+	mov ax, [fval]
+	;add ax, 2
+	imul ax, ax, 320
+	sub si, ax
 
-psys:	cmp word [ppos + 2], 0
-	ja .skipspawn
-
-	call rnd
-	add ax, 128
-	mov [ppos + 2], ax
-	call rnd
-	add ax, 32
-	mov [ppos], ax
-.skipspawn:
-	dec word [ppos + 2]
-	mov ax, [ppos + 2]
-	shr ax, 2
-	imul bx, ax, 320
-	add bx, [ppos]
-	mov byte [es:bx], 0eh
+	mov cx, 160
+	rep movsw
+	sub si, 640
+	dec dx
+	jnz .rloop
+
+	inc word [frame]
+	jmp mainloop
 
 rnd:	in al, 40h
 	mov ah, al
@@ -199,11 +203,11 @@ music:	dd 0a2f8f00h, 0a11123a1h, 23a11423h, 28000023h, 0be322f8fh, 25c0391fh
 w5:	dw 5
 w30:	dw 30
 
-	times 446-($-$$) db 0
-	dd 00212080h
-	dd 0820280ch
-	dd 00000800h
-	dd 0001f800h
+	;times 446-($-$$) db 0
+	;dd 00212080h
+	;dd 0820280ch
+	;dd 00000800h
+	;dd 0001f800h
 
 	times 510-($-$$) db 0
 	dw 0aa55h
-- 
1.7.10.4