[Oberon] FPGA - Display.Mod 4-bit colour

[Tomas Kral]

Hi,

As advised and encouraged by Joerg this is my first try at Oberon IN
{0..3} colour.

Please do not laugh :-) as everything is in yellow, except Log viewer,
(strange?), font render has problems, possibly some other flaws, I do not see yet. I set these constants to make a switch to 4-bit.

I believe the white now truly is {0,1,2,3} = 15, rather than {0} = 1.
But changing it, would invalidate clients, making a different import
KEY.

MODULE Display2;  (*NW 5.11.2013 / 3.7.2016, TK 30.8.2018 4-bit colour*)
  IMPORT SYSTEM, O := Out;

  CONST black* = 0; white* = 1(*5*);  (*black = background*)
    replace* = 0; paint* = 1; invert* = 2;  (*modes*)
    base = 0E7F00H;  (*adr of 1024 x 768 pixel, monocolor display frame*)
    (*base = 09FF00H;*)  (*adr of 1024 x 768 pixel, 4-bit colour display frame*)
    ppw = 32(*8*); (*pixels per word*)  bpl = (*4*)128; (*bytes per line*)

-- 
Tomas Kral <thomas.kral at email.cz>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: OB-IN-{colour4}.JPG
Type: image/jpeg
Size: 27863 bytes
Desc: not available
URL: <http://lists.inf.ethz.ch/pipermail/oberon/attachments/20180903/beb6abab/attachment.jpe>