<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>