Hi good afternoon.
Now my TForth is running with the HRG graphic.
The translated commands (read HRG.PDF):
------------------------------------------
HROFF
HRON
HRBANK : Seite HRBANK
HRPIX : x y HRPIX
HRUNPIX
HRXPIX
HRLINE : x y x1 y1 HRLINE
HRUNLINE
HRXLINE
HRLINETO : x y HRLINETO
HRUNLINETO
HRXLINETO
HRCIRCLE : x y r HRCIRCLE
HRUNCIRCLE
HRXCIRCLE
HRBOX : x y x1 y1 HRBOX
HRUNBOX
HRXBOX
HRINVERT
HRHCOPY
HRCLR
----------------------------------------------
Have now brought together the zx81.rom with the hrg-64k.p as it was shown here in the forum.
HRGROM.ROM.
The hrgfth.fth file contains all the above HRG commands as inline code.
For EightyOne load as usual under "Load Memory Block" with address 32768 and read
(after TFORTH starts) with "32768 LOAD" who is not the finished HRGTFORTH.P
would like to use.
I do it like this:
- Insert HRGROM.ROM in the EightyOne
- Start
- SHIFT + S key, then appears on the screen HRG and then Return,
then Space and NEW (A key on the PC), the HRG is started.
- Start HRGTFORTH.P
and off you go with the graphic commands.
Here's a routine in TFORTH with sine / cosine to draw a star.
As usual invite the file GRAFIK.FTH to TFORTH (see above).
Start under TFORTH with:
4 HRBANK HRON HRCLR STERN or
CSTERN (with 2 Grafikscreen)
With HRG64.p you can use Bank 4-7.
Right is a printercopy with HRHCOPY
Greeting
TFORTH and HRG-Grafik...
TFORTH and HRG-Grafik...
- Attachments
-
- Bild2.jpg
- (105.31 KiB) Downloaded 368 times
-
- hrg-tforth.zip
- (28.16 KiB) Downloaded 289 times
Re: TFORTH and HRG-Grafik...
Great to see a new version of Forth - have you considered whether this would work with the UDG 4 ZXpand?
Rich Mellor
RWAP Software
RWAP Adventures
SellMyRetro
Retro-Printer Module
Also Involved in:
Icephorm
RWAP Software
RWAP Adventures
SellMyRetro
Retro-Printer Module
Also Involved in:
Icephorm
Re: TFORTH and HRG-Grafik...
here the code for STERN and CSTERN
greeting
Code: Select all
DECIMAL
CREATE SINTAB
0000 , 0175 , 0349 , 0523 , 0698 , 0872 ,
1045 , 1219 , 1392 , 1564 , 1736 , 1908 ,
2079 , 2250 , 2419 , 2588 , 2756 , 2924 ,
3090 , 3256 , 3420 , 3584 , 3746 , 3907 ,
4067 , 4226 , 4384 , 4540 , 4695 , 4848 ,
5000 , 5150 , 5299 , 5446 , 5592 , 5736 ,
5878 , 6018 , 6157 , 6293 , 6428 , 6561 ,
6691 , 6820 , 6947 , 7071 , 7193 , 7314 ,
7431 , 7547 , 7660 , 7771 , 7880 , 7986 ,
8090 , 8192 , 8290 , 8387 , 8480 , 8572 ,
8660 , 8746 , 8829 , 8910 , 8988 , 9063 ,
9135 , 9205 , 9272 , 9336 , 9397 , 9455 ,
9511 , 9563 , 9613 , 9659 , 9703 , 9744 ,
9781 , 9816 , 9848 , 9877 , 9903 , 9925 ,
9945 , 9962 , 9976 , 9986 , 9994 , 9998 ,
10000 ,
: NIP ( x1 x2 -- x2)
SWAP DROP ;
: REVEAL ( -- )
LATEST DUP C@ 127 AND SWAP C!
;
: MOD ( N1 N2 -- N3 )
/MOD DROP
;
: */MOD ( N1 N2 N3 -- N4 N5 )
ROT >R R@ ABS ROT DUP R> XOR >R ABS UM*
BRANCH [ ' /MOD 15 + ,
REVEAL
: */ ( N1 N2 N3 -- N4 )
*/MOD NIP
;
: SINUS@
2 * SINTAB + @ ;
: SIN
DUP 0< >R ABS
360 MOD
DUP 180 >
IF 180 - 1 >R
ELSE 0 >R THEN
DUP 90 >
IF 180 SWAP - THEN
SINUS@
R> IF NEGATE THEN
R> IF NEGATE THEN ;
: COS
90 + SIN ;
: STERN
360 0 DO
128 100 HRPIX
I SIN 50 10000 */ 128 +
I COS 50 10000 */ 100 +
HRLINETO
LOOP ;
: CSTERN
4 HRBANK HRON HRCLR
5 HRBANK HRCLR
360 0 DO
128 100 HRPIX
I SIN 50 10000 */ 128 +
I COS 50 10000 */ 100 +
HRLINETO
42976 34784 6144 CMOVE
LOOP ;
greeting
Re: TFORTH and HRG-Grafik...
The TForth12 is the old TForth.
The HRG chart was only included.
Here is how to integrate the HRG into Rom:
http://forum.tlienhard.com/phpBB3/viewt ... e&start=25
The HRG is generally not running with ZXPand.
The TForth itself runs with ZXPand.
I can not speak English . I am old german with 69 years.
greeting
Greeting
The HRG chart was only included.
Here is how to integrate the HRG into Rom:
http://forum.tlienhard.com/phpBB3/viewt ... e&start=25
The HRG is generally not running with ZXPand.
The TForth itself runs with ZXPand.
I can not speak English . I am old german with 69 years.
greeting
Greeting
Re: TFORTH and HRG-Grafik...
Keine Sorge, wir tun unser Bestes, um es zu verstehen.dh1pba wrote: ↑Fri Dec 01, 2017 1:30 pm The TForth12 is the old TForth.
The HRG chart was only included.
Here is how to integrate the HRG into Rom:
http://forum.tlienhard.com/phpBB3/viewt ... e&start=25
The HRG is generally not running with ZXPand.
The TForth itself runs with ZXPand.
I can not speak English . I am old german with 69 years.
greeting
Greeting
Welcome aboard.
Regards.
Moggy.