Recent

Author Topic: Turtle Graphics  (Read 14477 times)

winni

  • Hero Member
  • *****
  • Posts: 3197
Re: Turtle Graphics
« Reply #30 on: January 22, 2021, 11:59:36 pm »
Hilbert Curve with BGRAturtle!

I did a deep search in my HD and found it again:

The UCSD Pascal Demo from  1979 for the Apple II using Turtlegraphics to show the Hilbert Curve.

I adapted the code to BGRAturtle but left as much as possible of the old code untouched.

The project and a SC is attached.


lainz

  • Hero Member
  • *****
  • Posts: 4460
    • https://lainz.github.io/
Re: Turtle Graphics
« Reply #31 on: January 23, 2021, 02:15:08 am »
Thanks  :)

lucamar

  • Hero Member
  • *****
  • Posts: 4219
Re: Turtle Graphics
« Reply #32 on: January 23, 2021, 04:33:11 am »
Black text on yellow background ... ouch! ouch! :D
Turbo Pascal 3 CP/M - Amstrad PCW 8256 (512 KB !!!) :P
Lazarus/FPC 2.0.8/3.0.4 & 2.0.12/3.2.0 - 32/64 bits on:
(K|L|X)Ubuntu 12..18, Windows XP, 7, 10 and various DOSes.

circular

  • Hero Member
  • *****
  • Posts: 4194
    • Personal webpage
Re: Turtle Graphics
« Reply #33 on: January 23, 2021, 11:47:22 am »
Nice, the code is almost the same as the original.  8)

@lucamar
Maybe this needs some magenta as well  :P
Conscience is the debugger of the mind

winni

  • Hero Member
  • *****
  • Posts: 3197
Re: Turtle Graphics
« Reply #34 on: January 23, 2021, 12:59:39 pm »
Black text on yellow background ... ouch! ouch! :D

Hi Lucamar!

Seems the germans love that:

Opel Manta (RIP)
BVB Dortmund
Deutsche Post DHL
....

Winni

winni

  • Hero Member
  • *****
  • Posts: 3197
Re: Turtle Graphics
« Reply #35 on: January 23, 2021, 05:30:33 pm »
@lainz (and all who are interested)

Hi!

If found the manual for the library (now:unit ) TurtleGraphics for UCSD Pascal aka Apple Pascal for the Apple II.

10 PDF  Pages in the attachment.

Winni

lainz

  • Hero Member
  • *****
  • Posts: 4460
    • https://lainz.github.io/
Re: Turtle Graphics
« Reply #36 on: January 28, 2021, 03:32:37 am »
Thanks winni.
In the demo I've seen the moveTo method. Maybe I add that to the list. Any other thing missing?

winni

  • Hero Member
  • *****
  • Posts: 3197
Re: Turtle Graphics
« Reply #37 on: January 29, 2021, 12:33:19 am »
Hi Lainz!

Boah! It is 35 years that I used last time the TurtleGraphics ....

Analog to moveto (x,y) there was

Code: Pascal  [Select][+][-]
  1. turnto (AbsolutAngle)

And asking the Turtle about the current values:

Code: Pascal  [Select][+][-]
  1. X := TurtleX;
  2. Y := TurtleY;
  3. Angle := TurtleAng;
  4.  

And in later versions (I Think ...) there came

Code: Pascal  [Select][+][-]
  1. TurtleHide;
  2. TurteShow;

And there was also

Code: Pascal  [Select][+][-]
  1. Pencolor (Color);
  2.  

Nobody used that.
On the one hand they had strange definitios (Black, Black1, Black2, ....).
And second in those days nobody had a color Monitor because this was really  expensive .
And the color resolution was 48x40 Pixel. Just a stamp .....

Winni






« Last Edit: January 29, 2021, 12:37:02 am by winni »

 

TinyPortal © 2005-2018