shapetest2.s

# Plane Intersection Tester
	.data
prompt:
	.asciiz "Enter Ray Postion (x,y,z), Direction (x,y,z), Plane Point (x,y,z) and Plane Normal (x,y,z)\n"
ret:
	.asciiz "\n"
plane:	.word 0,0,0,0,0,0,0,0,0,0,0,0,0
ray:	.word 0,0,0,0,0,0,0,0,0,0,0,0
	.text
	.globl main
main:
	la $a0, prompt
	li $v0, 4
	syscall
	la $s0, ray
	la $s1, plane
	li $v0, 7
	syscall
	s.d $f0, 0($s0)
	syscall
	s.d $f0, 8($s0)
	syscall
	s.d $f0, 16($s0)
	syscall
	s.d $f0, 24($s0)
	syscall
	s.d $f0, 32($s0)
	syscall
	s.d $f0, 40($s0)
	syscall
	s.d $f0, 4($s1)
	syscall
	s.d $f0, 12($s1)
	syscall
	s.d $f0, 20($s1)
	syscall
	s.d $f0, 28($s1)
	syscall
	s.d $f0, 36($s1)
	syscall
	s.d $f0, 44($s1)
	# Test Intersect
	la $a0, ray
	la $a1, plane
	jal plane.intersect
	beq $v0, $zero, exit
	add $a0, $v0, $zero
	li $v0, 1
	syscall
	li $v0, 4
	la $a0, ret
	syscall
	li $v0, 3
	mov.d $f12, $f0
	syscall
	li $v0, 4
	la $a0, ret
	syscall
	#Test Reflect
	la $a0, ray
	la $a1, plane
	jal plane.reflect
	add $s3, $v0, $zero
	li $v0, 3
	l.d $f12, 0($s3)
	syscall
	li $v0, 4
	la $a0, ret
	syscall
	li $v0, 3
	l.d $f12, 8($s3)
	syscall
	li $v0, 4
	la $a0, ret
	syscall
	li $v0, 3
	l.d $f12, 16($s3)
	syscall
	li $v0, 4
	la $a0, ret
	syscall
	li $v0, 3
	l.d $f12, 24($s3)
	syscall
	li $v0, 4
	la $a0, ret
	syscall
	li $v0, 3
	l.d $f12, 32($s3)
	syscall
	li $v0, 4
	la $a0, ret
	syscall
	li $v0, 3
	l.d $f12, 40($s3)
	syscall
	li $v0, 4
	la $a0, ret
	syscall
exit:
	li $v0, 10
	syscall