' code created dec 6 2005 by Zach Eveland

' this code is used to color fade between three colors
' on two RGB LEDs.  It is part of the iTunes Jukebox.  
' the two RGB LEDs provide pretty coloring

DEFINE OSC 4

start:
Ê Êredpin VAR PORTB.2
Ê Êgreenpin VAR PORTB.0
Ê Êbluepin VAR PORTB.1

Ê Êi VAR BYTE
Ê Êj VAR BYTE
Ê Êcomplement VAR BYTE

main:
Ê ÊHIGH redpin
Ê ÊLOW bluepin
Ê ÊPAUSE 10000
Ê Ê'fade from blue to green
Ê ÊFOR i = 0 TO 255
Ê Ê Ê Êcomplement = 255 - i
Ê Ê Ê ÊFOR j = 0 TO 5
Ê Ê Ê Ê Ê ÊPWM bluepin, i, 1
Ê Ê Ê Ê Ê ÊPWM greenpin, complement, 1
Ê Ê Ê ÊNEXT j
Ê ÊNEXT i

Ê ÊHIGH bluepin
Ê ÊLOW greenpin
Ê ÊPAUSE 10000
Ê Ê'fade from green to red
Ê ÊFOR i = 0 TO 255
Ê Ê Ê Êcomplement = 255 - i
Ê Ê Ê ÊFOR j = 0 TO 5
Ê Ê Ê Ê Ê ÊPWM greenpin, i, 1
Ê Ê Ê Ê Ê ÊPWM redpin, complement, 1
Ê Ê Ê ÊNEXT j
Ê ÊNEXT i

Ê ÊHIGH greenpin
Ê ÊLOW redpin
Ê ÊPAUSE 10000
Ê Ê'fade from red to blue
Ê ÊFOR i = 0 TO 255
Ê Ê Ê Êcomplement = 255 - i
Ê Ê Ê ÊFOR j = 0 TO 5
Ê Ê Ê Ê Ê ÊPWM redpin, i, 1
Ê Ê Ê Ê Ê ÊPWM bluepin, complement, 1
Ê Ê Ê ÊNEXT j
Ê ÊNEXT i

Ê ÊGOTO main