Re: A89: Re: Grayscale program


[Prev][Next][Index][Thread]

Re: A89: Re: Grayscale program




Thanks.  That is exactly what I was looking for.




---Miles Raymond <m_rayman@bigfoot.com> wrote:
>
> I don't know if this is what you are looking for, but I made this code
> today.  It is very primative, and therefore very commented.  It uses
the
> put_sprite routine that comes in graphlib.  Hope you all enjoy!
> 
> -Miles Raymond      EML: m_rayman@bigfoot.com
> ICQ: 13217756       IRC: Killer2        AIM: MRayMan
> http://www.bigfoot.com/~m_rayman/
> 
> -----Original Message-----
> From: Ben Rodgers <bentensai@yahoo.com>
> To: assembly-89@lists.ticalc.org <assembly-89@lists.ticalc.org>
> Date: Tuesday, March 02, 1999 7:26 PM
> Subject: A89: Grayscale program
> 
> 
> >Could someone make a small program that only shows a sprite in four
or
> >seven level grayscale.  No movements or controls just a sprite. 
Thanks.
> >
> >Visit my website, Some Assembly Required, at
> >http://meltingpot.fortunecity.com/gilford/908
> >_________________________________________________________
> >DO YOU YAHOO!?
> >Get your free @yahoo.com address at http://mail.yahoo.com
> >
> ;By RayMan
> ;2/25/99
> ;
> ;Puts a grey sprite of the StarFox Arwing on the screen
> 
> 	include		"doorsos.h"
> 	include		"graphlib.h"
> 	include		"userlib.h"
> 	xdef		_main
> 	xdef		_comment
> 	xdef		_ti89
> 
> _main:
> 	jsr		graphlib::gray7			;switches to 7 grayscale mode
> 	move.w		#1,graphlib::choosescreen	;set all graphlib functions to
grayscale
> 
> 	move.l		graphlib::plane0,a1		;address of the 1st bitplane (plane0)
> 	jsr		graphlib::clr_scr		;clears the first bitplane (main screen)
> 	move.l		graphlib::plane1,a1		;address of the 2nd bitplane (plane1)
> 	jsr		graphlib::clr_scr		;clears the second bitplane
> 	move.l		graphlib::plane2,a1		;address of the 3rd bitplane (plane2)
> 	jsr		graphlib::clr_scr		;clears the third bitplane
> 
> 	;Place the data for the 1st plane on the 1st plane
> 	move.l		graphlib::plane0,a1		;set the address to draw
> 	move.w		#16,d0				;set the x-coordinate
> 	move.w		#16,d1				;set the y-coordinate
> 	lea		Arwing_plane0(PC),a0		;point to the address of the sprite
> 	jsr		graphlib::put_sprite
> 
> 	;Place the data for the 2nd plane on the 2nd plane
> 	move.l		graphlib::plane1,a1		;set the address to draw
> 	move.w		#16,d0				;set the x-coordinate
> 	move.w		#16,d1				;set the y-coordinate
> 	lea		Arwing_plane1(PC),a0		;point to the address of the sprite
> 	jsr		graphlib::put_sprite
> 
> 	;Place the data for the 3rd plane on the 3rd plane
> 	move.l		graphlib::plane2,a1		;set the address to draw
> 	move.w		#16,d0				;set the x-coordinate
> 	move.w		#16,d1				;set the y-coordinate
> 	lea		Arwing_plane2(PC),a0		;point to the address of the sprite
> 	jsr		graphlib::put_sprite
> 
> 	clr.w		graphlib::choosescreen		;set all graphlib functions to Black
and White mode
> 	jsr		userlib::idle_loop		;waits for a key
> 	jsr		graphlib::gray2			;restores Black and White mode
> 	rts
> 
> Arwing_plane0						;data for the 1st plane (plane0)
> 	dc.w		16				;sprite hight
> 	dc.w		2				;srite width (in bytes)
> 	dc.b		%00000000,%00000000		;1
> 	dc.b		%01000000,%00000000
> 	dc.b		%00100000,%00000000
> 	dc.b		%00010000,%00000000
> 	dc.b		%00111111,%11000000
> 	dc.b		%00011111,%10000000
> 	dc.b		%00000000,%00000000
> 	dc.b		%00000111,%00000000		;8
> 	dc.b		%00000000,%00000000
> 	dc.b		%00011111,%10000000
> 	dc.b		%00111111,%11000000
> 	dc.b		%00010000,%00000000
> 	dc.b		%00100000,%00000000
> 	dc.b		%01000000,%00000000
> 	dc.b		%00000000,%00000000
> 	dc.b		%00000000,%00000000		;16
> 
> Arwing_plane1						;data for the 2nd plane (plane1)
> 	dc.w		16				;sprite hight
> 	dc.w		2				;srite width (in bytes)
> 	dc.b		%00000000,%00000000		;1
> 	dc.b		%00100000,%00000000
> 	dc.b		%00111000,%00000000
> 	dc.b		%00001111,%00000000
> 	dc.b		%00111111,%11000000
> 	dc.b		%00000110,%00000000
> 	dc.b		%00100111,%11111000
> 	dc.b		%01000000,%00000111		;8
> 	dc.b		%00100111,%11111000
> 	dc.b		%00000110,%00000000
> 	dc.b		%00111111,%11000000
> 	dc.b		%00001111,%00000000
> 	dc.b		%00111000,%00000000
> 	dc.b		%00100000,%00000000
> 	dc.b		%00000000,%00000000
> 	dc.b		%00000000,%00000000		;16
> 
> Arwing_plane2						;data for the 3rd plane (plane2)
> 	dc.w		16				;sprite hight
> 	dc.w		2				;srite width (in bytes)
> 	dc.b		%10000000,%00000000		;1
> 	dc.b		%00000000,%00000000
> 	dc.b		%00000000,%00000000
> 	dc.b		%00010000,%00000000
> 	dc.b		%00111111,%11000000
> 	dc.b		%00000000,%00000000
> 	dc.b		%00011000,%00000000
> 	dc.b		%00111111,%11111000		;8
> 	dc.b		%00011000,%00000000
> 	dc.b		%00000000,%00000000
> 	dc.b		%00111111,%11000000
> 	dc.b		%00010000,%00000000
> 	dc.b		%00000000,%00000000
> 	dc.b		%00000000,%00000000
> 	dc.b		%10000000,%00000000
> 	dc.b		%00000000,%00000000		;16
> 
> _comment	dc.b	"GreySprite Example of StarFox Arwing",0
> 
> 	end
> 

_________________________________________________________
DO YOU YAHOO!?
Get your free @yahoo.com address at http://mail.yahoo.com