-
Posts
5,919 -
Joined
-
Last visited
-
Days Won
5
Vorticon last won the day on March 23 2023
Vorticon had the most liked content!
About Vorticon
Contact / Social Media
- Website
Profile Information
-
Gender
Male
-
Location
USA
-
Interests
Retrocomputing, electronics, astronomy, tabletop wargaming, tennis
Recent Profile Visitors
18,661 profile views
Vorticon's Achievements
Quadrunner (9/9)
5.4k
Reputation
-
When I initially tried it, the computer crashed until I realized the radians conversion was incorrect. So odd you're getting a usable output...
-
Your values result in a nicer spiral than the ones I used. Shouldn't however line 23 be W=(A/180)*COS(A*5.5*PI/180) in order to convert the A * 5.5 to radians? I like the PUTPEN function which relocates the turtle and sets the angle all in one shot. Saves an instruction. I stole your values Takes about 1:24 to complete, so close to 50% faster than TML. Classic99 QI399.065 2024-04-22 21-39-41.mp4 program spiral; uses {$u turtleunit.code} turtlegraphics; var a, w, r : real; begin page(output); grafmode; pen_mode(none); a := 0; repeat w := (a / 180) * cos(a * 5.5 * 3.14159 / 180); turnto(round(a)); r := 9 + a / 17; moveto(127, 99); move(round(r - w)); pen_mode(draw); move(round((w * 2))); pen_mode(none); a := a + 3; until a > 1440; repeat until false; end.
-
Assembly I get, C not so much. Once you know assembly, you can substantially enhance straight XB programs without the need to learn another high level language.
-
How do you change screen color with the turtlegraphics package?
-
Yeah, whtech is like Alibaba's treasure hunt. Who knows where/what you will find there.
-
Any way to download all the attachments in one large file by any chance?
-
I second that.
-
Incredibly sad news. May he rest in peace. He will be sorely missed.
-
Never seen this before. A set of macros is provided during assembly to facilitate accessing specific TI-99/4 hardware features such as the Video Display Processor, or the sound chip. An I/0 utility is available which may be linked with an assembly routine to provide access to peripherals such as disk drive, RS-232, etc. Although the disk format of the PASCAL system is different from that used by Extended BASIC, a utility is provided to convert a PASCAL object file to the format required by Extended BASIC. These extensions would have been quite useful...
-
Saw this posted in the BASIC group of FB programmed in Tektronix 4051 Basic and it looked like turtle graphics, so I thought I would try @apersson850's turtle unit and see if I can reproduce it. Here's the original image: Here's the UCSD Pascal code using the turtlegrahics unit: program spiral; uses {$u turtleunit.code} turtlegraphics; var a, w, r : real; begin page(output); grafmode; pen_mode(none); a := 0; repeat w := (a / 240) * cos(3.14159 * (a * 5.5) / 180); turnto(round(a)); r := 3 + a / 22; moveto(127, 99); move(round(r - w / 2)); pen_mode(draw); move(round((w * 1.5))); pen_mode(none); a := a + 4; until a > 1920; repeat until false; end. Not bad, considering the significant resolution limitation on the TI Classic99 QI399.065 2024-04-20 20-12-33.mp4 turtle.dsk PWORK.dsk
-
-
GCHAR equivalent in UCSD Pascal?
Vorticon replied to LarryFromBuffalo's topic in TI-99/4A Development
I worry about information fragmentation, but I'll leave it up to you. With such a limited number of Pascal users I feel it would be good to have all related knowledge in one place at the risk of unintentionally creating a rogue subforum 🏴☠️ -
GCHAR equivalent in UCSD Pascal?
Vorticon replied to LarryFromBuffalo's topic in TI-99/4A Development
@LarryFromBuffalo Here's GCHAR included in a compiled unit called GRAPHCHAR in the GRAPHICS library. As you can see below you don't need to know how the unit itself works, just how to use it. Just make sure that you have a file called USERLIB.TEXT on your default drive which contains the name of the library, GRAPHICS.CODE, before compiling your program. {gchar test program} program gchartest; uses support, {$u graphics.code} graphchar; begin page(output); set_screen(2); gotoxy(15, 11); write('*'); gotoxy(0, 2); write('character code: ',gchar(12, 16)); end. (* gchartest *) PWORK.dsk -
GCHAR equivalent in UCSD Pascal?
Vorticon replied to LarryFromBuffalo's topic in TI-99/4A Development
Got it. The trade off here then is having to run the SETLTYPE utility after each compilation to change the program type to M_9900. The trick about overflow is neat! We should really move that conversation to the Pascal thread. Perhaps @OLD CS1 can do that?