please add this Beads language version of the same code

[magicmouse]

Please add this text as rgb_darken.beads, to add another language to your list.
This produces output based on colors 0..255
As you can see from the word count, it is more compact than TypeScript.

beads 1 program rgb_darken
//  this is the Beads language version of the color darkening program
//  as presented on YouTube at https://www.youtube.com/watch?v=Bxel30L6C5U 
//  from Context Free channel
//
//  produces the output:
//   blue (0, 0, 255)  (0, 0, 127)
//   red (255, 0, 0)  (127, 0, 0)
//  yellow (255, 255, 0)  (127, 127, 0)

// a 3 element tree of colors
const list <=== { "red":RED, "yellow":YELLOW, "blue":BLUE }

// function that darkens a color. We could use HSV space, but darkening in RGB 
// has the same results as using HSV.
calc darken (
	c : color
	) : color
	const SCALE = 0.5
	//  the std lib has functions that work 0..1 or 0..255 for colors
	return rgb255(r255(c)*SCALE, g255(c)*SCALE, b255(c)*SCALE)

//  loop across the list of colors
calc main_init
	//  loop across the list of colors
	var c : color
	loop across:list kind:str val:c index:name
		var d = darken(c)
		log "{name} ({r255(c)}, {g255(c)}, {b255(c)})  ({r255(d)}, {g255(d)}, {b255(d)})"
		

[tjpalmer]

Thanks for the PR. I'm willing to take other languages for sure.

For the examples here, I purposely used floating point 0 to 1 rather than int 0 to 255, although I know the latter is more common in bitmap data. Looks like you're using a built-in Beads color type here. I guess that makes sense since Beads is focused on GUI. Haskell had a library I could have used for colors (Data.Colour) that I chose not to use so I could show structure definition. Maybe you could do one version with the built in colors and one with a structure definition?

I also made all the examples a little more complicated than needed for this example, because I wanted to use this as proxy for a more involved program. So I wanted to have more language features on display, including the array indexing. Any chance you structure the program as the list (using the common beads data structure, I suppose) of names, then create the rgbs, then the darks, then make the loop and do indexing? In all the languages here except Bash (and C++), I used that structure, even though it's more bother than necessary for the scope of this example alone.

[magicmouse]

okay i made a version with a record structure so you can see how you declare a record type, and then initialize an array of records using the handy [<..... >] notation, where you put the field headers first that you want to set, and then make a table. Very handy for pasting in CSV data from Excel for example. No commas needed. I forget which other language has this, might be Julia.

Since beads is all about GUI, i posted the executable version at http://beadslang.com/apps/context/rgb.html
Just so it could do something when you click, i made it so that when you click on a row it will randomly pick a new color, and show the darkened version. Obviously not useful, but shows basic event handling.

beads 1 program rgb_darken
//  sample program related to Youtube https://www.youtube.com/watch?v=Bxel30L6C5U
//  from Context Free, showing color computations in various programming langauges
//  to run this, go to beadslang.com/apps/context/rgb.html

record a_item  // the record we use in our list of colors
	name  : str
	color : color

var list : array of a_item <=== [<
	name		color
	"red"		RED
	"yellow"	YELLOW
	"blue"		BLUE 
	"turquoise" MEDIUM_TURQUOISE
	>]

assets local:"./art/"
	file:"written_in_beads.gif" label:ICON_BEADS width:674 height:265 preload // aspect 2.54

//  a function that calculates a darker version of a color using naive RGB values
================================
calc darken_rgb (
	c : color
	) : color
================================
	const SCALE = 0.5
	return rgb1(r1(c)*SCALE, g1(c)*SCALE, b1(c)*SCALE)

================================
vert slice main_draw
================================
	draw_rect(bb, fill:GRAY2)

	skip 10 al
	add 24 pt
		draw_str(bb, "Click on row to switch colors", size:0.75)
	skip 14 pt
	add 300 pt color_chart
	skip 10 al
	add 36 pt d_icon

================================
horz slice d_icon
================================
	skip 10 al
	add 200 pt
		draw_image(bb, ICON_BEADS, horz:1)
----------------
track EV_TAP
	html_redirect("http://www.beadslang.com", newtab:Y)

//  our main drawing function
================================
grid color_chart
================================
	horz slice  //  break the horizontal into 3 sections, with 4 gaps
		skip 10 al 
		add 140 pt // name
		skip 10 pt
		add 90 pt // original color
		skip 10 pt
		add 90 pt // darkened color
		skip 10 al 

	vert slice  //  break the vertical into as many rows as we have data
		skip 10 al
		loop across:list
			add 60 pt
			skip 10 pt
		skip 30 al

	cell  //  draw each cell in the grid
		var base = list[b.cell.y].color
		case b.cell.x
		| 1  //  cell name
			draw_str(bb, list[b.cell.y].name, just:RIGHT, size:0.6)
		| 2  //  original color
			draw_rect(bb, fill:base, corner:4 pt)
		| 3  //  darkened color
			draw_rect(bb, fill:darken_rgb(base), corner:4 pt)
----------------
track EV_TAP
	//  any tap in a row, replace the color with a random one
	var row = b.cell.y
	if row <> U  //  ignore taps in the gaps
		list[row].color = random_color()
		list[row].name = color_to_hex(list[row].color)

[magicmouse]

I have created a folder for context free related code and apps, so that as you do more examples in multiple languages, i can include Beads if that would be okay with you. it is one of the best ways to compare languages, by taking the same task and implementing in other languages. I could have logged to console the color values, but if all you want to do is write to the console, i am never going to dislodge existing tools, which are all excellent at console stuff, but really fall down in the HTML world. I have implemented my website, which still has some errors to fix regarding pattern backgrounds in scrolling windows. see http://beadslang.com. It makes a decent rubbery website.