diff --git a/graphics/gr/plasma/Makefile b/graphics/gr/plasma/Makefile
index db33ab41..4948272b 100644
--- a/graphics/gr/plasma/Makefile
+++ b/graphics/gr/plasma/Makefile
@@ -9,7 +9,8 @@ all:	plasma.dsk
 
 plasma.dsk:	HELLO PLASMA PLASMA2 \
 	DIAMONDS STATIC STATIC_BOT \
-	PLASMA_128 PLASMA_TINY PLASMA_BOT WIRES WIRES_BOT
+	PLASMA_128 PLASMA_TINY PLASMA_BOT WIRES WIRES_BOT \
+	SMALLCIRCS STAR OVAL
 	cp $(EMPTYDISK) plasma.dsk
 	$(DOS33) -y plasma.dsk SAVE A HELLO
 	$(DOS33) -y plasma.dsk BSAVE -a 0x70 PLASMA
@@ -22,6 +23,9 @@ plasma.dsk:	HELLO PLASMA PLASMA2 \
 	$(DOS33) -y plasma.dsk BSAVE -a 0xc00 DIAMONDS
 	$(DOS33) -y plasma.dsk BSAVE -a 0xc00 STATIC
 	$(DOS33) -y plasma.dsk BSAVE -a 0x384 STATIC_BOT
+	$(DOS33) -y plasma.dsk BSAVE -a 0xc00 SMALLCIRCS
+	$(DOS33) -y plasma.dsk BSAVE -a 0xc00 STAR
+	$(DOS33) -y plasma.dsk BSAVE -a 0xc00 OVAL
 
 ###
 
@@ -44,6 +48,33 @@ PLASMA2:	plasma2.o
 plasma2.o:	plasma2.s
 	ca65 -o plasma2.o plasma2.s -l plasma2.lst
 
+###
+
+SMALLCIRCS:	smallcircs.o
+	ld65 -o SMALLCIRCS smallcircs.o -C $(LINKERSCRIPTS)/apple2_c00.inc
+
+smallcircs.o:	smallcircs.s
+	ca65 -o smallcircs.o smallcircs.s -l smallcircs.lst
+
+###
+
+STAR:	star.o
+	ld65 -o STAR star.o -C $(LINKERSCRIPTS)/apple2_c00.inc
+
+star.o:	star.s
+	ca65 -o star.o star.s -l star.lst
+
+
+###
+
+OVAL:	oval.o
+	ld65 -o OVAL oval.o -C $(LINKERSCRIPTS)/apple2_c00.inc
+
+oval.o:	oval.s
+	ca65 -o oval.o oval.s -l oval.lst
+
+
+
 ###
 
 DIAMONDS:	diamonds.o
diff --git a/graphics/gr/plasma/make_sine.c b/graphics/gr/plasma/make_sine.c
index 6efefc0a..a3b1d77c 100644
--- a/graphics/gr/plasma/make_sine.c
+++ b/graphics/gr/plasma/make_sine.c
@@ -7,7 +7,9 @@ int main(int argc, char **argv) {
 
 	double d;
 	int i,r;
+	unsigned char c;
 
+#if 0
 	for(i=0;i<16;i++) {
 
 		d=(((double)i)*2.0*PI)/16.0;
@@ -17,6 +19,20 @@ int main(int argc, char **argv) {
 		printf("%i, %02X\n",i,r);
 
 	}
+#endif
+	for(i=0;i<64;i++) {
+
+		d=(((double)i)*2.0*PI)/64.0;
+
+		r=32*sin(d);
+
+		c=r;
+
+		printf("$%02X,",c);
+
+	}
+	printf("\n");
+
 
 	return 0;
 }
diff --git a/graphics/gr/plasma/oval.s b/graphics/gr/plasma/oval.s
new file mode 100644
index 00000000..23a10f8d
--- /dev/null
+++ b/graphics/gr/plasma/oval.s
@@ -0,0 +1,169 @@
+; Ovals
+
+; zero page
+GBASL	= $26
+GBASH	= $27
+MASK	= $2E
+COLOR	= $30
+;CTEMP	= $68
+YY	= $69
+
+FRAME	= $FC
+SUM	= $FD
+SAVEX	= $FE
+SAVEY	= $FF
+
+; soft-switches
+FULLGR	= $C052
+PAGE1	= $C054
+
+; ROM routines
+PLOT    = $F800                 ;; PLOT AT Y,A
+PLOT1	= $F80E		;; PLOT at (GBASL),Y (need MASK to be $0f or $f0)
+GBASCALC= $F847		;; take Y-coord/2 in A, put address in GBASL/H ( a trashed, C clear)
+SETCOL  = $F864		;; COLOR=A*17
+SETGR	= $FB40
+
+
+
+	;================================
+	; Clear screen and setup graphics
+	;================================
+oval:
+
+	jsr	SETGR		; set lo-res 40x40 mode
+	bit	FULLGR		; make it 40x48
+
+draw_oval:
+	inc	FRAME
+
+	ldx	#47		; YY
+create_yloop:
+
+	ldy	#39
+	txa
+	jsr	PLOT	; (Y,A) sets GBASL/GBASH, Y
+
+create_xloop:
+
+;	lda	#128
+	lda	FRAME
+	sta	SUM
+
+	tya			; XX
+	jsr	calcsine_div2
+
+	txa			; YY
+	jsr	calcsine
+
+	; X (YY) is in SAVEX
+
+	clc
+;	sty	SAVEY		; XX
+	tya
+	adc	SAVEX		; XX + YY
+	jsr	calcsine_div2
+
+;	clc
+;	adc	FRAME
+
+	lsr				; double colors
+	and	#$7			; mask
+	tax
+	lda	colorlookup,X
+
+	jsr	SETCOL
+
+	jsr	PLOT1		; PLOT (GBASL),Y
+
+	ldx	SAVEX
+
+	dey
+	bpl	create_xloop
+
+	dex
+	bpl	create_yloop
+
+	; X and Y both $FF
+
+	bmi	draw_oval
+
+
+
+calcsine_div2:
+	lsr
+calcsine:
+	stx	SAVEX
+
+	and	#$3f
+
+	tax
+	rol
+	rol
+	rol
+	bcc	sinadd
+
+sinsub:
+	lda	#0
+	lda	SUM
+;	sec
+	sbc	sinetable-32,X
+	jmp	sindone
+
+sinadd:
+	lda	SUM
+;	clc
+	adc	sinetable,X
+
+sindone:
+	sta	SUM
+
+	ldx	SAVEX
+	rts
+
+
+colorlookup:
+
+; blue
+;.byte $55,$77,$ff,$77,$66,$22,$55	; use 00 from sinetable
+;.byte $00
+
+; pink
+.byte $55,$11,$33,$bb,$ff,$bb,$55
+;.byte $00
+
+; green
+;.byte $55,$44,$cc,$ff,$cc,$44,$55	; use 00 from sinetable
+;.byte $00
+
+; orange
+;.byte $99,$88,$ff,$44,$cc,$ff,$55	; use 00 from sinetable
+;.byte $00
+
+;.byte $00,$00,$55,$55,$77,$77,$ff,$ff
+;.byte $77,$77,$66,$66,$22,$22,$55,$55
+
+
+sinetable:
+; this is actually (32*sin(x))
+
+.byte $00,$03,$06,$09,$0C,$0F,$11,$14
+.byte $16,$18,$1A,$1C,$1D,$1E,$1F,$1F
+.byte $20,$1F,$1F,$1E,$1D,$1C,$1A,$18
+.byte $16,$14,$11,$0F,$0C,$09,$06,$03
+;.byte $00,$FD,$FA,$F7,$F4,$F1,$EF,$EC
+;.byte $EA,$E8,$E6,$E4,$E3,$E2,$E1,$E1
+;.byte $E0,$E1,$E1,$E2,$E3,$E4,$E6,$E8
+;.byte $EA,$EC,$EF,$F1,$F4,$F7,$FA,$FD
+
+
+;.byte $00,$06,$0C,$11,$16,$1A,$1D,$1F
+;.byte $20,$1F,$1D,$1A,$16,$11,$0C,$06
+;.byte $00,$FA,$F4,$EF,$EA,$E6,$E3,$E1
+;.byte $E0,$E1,$E3,$E6,$EA,$EF,$F4,$FA
+
+;.byte $00,$0C,$16,$1D
+;.byte $20,$1D,$16,$0C
+;.byte $00,$F4,$EA,$E3
+;.byte $E0,$E3,$EA,$F4
+
diff --git a/graphics/gr/plasma/plasma2.s b/graphics/gr/plasma/plasma2.s
index 6e213496..6d9b3c9f 100644
--- a/graphics/gr/plasma/plasma2.s
+++ b/graphics/gr/plasma/plasma2.s
@@ -37,50 +37,61 @@ plasma:
 	jsr	SETGR		; set lo-res 40x40 mode
 	bit	FULLGR		; make it 40x48
 
-
-
 draw_plasma:
-	ldx	#39
+
+;	lda	#$0f
+;	sta	MASK
+
+	ldx	#47		; YY
 create_yloop:
-	ldy	#47
+
+;	lda	MASK
+;	eor	#$FF
+;	sta	MASK
+
+;	txa
+;	lsr
+;	jsr	GBASCALC	; take Y-coord/2 in A, put address in GBASL/H ( a trashed, C clear)
+
+	ldy	#0
+	txa
+	jsr	PLOT	; (Y,A) sets GBASL/GBASH, Y
+
+	ldy	#39
+
 create_xloop:
+
 	lda	#128
 	sta	SUM
-	txa
-	adc	FRAME
-	jsr	calcsine
 
-	tya
-;	adc	FRAME
-	jsr	calcsine_div_2
+	tya			; XX
+	jsr	calcsine_div2
+
+	txa			; YY
+	jsr	calcsine
 
 	clc
-	stx	SAVEX
-	tya
-	adc	SAVEX
-	jsr	calcsine
+	sty	SAVEY		; XX
+	txa
+	adc	SAVEY		; XX + YY
+	jsr	calcsine_div2
 
-	stx	SAVEX
-	sty	SAVEY
-
-;	clc
+	clc
 	adc	FRAME
 
+	lsr
 	and	#$7
 	tax
 	lda	colorlookup,X
 
 	jsr	SETCOL
 
+	ldy	SAVEY
+	lda	SAVEX
 
-	ldy	SAVEX
-	lda	SAVEY
-
-	jsr	PLOT		; PLOT Y,A
+	jsr	PLOT1		; PLOT (GBASL),Y
 
 	ldx	SAVEX
-	ldy	SAVEY
-
 
 	dey
 	bpl	create_xloop
@@ -208,20 +219,39 @@ frame_smc:
 .endif
 
 
-calcsine_div_8:
-	lsr
-calcsine_div_4:
-	lsr
-calcsine_div_2:
+;calcsine_div8:
+;	lsr
+;calcsine_div4:
+;	lsr
+
+calcsine_div2:
 	lsr
 calcsine:
 	stx	SAVEX
-	and	#$f
+
+	and	#$3f
+
 	tax
-	lda	sinetable,X
-	clc
-	adc	SUM
+	rol
+	rol
+	rol
+	bcc	sinadd
+
+sinsub:
+	lda	#0
+	lda	SUM
+;	sec
+	sbc	sinetable-32,X
+	jmp	sindone
+
+sinadd:
+	lda	SUM
+;	clc
+	adc	sinetable,X
+
+sindone:
 	sta	SUM
+
 	ldx	SAVEX
 	rts
 
@@ -229,14 +259,34 @@ calcsine:
 colorlookup:
 
 ; blue
-.byte $55,$22,$66,$77,$ff,$77,$55,$00
+;.byte $55,$22,$66,$77,$ff,$77,$55,$00
 
+.byte $00,$55,$77,$ff,$77,$66,$22,$55
+
+;.byte $00,$00,$55,$55,$77,$77,$ff,$ff
+;.byte $77,$77,$66,$66,$22,$22,$55,$55
 
 
 sinetable:
 ; this is actually (32*sin(x))
-.byte $00,$0C,$16,$1D
-.byte $20,$1D,$16,$0C
-.byte $00,$F4,$EA,$E3
-.byte $E0,$E3,$EA,$F4
+
+.byte $00,$03,$06,$09,$0C,$0F,$11,$14
+.byte $16,$18,$1A,$1C,$1D,$1E,$1F,$1F
+.byte $20,$1F,$1F,$1E,$1D,$1C,$1A,$18
+.byte $16,$14,$11,$0F,$0C,$09,$06,$03
+;.byte $00,$FD,$FA,$F7,$F4,$F1,$EF,$EC
+;.byte $EA,$E8,$E6,$E4,$E3,$E2,$E1,$E1
+;.byte $E0,$E1,$E1,$E2,$E3,$E4,$E6,$E8
+;.byte $EA,$EC,$EF,$F1,$F4,$F7,$FA,$FD
+
+
+;.byte $00,$06,$0C,$11,$16,$1A,$1D,$1F
+;.byte $20,$1F,$1D,$1A,$16,$11,$0C,$06
+;.byte $00,$FA,$F4,$EF,$EA,$E6,$E3,$E1
+;.byte $E0,$E1,$E3,$E6,$EA,$EF,$F4,$FA
+
+;.byte $00,$0C,$16,$1D
+;.byte $20,$1D,$16,$0C
+;.byte $00,$F4,$EA,$E3
+;.byte $E0,$E3,$EA,$F4
 
diff --git a/graphics/gr/plasma/smallcircs.s b/graphics/gr/plasma/smallcircs.s
new file mode 100644
index 00000000..bf597b3c
--- /dev/null
+++ b/graphics/gr/plasma/smallcircs.s
@@ -0,0 +1,254 @@
+; more plasma
+
+; by Vince `deater` Weaver (vince@deater.net) / dSr
+; with some help from qkumba
+
+; zero page
+GBASL	= $26
+GBASH	= $27
+MASK	= $2E
+COLOR	= $30
+;CTEMP	= $68
+YY	= $69
+
+FRAME	= $FC
+SUM	= $FD
+SAVEX	= $FE
+SAVEY	= $FF
+
+; soft-switches
+FULLGR	= $C052
+PAGE1	= $C054
+
+; ROM routines
+PLOT    = $F800                 ;; PLOT AT Y,A
+PLOT1	= $F80E		;; PLOT at (GBASL),Y (need MASK to be $0f or $f0)
+GBASCALC= $F847		;; take Y-coord/2 in A, put address in GBASL/H ( a trashed, C clear)
+SETCOL  = $F864		;; COLOR=A*17
+SETGR	= $FB40
+
+
+
+	;================================
+	; Clear screen and setup graphics
+	;================================
+plasma:
+
+	jsr	SETGR		; set lo-res 40x40 mode
+	bit	FULLGR		; make it 40x48
+
+draw_plasma:
+
+	lda	#$0f
+	sta	MASK
+
+	ldx	#47		; YY
+create_yloop:
+
+	lda	MASK
+	eor	#$FF
+	sta	MASK
+
+	txa
+	lsr
+	jsr	GBASCALC	; take Y-coord/2 in A, put address in GBASL/H ( a trashed, C clear)
+
+	ldy	#39
+
+create_xloop:
+
+	lda	#128
+	sta	SUM
+
+	tya			; XX
+	jsr	calcsine
+
+	txa			; YY
+	jsr	calcsine
+
+	clc
+	sty	SAVEY		; XX
+	txa
+	adc	SAVEY		; XX + YY
+	jsr	calcsine
+
+	clc
+	adc	FRAME
+
+	and	#$7
+	tax
+	lda	colorlookup,X
+
+	jsr	SETCOL
+
+	ldy	SAVEY
+	lda	SAVEX
+
+	jsr	PLOT1		; PLOT (GBASL),Y
+
+	ldx	SAVEX
+
+	dey
+	bpl	create_xloop
+
+	dex
+	bpl	create_yloop
+
+	; X and Y both $FF
+
+create_lookup_done:
+
+forever_loop:
+	inc	FRAME
+
+	jmp	draw_plasma
+;	jmp	forever_loop
+
+.if 0
+cycle_colors:
+
+	; cycle colors
+	; instead of advancing entire frame, do slightly slower route
+	; instead now and just incrememnting the frame and doing the
+	; adjustment at plot time.
+
+	; increment frame
+
+	inc	frame_smc+1
+
+	; set/flip pages
+	; we want to flip pages and then draw to the offscreen one
+
+flip_pages:
+
+;	ldy	#0
+
+;	iny			; y is $FF, make it 0
+
+	lda	draw_page_smc+1	; DRAW_PAGE
+	bne	done_page
+	dey
+done_page:
+;	ldx	PAGE1,Y		; set display page to PAGE1 or PAGE2
+
+	ldx	$BF56,Y		; PAGE1 - $FF
+
+	eor	#$4		; flip draw page between $400/$800
+	sta	draw_page_smc+1 ; DRAW_PAGE
+
+
+	; plot current frame
+	; scan whole 40x48 screen and plot each point based on
+	; lookup table colors
+plot_frame:
+
+	ldx	#47		; YY=47 (count backwards)
+plot_yloop:
+
+	txa			; get YY into A
+	pha			; save X for later
+	lsr			; call actually wants Ycoord/2
+
+	php			; save C flag for mask handling
+
+	; ugh can't use PLOT trick as it always will draw something
+	; to PAGE1 even if we don't want to
+
+	jsr	GBASCALC	; point GBASL/H to address in (A is ycoord/2)
+				; after, A is GBASL, C is clear
+
+	lda	GBASH		; adjust to be PAGE1/PAGE2 ($400 or $800)
+draw_page_smc:
+	adc	#0
+	sta	GBASH
+
+	; increment YY in top nibble of lookup for (yy<<16)+xx
+	; clc	from above, C always 0
+	lda	plot_lookup_smc+1
+	adc	#$10		; no need to mask as it will oflo and be ignored
+	sta	plot_lookup_smc+1
+
+	;==========
+
+	ldy	#39		; XX = 39 (countdown)
+
+	; sets MASK by calling into middle of PLOT routine
+	; by Y being 39 draw in a spot that gets over-written
+
+	plp
+	jsr	$f806
+
+plot_xloop:
+
+	tya			; get XX & 0x0f
+	and	#$f
+	tax
+
+plot_lookup_smc:
+	lda	lookup,X	; load lookup, (YY*16)+XX
+
+	clc
+frame_smc:
+	adc	#$00		; add in frame
+
+	and	#$f
+	lsr			; we actually only have 8 colors
+
+	tax
+
+	lda	colorlookup,X	; lookup color
+
+
+	sta	COLOR		; each nibble should be same
+
+	jsr	PLOT1		; plot at GBASL,Y (x co-ord goes in Y)
+
+	dey
+	bpl	plot_xloop
+
+	pla			; restore YY
+	tax
+	dex
+	bpl	plot_yloop
+	bmi	forever_loop
+.endif
+
+
+;calcsine_div_8:
+;	lsr
+;calcsine_div_4:
+;	lsr
+;calcsine_div_2:
+;	lsr
+calcsine:
+	asl
+	stx	SAVEX
+	and	#$f
+	tax
+	lda	sinetable,X
+	clc
+	adc	SUM
+	sta	SUM
+	ldx	SAVEX
+	rts
+
+
+colorlookup:
+
+; blue
+.byte $55,$22,$66,$77,$ff,$77,$55,$00
+
+
+
+sinetable:
+; this is actually (32*sin(x))
+.byte $00,$06,$0C,$11,$16,$1A,$1D,$1F
+.byte $20,$1F,$1D,$1A,$16,$11,$0C,$06
+;.byte $00,$FA,$F4,$EF,$EA,$E6,$E3,$E1
+;.byte $E0,$E1,$E3,$E6,$EA,$EF,$F4,$FA
+
+;.byte $00,$0C,$16,$1D
+;.byte $20,$1D,$16,$0C
+;.byte $00,$F4,$EA,$E3
+;.byte $E0,$E3,$EA,$F4
+
diff --git a/graphics/gr/plasma/star.s b/graphics/gr/plasma/star.s
new file mode 100644
index 00000000..50edd662
--- /dev/null
+++ b/graphics/gr/plasma/star.s
@@ -0,0 +1,259 @@
+; more plasma
+
+; by Vince `deater` Weaver (vince@deater.net) / dSr
+; with some help from qkumba
+
+; zero page
+GBASL	= $26
+GBASH	= $27
+MASK	= $2E
+COLOR	= $30
+;CTEMP	= $68
+YY	= $69
+
+FRAME	= $FC
+SUM	= $FD
+SAVEX	= $FE
+SAVEY	= $FF
+
+; soft-switches
+FULLGR	= $C052
+PAGE1	= $C054
+
+; ROM routines
+PLOT    = $F800                 ;; PLOT AT Y,A
+PLOT1	= $F80E		;; PLOT at (GBASL),Y (need MASK to be $0f or $f0)
+GBASCALC= $F847		;; take Y-coord/2 in A, put address in GBASL/H ( a trashed, C clear)
+SETCOL  = $F864		;; COLOR=A*17
+SETGR	= $FB40
+
+
+
+	;================================
+	; Clear screen and setup graphics
+	;================================
+plasma:
+
+	jsr	SETGR		; set lo-res 40x40 mode
+	bit	FULLGR		; make it 40x48
+
+draw_plasma:
+
+	lda	#$0f
+	sta	MASK
+
+	ldx	#47		; YY
+create_yloop:
+
+	lda	MASK
+	eor	#$FF
+	sta	MASK
+
+	txa
+	lsr
+	jsr	GBASCALC	; take Y-coord/2 in A, put address in GBASL/H ( a trashed, C clear)
+
+	ldy	#39
+
+create_xloop:
+
+	lda	#128
+	sta	SUM
+
+	tya			; XX
+	jsr	calcsine
+
+	txa			; YY
+	jsr	calcsine
+
+	clc
+	sty	SAVEY		; XX
+	txa
+	adc	SAVEY		; XX + YY
+	jsr	calcsine
+
+	clc
+	adc	FRAME
+
+	lsr
+	and	#$7
+	tax
+	lda	colorlookup,X
+
+	jsr	SETCOL
+
+	ldy	SAVEY
+	lda	SAVEX
+
+	jsr	PLOT1		; PLOT (GBASL),Y
+
+	ldx	SAVEX
+
+	dey
+	bpl	create_xloop
+
+	dex
+	bpl	create_yloop
+
+	; X and Y both $FF
+
+create_lookup_done:
+
+forever_loop:
+	inc	FRAME
+
+	jmp	draw_plasma
+;	jmp	forever_loop
+
+.if 0
+cycle_colors:
+
+	; cycle colors
+	; instead of advancing entire frame, do slightly slower route
+	; instead now and just incrememnting the frame and doing the
+	; adjustment at plot time.
+
+	; increment frame
+
+	inc	frame_smc+1
+
+	; set/flip pages
+	; we want to flip pages and then draw to the offscreen one
+
+flip_pages:
+
+;	ldy	#0
+
+;	iny			; y is $FF, make it 0
+
+	lda	draw_page_smc+1	; DRAW_PAGE
+	bne	done_page
+	dey
+done_page:
+;	ldx	PAGE1,Y		; set display page to PAGE1 or PAGE2
+
+	ldx	$BF56,Y		; PAGE1 - $FF
+
+	eor	#$4		; flip draw page between $400/$800
+	sta	draw_page_smc+1 ; DRAW_PAGE
+
+
+	; plot current frame
+	; scan whole 40x48 screen and plot each point based on
+	; lookup table colors
+plot_frame:
+
+	ldx	#47		; YY=47 (count backwards)
+plot_yloop:
+
+	txa			; get YY into A
+	pha			; save X for later
+	lsr			; call actually wants Ycoord/2
+
+	php			; save C flag for mask handling
+
+	; ugh can't use PLOT trick as it always will draw something
+	; to PAGE1 even if we don't want to
+
+	jsr	GBASCALC	; point GBASL/H to address in (A is ycoord/2)
+				; after, A is GBASL, C is clear
+
+	lda	GBASH		; adjust to be PAGE1/PAGE2 ($400 or $800)
+draw_page_smc:
+	adc	#0
+	sta	GBASH
+
+	; increment YY in top nibble of lookup for (yy<<16)+xx
+	; clc	from above, C always 0
+	lda	plot_lookup_smc+1
+	adc	#$10		; no need to mask as it will oflo and be ignored
+	sta	plot_lookup_smc+1
+
+	;==========
+
+	ldy	#39		; XX = 39 (countdown)
+
+	; sets MASK by calling into middle of PLOT routine
+	; by Y being 39 draw in a spot that gets over-written
+
+	plp
+	jsr	$f806
+
+plot_xloop:
+
+	tya			; get XX & 0x0f
+	and	#$f
+	tax
+
+plot_lookup_smc:
+	lda	lookup,X	; load lookup, (YY*16)+XX
+
+	clc
+frame_smc:
+	adc	#$00		; add in frame
+
+	and	#$f
+	lsr			; we actually only have 8 colors
+
+	tax
+
+	lda	colorlookup,X	; lookup color
+
+
+	sta	COLOR		; each nibble should be same
+
+	jsr	PLOT1		; plot at GBASL,Y (x co-ord goes in Y)
+
+	dey
+	bpl	plot_xloop
+
+	pla			; restore YY
+	tax
+	dex
+	bpl	plot_yloop
+	bmi	forever_loop
+.endif
+
+
+;calcsine_div_8:
+;	lsr
+;calcsine_div_4:
+;	lsr
+;calcsine_div_2:
+;	lsr
+calcsine:
+;	asl
+	stx	SAVEX
+	and	#$1f
+	tax
+	lda	sinetable,X
+	clc
+	adc	SUM
+	sta	SUM
+	ldx	SAVEX
+	rts
+
+
+colorlookup:
+
+; blue
+;.byte $55,$22,$66,$77,$ff,$77,$55,$00
+
+.byte $00,$55,$77,$ff,$77,$66,$22,$55
+
+;.byte $00,$00,$55,$55,$77,$77,$ff,$ff
+;.byte $77,$77,$66,$66,$22,$22,$55,$55
+
+
+sinetable:
+; this is actually (32*sin(x))
+.byte $00,$06,$0C,$11,$16,$1A,$1D,$1F
+.byte $20,$1F,$1D,$1A,$16,$11,$0C,$06
+.byte $00,$FA,$F4,$EF,$EA,$E6,$E3,$E1
+.byte $E0,$E1,$E3,$E6,$EA,$EF,$F4,$FA
+
+;.byte $00,$0C,$16,$1D
+;.byte $20,$1D,$16,$0C
+;.byte $00,$F4,$EA,$E3
+;.byte $E0,$E3,$EA,$F4
+
diff --git a/utils/gr-sim/plasma/plasma_new.c b/utils/gr-sim/plasma/plasma_new.c
index 910454d2..0312b57d 100644
--- a/utils/gr-sim/plasma/plasma_new.c
+++ b/utils/gr-sim/plasma/plasma_new.c
@@ -13,6 +13,8 @@
 #define PI 3.14159265358979323846264338327950
 
 
+int sine_lookup[64];
+
 #if 1
 static unsigned char color_lookup[]={0x0, 0x0, 0x5, 0x5,
 				     0x7, 0x7, 0xf, 0xf,
@@ -27,7 +29,7 @@ static unsigned char color_lookup[]={0x0, 0x5, 0x7, 0xf,
 
 #endif
 
-static int offscreen[40][40];
+static int offscreen[40][48];
 
 int main(int argc, char **argv) {
 
@@ -42,7 +44,13 @@ int main(int argc, char **argv) {
 
 	ram[DRAW_PAGE]=0x0;
 
-	for(yy=0;yy<40;yy++) {
+	for(xx=0;xx<64;xx++) {
+
+		sine_lookup[xx]=32.0*sin( (xx*2*PI)/64);
+
+	}
+
+	for(yy=0;yy<48;yy++) {
 	for(xx=0;xx<40;xx++) {
 
 //	col = ( 32.0 + (32.0 * sin(xx / 4.0))
@@ -75,13 +83,20 @@ int main(int argc, char **argv) {
 		sin(xx/16.0), sin(yy/8.0), sin((xx+yy)/16.0));
 //#endif
 #else
+ //	col = (int)
+ //   ( 128.0 + 32*sin(xx / 16.0)
+ //         + 32*sin(yy / 8.0)
+ //         + 32*sin((xx + yy) / 16.0)
+ //   ) ;
+
+
  	col = (int)
-    (
-        128.0 + 32*sin(xx / 16.0)
-          + 32*sin(yy / 8.0)
-          + 32*sin((xx + yy) / 16.0)
+    ( 128.0 + sine_lookup[ (int)(xx/2)&0x3f ]
+          + sine_lookup[ (int)(yy/1)&0x3f ]
+          + sine_lookup[ (int)((xx + yy)/2)&0x3f ]
     ) ;
 
+
 	printf("%d %d %d %.2f %.2f %.2f\n",xx,yy,col,
 		sin(xx/16.0), sin(yy/8.0), sin((xx+yy)/16.0));
 #endif
@@ -93,7 +108,7 @@ int main(int argc, char **argv) {
 	}
 
 	while(1) {
-		for(yy=0;yy<40;yy++) {
+		for(yy=0;yy<48;yy++) {
 			for(xx=0;xx<40;xx++) {
 				col=offscreen[xx][yy];
 				color_equals(color_lookup[col]);