This program is for the RGB color sensor, and plots the clear, red, green and blue color values as vertical bars on the show page.
Program
---
RGB Color Sensor Demo 2
---
prog_vars =
d/red_line 0
d/green_line 0
d/blue_line 0
d/clear_line 0
prog_vars.
prog_start =
pclear
d1000
ptl 10 5 ^ts=24^ "RGB Color Sensor Demo Program"
-- Enable the I2c system
i2con
-- Display the Quit button
pb 400 20 ^n=Quit^p=exitnow^
prog_start.
prog_loop =
-- main program loop
-- Invert the values so the bars go up
sub -1 /cs_clear -> /clear_line
sub -1 /cs_red -> /red_line
sub -1 /cs_green -> /green_line
sub -1 /cs_blue -> /blue_line
-- Display the colors as vertical bars
pvl 25 300 /clear_line ^lc=yellow^lw=20^
pvl 75 300 /red_line ^lc=red^lw=20^
pvl 125 300 /green_line ^lc=green^lw=20^
pvl 175 300 /blue_line ^lc=blue^lw=20^
-- Display the values
ptl 15 300 ^ts=16^ "/cs_clear"
ptl 65 300 ^ts=16^ "/cs_red"
ptl 115 300 ^ts=16^ "/cs_green"
ptl 165 300 ^ts=16^ "/cs_blue"
-- Set the USER 1 LED to the color.
l1 /cs_red /cs_green /cs_blue
prog_loop.
prog_stop =
ptl 100 200 ^ts=75^ "Bye"
prog_stop.