Mad Pascal examples

[Gury]

Great effects! Thanks for the code... 👍

 

[Gury]

On 10/26/2023 at 11:11 AM, tebe said:

unit GRAPH update: DrawPoly, FillPoly

polygon.obx 2.6 kB · 16 downloads polygon.pas 646 B · 4 downloads

That's fast polygon fill routine example. Great! 👍

[tebe]

example of operations on an array with pointers to records (stars_ptr.pas)

 

stars (Windows), stars_ptr (Atari XE/XL)

 

stars.exe stars.pas stars_ptr.obx stars_ptr.pas

[tebe]

wormhole.obx wormhole.pas

[tebe]

draw_3d, works correctly on SINGLE type (Float)

draw_3d.obx draw_3d.pas sierpinski_carpet.obx sierpinski_carpet.pas

[tebe]

How to generate 'realistic' bounce", by Bas van Gaalen

bounce.obx bounce.pas

[Gury]

That's very realistic! Also in term of speed, nice example. 👍

 

[tebe]

flat_cube.obx flat_cube.pas

[Gury]

Great example... 💣 It's just a problem with garbage on the top when screen is switched before next cube rotation. I have standard configuration on Altira, 800XL 64K, Atari BASIC switched off.

 

[+JAC!]

This is really a great example of how to combine Pascal with inline assembly. I think back to 30 years ago when I tried the same on my Amiga coding for my Atari (link). Now you can have this in readable Pascal code - awesome.

[tebe]

'dots_cross.pas' (plotter), cross compiled version (PC, Atari XE/XL) ; 'dots_v2.pas' optimized Atari XE/XL version

dots_cross.exe dots_cross.obx dots_cross.pas dots_v2.obx dots_v2.pas

[+JAC!]

7 hours ago, tebe said:

'dots_cross.pas' (plotter), cross compiled version (PC, Atari XE/XL) ; 'dots_v2.pas' optimized Atari XE/XL version

Is there a special reason form removing the "( )" in the V2? I would not expect it to have an impact on the speed.

[tebe]

1 hour ago, JAC! said:

Is there a special reason form removing the "( )" in the V2?

aesthetic

 

brackets do not matter

Edited November 30, 2023 by tebe

[tebe]

Mr.Oger.and.Dr.Sharky.Hunting.the.Jaguar

 

https://demozoo.org/graphics/334168/

 

{$r vga.rc}

uses crt, vbxe;

const
	pic = VBXE_OVRADR;

var	xdl: txdl absolute VBXE_XDLADR+VBXE_WINDOW;

begin

 if VBXE.GraphResult <> VBXE.grOK then begin
  writeln('VBXE not detected');
  halt;
 end;

 SetHorizontalRes(VBXE.VGAMed);

 VBXEMemoryBank($80);

 xdl.rptl_ := 0;
 xdl.rptl := 240;

 poke(559,0);

 repeat
 until keypressed;

 VBXEOff;

end.

 

vga.zip

Edited December 10, 2023 by tebe

[tebe]

The algorithm is based on the BASIC programs for BBC Micro by [Steve McCrea](https://twitter.com/Kweepa).

 

improve

 

  Gr10Init(DISPLAY_LIST_ADDRESS, VIDEO_RAM_ADDRESS, 59, 4, 0);

 

      { Calculate ray direction (X,Y,Z) }
      { Here the perspective is provided by calculation of Z
      { with inverset square root function Z=1/Sqrt(L+1) }
      Z := iSqrt(X * X + Y * Y + 1);

raytracer.obx raytracer.pas

Edited December 26, 2023 by tebe

[tebe]

https://demozoo.org/graphics/332400/

 

kittens_dos64.atr (type VANS.EXE KITTENS.ANS)

kittens_mydos.atr(select L, type DISPANSI.EXE)

 

Press key W / S (move screen up/down)

 

https://github.com/tebe6502/Mad-Pascal/tree/master/samples/a8/graph_vbxe_ansi

kittens_dos64.atr kittens_mydos.atr

Edited December 28, 2023 by tebe

[w1k]

doesnt work on latest altirra

[tebe]

[dmsc]

Hi!

 

I suspect he needs to enable VBXE support...

 

Have Fun!

[tebe]

https://github.com/tebe6502/Mad-Pascal/tree/master/samples/a8/graph/polygon

 

https://github.com/tebe6502/Mad-Pascal/blob/master/samples/a8/graph/polygon/polygon.pas

polygon.obx

[tebe]

example of using the $eval directive

var
	// Generate the 2D array used for the circles. Experiment!
	sqr : array of byte = [ {$eval DWIDTH,200,"255/(sqrt(power(:1-DWIDTH/2.5,2)*4+power(:2-HEI/2-20,2))+5)*32.0" } ];

	data: array of byte = [ {$bin2csv smooth_data.bin} ];

	tab40 : array of word = [ {$eval 200, ":1*DWIDTH"} ];

	sinx: array of byte = [ {$eval 256, "(sin(:1/256.0*PI*2.0)*48+63)"} ];

 

grim.obx grim_source.7z

[TXG/MNX]

Hi,

 

Any knows if there is a library or example to load a picture in other modern graphic modes then the .mic format like hip,cin,supercin, super pcin, supermin?