	opt	forwardrefmax
#include	coco\main_lib.txt
#include	coco\disk_lib.txt
#include	coco\pmode4_lib.txt
#memstart	15904	;$3e20
	org	$4500	;mem start?
start
	lds	#$44e0	;<$4500
	createsinetable()
	std	sine_table
	cg6_display(#1)
	cg6_cls(#0,#0,#0)
	cg6_cls(#1,#0,#0)
	lda	#0
	sta	my_col
;	sta	65497	;hi speed poke cc3
	clr	page
	lda	#0
	sta	rotation
	lda	#128
	sta	rotation5
dostart
	cg6_scroll_left(page,#1)
	lda	rotation
	adda	#4
	sta	rotation
	plot(sine_table,#175,#96,#40,#50,rotation)
	std	my_x1
	plot(sine_table,my_x1,my_y1,#10,#20,rotation)
	std	my_x1
	lda	rotation
	adda	#32
	sta	rotation2
	plot(sine_table,my_x1,my_y1,#10,#20,rotation2)
	std	my_x2
	cg6_line(page,my_x1,my_y1,my_x2,my_y2,#1)
	lda	rotation
	adda	#64
	sta	rotation3
	plot(sine_table,#127,#96,#40,#50,rotation3)
	std	my_x1
	plot(sine_table,my_x1,my_y1,#10,#20,rotation3)
	std	my_x1
	lda	rotation3
	adda	#32
	sta	rotation4
	plot(sine_table,my_x1,my_y1,#10,#20,rotation4)
	std	my_x2
	cg6_line(page,my_x1,my_y1,my_x2,my_y2,#0)
;second
	lda	rotation5
	suba	#4
	sta	rotation5
	plot(sine_table,#127,#96,#40,#50,rotation5)
	std	my_x1
	plot(sine_table,my_x1,my_y1,#20,#10,rotation5)
	std	my_x1
	lda	rotation5
	suba	#32
	sta	rotation6
	plot(sine_table,my_x1,my_y1,#20,#10,rotation6)
	std	my_x2
	cg6_line(page,my_x1,my_y1,my_x2,my_y2,#1)
	lda	rotation5
	suba	#64
	sta	rotation7
	plot(sine_table,#79,#96,#40,#50,rotation7)
	std	my_x1
	plot(sine_table,my_x1,my_y1,#20,#10,rotation7)
	std	my_x1
	lda	rotation7
	suba	#32
	sta	rotation8
	plot(sine_table,my_x1,my_y1,#20,#10,rotation8)
	std	my_x2
	cg6_line(page,my_x1,my_y1,my_x2,my_y2,#0)
	cg6_nosync(page)
	lbra	dostart




def	rotation	byte
def	rotation2	byte
def	rotation3	byte
def	rotation4	byte
def	rotation5	byte
def	rotation6	byte
def	rotation7	byte
def	rotation8	byte

def	my_x1	byte
def	my_y1	byte
def	my_x2	byte
def	my_y2	byte
def	my_col	byte
def	page	byte
def	sine_table	word

; end of program
cocoromend


	end	start


