Benedikt wrote on 2022-01-31, 17:42:

FreddyV wrote on 2022-01-31, 13:35:

It is not possible to change the font in CGA/EGA

Actually, it is possible in EGA text mode.

Ok, so for consistency I suggest we stick with the standard PC DOS/console font.

Cheers,
Radiance

PS: I'll be making some mockups in photoshop when I'm back from my holiday 😀
And, when my sunburnt skin has recovered a bit as I was stupid enough to drive
in a convertible for 4 hours yesterday without using sun tanning lotion,
and I'm as red as a tomato, ouch! 😀
It's that horrible hole in the ozone layer in the southern hemisphere,
that makes even 30 minutes in the sun a painful experience in the evening... 🤣 😀

Hi @FreddyV,
I just ran across an s3m having small issues (there's some debug messages spilling into the UI):
https://api.modarchive.org/downloads.php?modu … s_-_gateway.s3m

Apart from that, it still works great in my setup. Thanks a lot for this great player.

MJay99 wrote on 2022-01-31, 20:16:

Hi @FreddyV, I just ran across an s3m having small issues (there's some debug messages spilling into the UI): https://api.moda […]
Show full quote

Hi @FreddyV,
I just ran across an s3m having small issues (there's some debug messages spilling into the UI):
https://api.modarchive.org/downloads.php?modu … s_-_gateway.s3m

Apart from that, it still works great in my setup. Thanks a lot for this great player.

hi,

If you use the Gravis Ultrasound it is debug messages I added for the Interwave support and that I forgot to remove

FreddyV wrote on 2022-02-01, 11:12:

If you use the Gravis Ultrasound it is debug messages I added for the Interwave support and that I forgot to remove

It's indeed on the Ultrasound pnp. I only reported it since, so far, the other modules didn't show these debug messages.
But, if it's for no other reason, perfect and sorry for the noise 😀

MJay99 wrote on 2022-02-01, 11:30:

FreddyV wrote on 2022-02-01, 11:12:

If you use the Gravis Ultrasound it is debug messages I added for the Interwave support and that I forgot to remove

It's indeed on the Ultrasound pnp. I only reported it since, so far, the other modules didn't show these debug messages.
But, if it's for no other reason, perfect and sorry for the noise 😀

It is on the panning command, not used on all modules, already corrected for V1.0

FreddyV wrote on 2022-01-31, 13:35:

It is not possible to change the font in CGA/EGA

It's possible to do in CGA with the following pascal source I wrote years ago (available in SWAG) :

UNIT graftabl;

{
released into the public domain
author : Emmanuel ROUSSIN
FIDO : 2:320/200.21
Email : obsolete email address removed

for using redefined characters (128 to 255) in CGA mode 4,5 and 6
without using GRAFTABL.EXE
}

INTERFACE

TYPE Tcaractere8 = array [1..8] of byte;
Tgraftabl = array [128..255] of Tcaractere8;

{
if you want to use only one font, define it in this unit, for example :

CONST the_only_font : Tgraftabl = (
(x,x,x,x,x,x,x,x),
.
.
(x,x,x,x,x,x,x,x),
(x,x,x,x,x,x,x,x)
);

Or you can in your main program :

VAR my_font : Tgraftabl;

and define it after
}

CONST font_CGA : Tgraftabl = (
(234,214,12,0,252,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,234),
(36,13,0,252,46,39,232,209),
(215,203,186,175,62,233,67,217),
(0,46,173,142,192,139,214,190),
(110,58,177,4,46,173,171,226),
(251,51,192,177,12,243,171,129),
(255,0,16,114,237,139,242,182),
(3,195,46,173,139,200,184,32),
(7,243,171,178,192,176,32,238),
(46,172,255,227,186,192,3,50),
(192,238,238,195,0,77,63,77),
(63,191,23,77,63,77,63,52),
(15,47,19,77,63,36,13,95),
(17,71,63,71,63,71,63,71),
(63,87,47,71,63,101,48,216),
(11,206,11,89,44,172,15,226),
(11,0,17,179,14,45,11,229),
(10,214,12,77,63,77,63,164),
(48,199,47,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,80,176,32,230,32,88,207),
(0,0,0,0,0,0,234,52),
(15,0,252,253,38,247,38,247),
(38,253,38,253,38,247,38,247),
(38,253,38,2,39,183,62,253),
(38,253,38,216,62,5,196,0),
(1,1,4,0,7,35,194,0),
(218,1,196,0,3,25,212,0),
(112,79,92,47,95,7,4,17),
(0,7,6,0,0,0,0,0),
(225,36,199,40,8,224,240,163),
(255,0,204,1,202,9,206,0),
(0,0,0,0,0,0,12,0),
(255,218,20,192,0,0,1,2),
(3,4,5,6,7,16,17,18),
(19,20,21,22,23,8,0,15),
(0,0,184,3,196,2,3,0),
(3,2,206,5,16,14,0,32),
(7,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),

{
(0,0,0,0,0,0,0,0), 128€
(0,0,0,0,0,0,0,0), 
(8,16,56,68,124,64,56,0), ‚
(0,0,0,0,0,0,0,0), ƒ
(0,0,0,0,0,0,0,0), „
(0,0,0,0,0,0,0,0), …
(0,0,0,0,0,0,0,0), †
(0,0,0,0,0,0,0,0), ‡
(0,0,0,0,0,0,0,0), ˆ
(0,0,0,0,0,0,0,0), ‰
(0,0,0,0,0,0,0,0), Š
(0,0,0,0,0,0,0,0), ‹
(0,0,0,0,0,0,0,0), Œ
(0,0,0,0,0,0,0,0), 
(0,0,0,0,0,0,0,0), Ž
(0,0,0,0,0,0,0,0), 
(0,0,0,0,0,0,0,0), 144
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0), 160
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
}
(0,0,0,0,0,0,0,0), {176}
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0), {h32 : 192}
(240,240,240,0,0,0,0,0),
(15,15,15,0,0,0,0,0),
(255,255,255,0,0,0,0,0),
(0,0,0,240,240,0,0,0),
(240,240,240,240,240,0,0,0),
(15,15,15,240,240,0,0,0),
(255,255,255,240,240,0,0,0),
(0,0,0,15,15,0,0,0),
(240,240,240,15,15,0,0,0),
(15,15,15,15,15,0,0,0),
(255,255,255,15,15,0,0,0),
(0,0,0,255,255,0,0,0),
(240,240,240,255,255,0,0,0),
(15,15,15,255,255,0,0,0),
(255,255,255,255,255,0,0,0),
(0,0,0,0,0,240,240,240), {48} {208}
(240,240,240,0,0,240,240,240),
(15,15,15,0,0,240,240,240),
(255,255,255,0,0,240,240,240),
(0,0,0,240,240,240,240,240),
(240,240,240,240,240,240,240,240),
(15,15,15,240,240,240,240,240),
(255,255,255,240,240,240,240,240),
(0,0,0,15,15,240,240,240),
(240,240,240,15,15,240,240,240),
(15,15,15,15,15,240,240,240),
(255,255,255,15,15,240,240,240),
(0,0,0,255,255,240,240,240),
(240,240,240,255,255,240,240,240),
(15,15,15,255,255,240,240,240),
(255,255,255,255,255,240,240,240), {h3F}
(0,0,0,0,0,15,15,15), {h40} {224}
(240,240,240,0,0,15,15,15),
(15,15,15,0,0,15,15,15),
(255,255,255,0,0,15,15,15),
(0,0,0,240,240,15,15,15),
(240,240,240,240,240,15,15,15),
(15,15,15,240,240,15,15,15),
(255,255,255,240,240,15,15,15),
(0,0,0,15,15,15,15,15),
(240,240,240,15,15,15,15,15),
(15,15,15,15,15,15,15,15),
(255,255,255,15,15,15,15,15),
(0,0,0,255,255,15,15,15),
(240,240,240,255,255,15,15,15),
(15,15,15,255,255,15,15,15),
(255,255,255,255,255,15,15,15),
(0,0,0,0,0,255,255,255), {h50} {240}
(240,240,240,0,0,255,255,255),
(15,15,15,0,0,255,255,255),
(255,255,255,0,0,255,255,255),
(0,0,0,240,240,255,255,255),
(240,240,240,240,240,255,255,255),
(15,15,15,240,240,255,255,255),
(255,255,255,240,240,255,255,255),
(0,0,0,15,15,255,255,255),
(240,240,240,15,15,255,255,255),
(15,15,15,15,15,255,255,255),
(255,255,255,15,15,255,255,255),
(0,0,0,255,255,255,255,255),
(240,240,240,255,255,255,255,255),
(15,15,15,255,255,255,255,255),
(255,255,255,255,255,255,255,255) {h5F} {255}
);

VAR seg_graftabl,
ofs_graftabl : word;

{internal procedures}

procedure get_graftabl(VAR segment, offset : word);
procedure put_graftabl(segment, offset : word);

{procedures to use in your programs}

procedure init_graftabl;
procedure use_graftabl(VAR aray : Tgraftabl);
procedure end_graftabl;

IMPLEMENTATION

procedure get_graftabl(VAR segment, offset : word);
BEGIN
segment:=memw[0:$1F*4+2];
offset:=memw[0:$1f*4];
END;

procedure put_graftabl(segment, offset : word);
BEGIN
memw[0:$1f*4+2]:=segment;
memw[0:$1f*4]:=offset
END;

procedure init_graftabl;
{
interrupt 1F is a pointer to bitmaps for high 128 chars
(8 bytes per character) defined by GRAFTABL.EXE
we save this initial pointer
}
BEGIN
get_graftabl(seg_graftabl,ofs_graftabl);
END;

procedure use_graftabl(VAR aray : Tgraftabl);
{
we define a new pointer : the address of an array
}
BEGIN
put_graftabl(seg(aray),ofs(aray));
END;

procedure end_graftabl;
{
we restore the original pointer
}
BEGIN
put_graftabl(seg_graftabl,ofs_graftabl);
END;

END.

genesis8bit wrote on 2022-02-04, 23:00:

It's possible to do in CGA with the following pascal source I wrote years ago (available in SWAG) : […]
Show full quote

FreddyV wrote on 2022-01-31, 13:35:

It is not possible to change the font in CGA/EGA

It's possible to do in CGA with the following pascal source I wrote years ago (available in SWAG) :

UNIT graftabl;

{
released into the public domain
author : Emmanuel ROUSSIN
FIDO : 2:320/200.21
Email : obsolete email address removed

for using redefined characters (128 to 255) in CGA mode 4,5 and 6
without using GRAFTABL.EXE
}

INTERFACE

TYPE Tcaractere8 = array [1..8] of byte;
Tgraftabl = array [128..255] of Tcaractere8;

{
if you want to use only one font, define it in this unit, for example :

CONST the_only_font : Tgraftabl = (
(x,x,x,x,x,x,x,x),
.
.
(x,x,x,x,x,x,x,x),
(x,x,x,x,x,x,x,x)
);

Or you can in your main program :

VAR my_font : Tgraftabl;

and define it after
}

CONST font_CGA : Tgraftabl = (
(234,214,12,0,252,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,234),
(36,13,0,252,46,39,232,209),
(215,203,186,175,62,233,67,217),
(0,46,173,142,192,139,214,190),
(110,58,177,4,46,173,171,226),
(251,51,192,177,12,243,171,129),
(255,0,16,114,237,139,242,182),
(3,195,46,173,139,200,184,32),
(7,243,171,178,192,176,32,238),
(46,172,255,227,186,192,3,50),
(192,238,238,195,0,77,63,77),
(63,191,23,77,63,77,63,52),
(15,47,19,77,63,36,13,95),
(17,71,63,71,63,71,63,71),
(63,87,47,71,63,101,48,216),
(11,206,11,89,44,172,15,226),
(11,0,17,179,14,45,11,229),
(10,214,12,77,63,77,63,164),
(48,199,47,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,80,176,32,230,32,88,207),
(0,0,0,0,0,0,234,52),
(15,0,252,253,38,247,38,247),
(38,253,38,253,38,247,38,247),
(38,253,38,2,39,183,62,253),
(38,253,38,216,62,5,196,0),
(1,1,4,0,7,35,194,0),
(218,1,196,0,3,25,212,0),
(112,79,92,47,95,7,4,17),
(0,7,6,0,0,0,0,0),
(225,36,199,40,8,224,240,163),
(255,0,204,1,202,9,206,0),
(0,0,0,0,0,0,12,0),
(255,218,20,192,0,0,1,2),
(3,4,5,6,7,16,17,18),
(19,20,21,22,23,8,0,15),
(0,0,184,3,196,2,3,0),
(3,2,206,5,16,14,0,32),
(7,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),

{
(0,0,0,0,0,0,0,0), 128€
(0,0,0,0,0,0,0,0), 
(8,16,56,68,124,64,56,0), ‚
(0,0,0,0,0,0,0,0), ƒ
(0,0,0,0,0,0,0,0), „
(0,0,0,0,0,0,0,0), …
(0,0,0,0,0,0,0,0), †
(0,0,0,0,0,0,0,0), ‡
(0,0,0,0,0,0,0,0), ˆ
(0,0,0,0,0,0,0,0), ‰
(0,0,0,0,0,0,0,0), Š
(0,0,0,0,0,0,0,0), ‹
(0,0,0,0,0,0,0,0), Œ
(0,0,0,0,0,0,0,0), 
(0,0,0,0,0,0,0,0), Ž
(0,0,0,0,0,0,0,0), 
(0,0,0,0,0,0,0,0), 144
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0), 160
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
}
(0,0,0,0,0,0,0,0), {176}
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0), {h32 : 192}
(240,240,240,0,0,0,0,0),
(15,15,15,0,0,0,0,0),
(255,255,255,0,0,0,0,0),
(0,0,0,240,240,0,0,0),
(240,240,240,240,240,0,0,0),
(15,15,15,240,240,0,0,0),
(255,255,255,240,240,0,0,0),
(0,0,0,15,15,0,0,0),
(240,240,240,15,15,0,0,0),
(15,15,15,15,15,0,0,0),
(255,255,255,15,15,0,0,0),
(0,0,0,255,255,0,0,0),
(240,240,240,255,255,0,0,0),
(15,15,15,255,255,0,0,0),
(255,255,255,255,255,0,0,0),
(0,0,0,0,0,240,240,240), {48} {208}
(240,240,240,0,0,240,240,240),
(15,15,15,0,0,240,240,240),
(255,255,255,0,0,240,240,240),
(0,0,0,240,240,240,240,240),
(240,240,240,240,240,240,240,240),
(15,15,15,240,240,240,240,240),
(255,255,255,240,240,240,240,240),
(0,0,0,15,15,240,240,240),
(240,240,240,15,15,240,240,240),
(15,15,15,15,15,240,240,240),
(255,255,255,15,15,240,240,240),
(0,0,0,255,255,240,240,240),
(240,240,240,255,255,240,240,240),
(15,15,15,255,255,240,240,240),
(255,255,255,255,255,240,240,240), {h3F}
(0,0,0,0,0,15,15,15), {h40} {224}
(240,240,240,0,0,15,15,15),
(15,15,15,0,0,15,15,15),
(255,255,255,0,0,15,15,15),
(0,0,0,240,240,15,15,15),
(240,240,240,240,240,15,15,15),
(15,15,15,240,240,15,15,15),
(255,255,255,240,240,15,15,15),
(0,0,0,15,15,15,15,15),
(240,240,240,15,15,15,15,15),
(15,15,15,15,15,15,15,15),
(255,255,255,15,15,15,15,15),
(0,0,0,255,255,15,15,15),
(240,240,240,255,255,15,15,15),
(15,15,15,255,255,15,15,15),
(255,255,255,255,255,15,15,15),
(0,0,0,0,0,255,255,255), {h50} {240}
(240,240,240,0,0,255,255,255),
(15,15,15,0,0,255,255,255),
(255,255,255,0,0,255,255,255),
(0,0,0,240,240,255,255,255),
(240,240,240,240,240,255,255,255),
(15,15,15,240,240,255,255,255),
(255,255,255,240,240,255,255,255),
(0,0,0,15,15,255,255,255),
(240,240,240,15,15,255,255,255),
(15,15,15,15,15,255,255,255),
(255,255,255,15,15,255,255,255),
(0,0,0,255,255,255,255,255),
(240,240,240,255,255,255,255,255),
(15,15,15,255,255,255,255,255),
(255,255,255,255,255,255,255,255) {h5F} {255}
);

VAR seg_graftabl,
ofs_graftabl : word;

{internal procedures}

procedure get_graftabl(VAR segment, offset : word);
procedure put_graftabl(segment, offset : word);

{procedures to use in your programs}

procedure init_graftabl;
procedure use_graftabl(VAR aray : Tgraftabl);
procedure end_graftabl;

IMPLEMENTATION

procedure get_graftabl(VAR segment, offset : word);
BEGIN
segment:=memw[0:$1F*4+2];
offset:=memw[0:$1f*4];
END;

procedure put_graftabl(segment, offset : word);
BEGIN
memw[0:$1f*4+2]:=segment;
memw[0:$1f*4]:=offset
END;

procedure init_graftabl;
{
interrupt 1F is a pointer to bitmaps for high 128 chars
(8 bytes per character) defined by GRAFTABL.EXE
we save this initial pointer
}
BEGIN
get_graftabl(seg_graftabl,ofs_graftabl);
END;

procedure use_graftabl(VAR aray : Tgraftabl);
{
we define a new pointer : the address of an array
}
BEGIN
put_graftabl(seg(aray),ofs(aray));
END;

procedure end_graftabl;
{
we restore the original pointer
}
BEGIN
put_graftabl(seg_graftabl,ofs_graftabl);
END;

END.

Thanks a lot 😀
Although I was'nt thinking of doing much coding myself (just the graphic UI / interface design),
I can use this to compile in Borland Turbo Pascal to see what the font will look like.
I'm a C/C++ developer for a living, and the last timer i wrote any pascal code was when I wrote a drawing program when i was 10 or 11 years old,
can't remember exactly, could be younger... Such a long time ago 😀
I used the early version of Turbo Pascal which had the old numbered menu system to choose to edit or compile etc... and later on the version with the revamped DOS character based, menu based interface with the blue background colour, I can't remember the actual versions though, that was such a long time ago...
I switched to Borland Turbo C when I was about 11/12 years old and with some help from my stepdad I started developing in C and I never turned back since...

So, I hope there is someone who will be able to take my graphics UI/designs and write the Turbo Pascal code for it as I really don't have enough time to do the programming, as I've got another main project I'm working on and also a long list of interesting technical topics I need to research/refine and produce videos of for my HP 200LX focused YouTube channel.

Thanks for the pascal code,
Cheers,
Radiance

genesis8bit wrote on 2022-02-04, 23:00:

FreddyV wrote on 2022-01-31, 13:35:

It is not possible to change the font in CGA/EGA

It's possible to do in CGA with the following pascal source I wrote years ago (available in SWAG) :

Hi,

In your code, it is written CGA Mode, but this is the CGA mode used in a VGA Card.
It is not possible with a CGA Card 😀

radiance32 wrote on 2022-02-05, 03:44:

Thanks a lot :) Although I was'nt thinking of doing much coding myself (just the graphic UI / interface design), I can use this […]
Show full quote

Thanks a lot 😀
Although I was'nt thinking of doing much coding myself (just the graphic UI / interface design),
I can use this to compile in Borland Turbo Pascal to see what the font will look like.
I'm a C/C++ developer for a living, and the last timer i wrote any pascal code was when I wrote a drawing program when i was 10 or 11 years old,
can't remember exactly, could be younger... Such a long time ago 😀
I used the early version of Turbo Pascal which had the old numbered menu system to choose to edit or compile etc... and later on the version with the revamped DOS character based, menu based interface with the blue background colour, I can't remember the actual versions though, that was such a long time ago...
I switched to Borland Turbo C when I was about 11/12 years old and with some help from my stepdad I started developing in C and I never turned back since...

So, I hope there is someone who will be able to take my graphics UI/designs and write the Turbo Pascal code for it as I really don't have enough time to do the programming, as I've got another main project I'm working on and also a long list of interesting technical topics I need to research/refine and produce videos of for my HP 200LX focused YouTube channel.

Thanks for the pascal code,
Cheers,
Radiance

My friend who developed the interface did a Text Mode screen editor.
He used it to draw the Mod Master interface.

I need to rebuild it and I can give it to you 😀

It is in french but the menu are simple:
Fichier : Files
You can save/Load a screen in .SCR Format
Project : To Save a full project : This allow to save a custom palet and Character set if redifined (VGA)

Edition : Edit to Copy/Paste a Zone, Draw rectangles.
Couleurs : To define/Edit the colors
Caracteres : To edit the caracter set.

I remember there si also a SCR2PAS Utility that convert the Screen to a Pascal Code 😀

I have better 😀

I found as well the screen capture software, donc by my friend as well, so I put here the .SCR Files for all the display Mode.

Then, you can modify/Play with the actual screen.
The idea is not to revolutionize all, as the more modification are done, the longer it will be to change.

FreddyV wrote on 2022-02-07, 12:29:

I have better :) […]
Show full quote

I have better :)

I found as well the screen capture software, donc by my friend as well, so I put here the .SCR Files for all the display Mode.

Then, you can modify/Play with the actual screen.
The idea is not to revolutionize all, as the more modification are done, the longer it will be to change.

Screener2.jpg

I actually think the current player UI is pretty awesome :D That said, if this tool were translated I might pull out some of my old ANSI-art skillz too, just for the heck of it...

Back in the day I made part of the UI for the Z! MP3 player for OS/2... ;)

/Eirik

Nice, I suppose you used a text mode editor ? (Ascii)

FreddyV wrote on 2022-02-07, 13:51:

Nice, I suppose you used a text mode editor ? (Ascii)

Yeah, but I can't remember which one. It had fancy line drawing helpers and could export in various character sets and encodings.

ltning wrote on 2022-02-07, 14:39:

FreddyV wrote on 2022-02-07, 13:51:

Nice, I suppose you used a text mode editor ? (Ascii)

Yeah, but I can't remember which one. It had fancy line drawing helpers and could export in various character sets and encodings.

Maybe TheDraw?

https://en.wikipedia.org/wiki/TheDraw

pan069 wrote on 2022-02-07, 20:22:

ltning wrote on 2022-02-07, 14:39:

FreddyV wrote on 2022-02-07, 13:51:

Nice, I suppose you used a text mode editor ? (Ascii)

Yeah, but I can't remember which one. It had fancy line drawing helpers and could export in various character sets and encodings.

Maybe TheDraw?

https://en.wikipedia.org/wiki/TheDraw

Probably.
I am fairly sure I had a native OS/2 application though. Then again, it ran DOS applications so well it might be hard to tell them apart :)

Sorry for derailing the discussion.

/Eirik

FreddyV wrote on 2022-02-07, 11:15:

My friend who developed the interface did a Text Mode screen editor. He used it to draw the Mod Master interface. […]
Show full quote

radiance32 wrote on 2022-02-05, 03:44:

Thanks a lot :) Although I was'nt thinking of doing much coding myself (just the graphic UI / interface design), I can use this […]
Show full quote

Thanks a lot 😀
Although I was'nt thinking of doing much coding myself (just the graphic UI / interface design),
I can use this to compile in Borland Turbo Pascal to see what the font will look like.
I'm a C/C++ developer for a living, and the last timer i wrote any pascal code was when I wrote a drawing program when i was 10 or 11 years old,
can't remember exactly, could be younger... Such a long time ago 😀
I used the early version of Turbo Pascal which had the old numbered menu system to choose to edit or compile etc... and later on the version with the revamped DOS character based, menu based interface with the blue background colour, I can't remember the actual versions though, that was such a long time ago...
I switched to Borland Turbo C when I was about 11/12 years old and with some help from my stepdad I started developing in C and I never turned back since...

So, I hope there is someone who will be able to take my graphics UI/designs and write the Turbo Pascal code for it as I really don't have enough time to do the programming, as I've got another main project I'm working on and also a long list of interesting technical topics I need to research/refine and produce videos of for my HP 200LX focused YouTube channel.

Thanks for the pascal code,
Cheers,
Radiance

My friend who developed the interface did a Text Mode screen editor.
He used it to draw the Mod Master interface.

I need to rebuild it and I can give it to you 😀

Screener.jpg

Well, my proposal/idea was to design a graphical user interface, with a very lean / lightweight design language, so it works fast even on 8086 @ 8MHz etc... systems.
It would primarily be function before look/feel, eg keep things practical, but I wanted to add proper, professional dB volume indicators for the tracks and a playback transport UI to play/next/back/stop with an SMPTE-like timecode (but for audio instead of video frames of course) etc...
For the player part of the software, my idea is to have everything drawn statically when you start playing, and from then on only make text/character ASCII based changes to the screen during playback, so the software's speed is not affected as no graphics need to be updated while the song is playing.

Maybe I didn't explain myself properly, but that's what I wanted to do,
Design a GUI for 1) CGA (640x200 mono) and 2) a GUI for 4:3 aspect ratio modes with square pixels, for EGA/VGA, and 3) also make a mono 4:3 aspect ratio with square pixels for hercules monochrome graphics.

I don't think it makes sense for me to design an ASCII based UI, as the current ASCII UI is good enough for one IMO.
You said not to revolutionize, but, if i'm going to put time into a project, I'd like to do something that makes the work worth doing it, so we end up with something that is better than anything else.

I'm afraid if you just want an updated text/ASCII based UI, there really is'nt that much I can do so maybe it's better to stick with the current UI, and you can add features to it as you go then...
I'll go over the screenshots and tool you posted about above, and I understand/speak french as I'm a belgian living in NZ, and I did my highschool in french, so no problem with any french software or code / remarks etc...

Maybe, before you make up your mind, I should just take a few hours to make some photoshop mockups of my idea and post the images here so you can see what I have in mind before commenting upon it ?
You can decide if you want to do it or not after seeing the images... Are you ok with that FreddyV?

Cheers,
Radiance

Hi,

I am curious to see your idea.

Regards,
Freddy.

Display improved a little:

Loaded/Not Loaded samples seen with a Green/Red dot:

Sample name added in the top of the screen when displaying the full channels infos in the center:

Can switch to a mode to see the pitch bar:

Teasing us like that .... :D