<html><head><meta http-equiv="content-type" content="text/html; charset=utf-8"></head><body dir="auto">I’m using the Pipistrello with a little bit another video capability but if I’m in 16 color mode I use the colors the original Apple ][ was using:<div>Master Color Values in Table 1 on page 1</div><div><a href="https://archive.org/details/IIgs_2523063_Master_Color_Values/mode/1up">https://archive.org/details/IIgs_2523063_Master_Color_Values/mode/1up</a><br><div><br></div><div>br<br><div dir="ltr"><div>Jörg</div></div><div dir="ltr"><br><blockquote type="cite">Am 30.06.2020 um 11:20 schrieb Tomas Kral <thomas.kral@email.cz>:<br><br></blockquote></div><blockquote type="cite"><div dir="ltr"><span>Hi,</span><br><span></span><br><span>I have coded this snippet, it cycles backdrop RGB colour on Pepino</span><br><span>board. As RGB is defined by h/w as RRRGGGBB, I cannot get all shades, but R0G0B0, only.</span><br><span></span><br><span>Taking opportunity to ask, how many Pepino users out there, and what your colours are?</span><br><span></span><br><span>MODULE Map; (*TK 21.6.2020 rgb Pepino LX9*)</span><br><span> IMPORT SYSTEM, Display, Out;</span><br><span> CONST ms = -128; c = 15; (*backdrop*)</span><br><span></span><br><span> VAR r, g, b: BYTE; rgb: INTEGER;</span><br><span></span><br><span> PROCEDURE Set; (*R0G0B0*)</span><br><span> BEGIN rgb := r*100000H + g*1000H + b*10H;</span><br><span> SYSTEM.PUT(ms + c*4, rgb)</span><br><span> END Set;</span><br><span></span><br><span> PROCEDURE Show*;</span><br><span> BEGIN Out.Hex(rgb); Out.Ln</span><br><span> END Show;</span><br><span></span><br><span> PROCEDURE R*; (*3 bits*)</span><br><span> BEGIN INC(r, 2); r := r MOD 10H; Set</span><br><span> END R;</span><br><span></span><br><span> PROCEDURE G*; (*3 bits*)</span><br><span> BEGIN INC(g, 2); g := g MOD 10H; Set</span><br><span> END G;</span><br><span></span><br><span> PROCEDURE B*; (*2 bits*)</span><br><span> BEGIN INC(b, 4); b := b MOD 10H; Set</span><br><span> END B;</span><br><span></span><br><span>BEGIN r := 0; g := 0; b := 0</span><br><span>END Map.</span><br><span></span><br><span>Map.R Map.G Map.B Map.Show</span><br><span></span><br><span></span><br><span>These are good for day and night work.</span><br><span></span><br><span>DispTest.SetMap 15 0404040H dark</span><br><span>DispTest.SetMap 14 0C0C080H</span><br><span></span><br><span>DispTest.SetMap 15 0606040H grey</span><br><span>DispTest.SetMap 14 0C0C080H</span><br><span></span><br><span>DispTest.SetMap 15 0000080H blue</span><br><span>DispTest.SetMap 14 0C0C080H</span><br><span></span><br><span></span><br><span>-- </span><br><span>Tomas Kral <thomas.kral@email.cz></span><br><span>--</span><br><span>Oberon@lists.inf.ethz.ch mailing list for ETH Oberon and related systems</span><br><span>https://lists.inf.ethz.ch/mailman/listinfo/oberon</span><br></div></blockquote></div></div></body></html>