Log In  



The Picotron palette was quite chaotic and the numbering wasn't very intuitive to me (probably due to being backwards compatible with PICO-8). I thought it might be nice to have an easy reference within reach so I don't need to open a forum post or wiki page whenever I need to work with colors. If you'd like to add this widget yourself, here are the steps:

  1. create a file named "colors.lua" and place it somewhere that makes sense to you (mine is in /appdata/local/tooltray/colors.lua) 
    -- colors.lua
local GRID_SIZE=20
local palette={0,20,4,31,15,8,24,2,21,5,22,6,7,23,14,30,1,16,17,12,28,29,13,18,19,3,27,11,26,10,9,25}
function _draw()
    cls(0)
    for i=1,32 do
        local x = ((i-1)%8)*GRID_SIZE
        local y = ((i-1)//8)*GRID_SIZE
        rectfill(x,y,x+GRID_SIZE,y+GRID_SIZE,palette[i])
        print(palette[i],x+3,y+3,7)
        if palette[i] == 7 then print(palette[i],x+3,y+3,0) end
    end
end
  2. create or open "/appdata/system/startup.lua" and add this line: (be sure to edit the path parameter) 
    -- /appdata/system/startup.lua
-- edit the x and y to place the widget wherever you want; width and height should stay the same as below
create_process("/path/to/your/colors.lua", {window_attribs = {workspace = "tooltray", x=2, y=36, width=160, height=80}})
  3. restart Picotron and enjoy your new widget!

Curious about the Pomodoro timer? You can find that here.

29
1

Very nice! This will be a great help! For me, I think I'll rework the table to have a single row across the top

I did everything you described and it doesn't show in my tooltray when I drag down.

@arrowonionbelly, did you change the path to your colors.lua file in startup.lua? Copying and pasting isn't enough 💜
2

Thank you! I've made mine a bit more compact and only wrapping 2 lines.
If you'd also like to do this

  • in colors.lua change the GRID_SIZE to 12
  • local x and y to break after 16 instead of 8 [local x = ((i-1)%16)*GRID_SIZE]
  • padding from 3 down to 1 [print(palette[i],x+1,y+1,7)]
  • in startup.lua change width to 192 and height to 24

I've been using this and it's really helpful. Here's a version that includes the letter codes (for p8scii color escape codes: \f<color>).

 
local GRID_SIZE=20
local palette={0,20,4,31,15,8,24,2,21,5,22,6,7,23,14,30,1,16,17,12,28,29,13,18,19,3,27,11,26,10,9,25}
function _draw()
	cls(0)
	for i=1,32 do
		local x = ((i-1)%8)*GRID_SIZE
		local y = ((i-1)//8)*GRID_SIZE
		rectfill(x,y,x+GRID_SIZE,y+GRID_SIZE,palette[i])
		print(palette[i],x+3,y+3,7)
		if palette[i] > 9 then
			print(chr(ord("a") + palette[i] - 10),x+3,y+11,7)
		end

		if palette[i] == 7 then print(palette[i],x+3,y+3,0) end
	end
end


Cart #fitirigone-0 | 2025-02-06 | Embed ▽ | License: CC4-BY-NC-SA


made a version that looks a little different and that you can click to display colors pico-8 style!
2

I had also made my own bytesized version, only to discover when posting that MrScottyTay #colours had also made similar variants :-)

Oh well, I'm sharing anyway, just for fun.

I made it in 3 flavors:

The 32-color 2-line version

 
local g=11
local p={0,20,4,31,15,8,24,2,21,5,22,6,7,23,14,30,1,16,17,12,28,29,13,18,19,3,27,11,26,10,9,25}
poke(0x4000, get(fetch("/system/fonts/p8.font")))
function _draw()
 cls(0)
 for i=1,32 do
  rectfill(((i-1)%16)*g,(i-1)//16*(g-4),((i-1)%16)*g+g,(i-1)//16*(g-4)+g-2-(i-1)//16*3,p[i])
  print(p[i],((i-1)%16)*g+2+((p[i]<10)and 2 or 0),(i-1)//16*(g-4)+1,(p[i]==7 or p[i]==10 or p[i]==15)and 13 or 7)
 end
end

Also available in non-Bytesized to understand the process

 
local GRID_SIZE = 11
local palette={0,20,4,31,15,8,24,2,21,5,22,6,7,23,14,30,1,16,17,12,28,29,13,18,19,3,27,11,26,10,9,25}
function _draw()
    cls(0)
    for i = 1, 32 do
        local color = palette[i]
		local floorY = ((i - 1) // 16)
        local x = ((i - 1) % 16) * GRID_SIZE
        local y = floorY * (GRID_SIZE - 4)
        local rectHeight = GRID_SIZE - 2 - floorY * 3
        local textColor = (color == 7 or color == 10 or color == 15) and 13 or 7
        local textOffset = (color < 10) and 3 or 0
        rectfill(x, y, x + GRID_SIZE, y + rectHeight, color)
        print(color, x + 1 + textOffset, y, textColor)
    end
end

The 32-color version on a single ruler, the one I prefer because it's relatively small

 
local g=11
local p={0,20,4,31,15,8,24,2,21,5,22,6,7,23,14,30,1,16,17,12,28,29,13,18,19,3,27,11,26,10,9,25}
poke(0x4000, get(fetch("/system/fonts/p8.font")))
function _draw()
 cls(0)
 for i=1,32 do
  rectfill((i-1)*g,0,(i-1)*g+g,g-2,p[i])
  print(p[i],(i-1)*g+2+((p[i]<10)and 2 or 0),1,(p[i]==7 or p[i]==10 or p[i]==15)and 13 or 7)
 end
end

The 64-color 2-line version, to be used in conjunction with the #OkPal palette editor

 
local g=11
local p={0,20,4,31,15,8,24,2,21,5,22,6,7,23,14,30,1,16,17,12,28,29,13,18,19,3,27,11,26,10,9,25,
32,52,36,63,47,40,56,34,53,37,54,38,39,55,46,62,33,48,49,44,60,61,45,50,51,35,59,43,58,42,41,57}
poke(0x4000, get(fetch("/system/fonts/p8.font")))
function _draw()
 cls(0)
 for i=1,64 do
  rectfill(((i-1)%32)*g,(i-1)//32*(g-4),((i-1)%32)*g+g,(i-1)//32*(g-4)+g-2-(i-1)//32*3,p[i])
  print(p[i],((i-1)%32)*g+2+((p[i]<10)and 2 or 0),(i-1)//32*(g-4)+1,(p[i]==7 or p[i]==10 or p[i]==15)and 13 or 7)
 end
end

And the startup.lua that goes with it

 
-- /appdata/system/startup.lua
-- edit the x and y to place the widget wherever you want; width and height should stay the same as below
create_process("/appdata/system/tooltray/colorsRows.lua", {window_attribs = {workspace = "tooltray", x=1, y=1, width=176, height=14}})
--create_process("/appdata/system/tooltray/colorsRules.lua", {window_attribs = {workspace = "tooltray", x=1, y=1, width=352, height=7}})
--create_process("/appdata/system/tooltray/colors64.lua", {window_attribs = {workspace = "tooltray", x=1, y=1, width=352, height=14}})

In short, it seemed like a good way to learn something concrete, and I can see that there are a few of us who have gone in that direction :-)

Thank you !!!! :D



[Please log in to post a comment]