Re: [fpc-pascal] Working on a new way to educate people about pascal

2022-12-29 Thread Thomas Young via fpc-pascal
I’ve found firebase to be one of the easiest databases to wrap my mind around. https://firebase.google.com https://blogs.embarcadero.com/quick-and-easy-way-to-integrate-firebase-into-your-delphi-apps/ Thomas Young Sent from my iPhone > On Dec 29, 2022, at 12:16 AM, Anthony Walter via

Re: [fpc-pascal] Hello, new Pascal programmer. had a question!

2021-08-30 Thread Thomas Young via fpc-pascal
> On Aug 27, 2021, at 4:01 PM, joseph turco via fpc-pascal > wrote: > > I am a new programmer, and I thought I'd learn Pascal. Good day Joseph, Pascal is the language I was taught in 1986. I’m still using it. First question to ask yourself is why and what do you need to program? For myself,

Re: [fpc-pascal] Calculating Pixels to represent 3D coordinates

2019-09-19 Thread Thomas Young via fpc-pascal
O RADIANS} CTI: REAL;{COS(PHI * (PI / 180)), CONVERT DEGREES TO RADIANS} STS: REAL;{SIN(PSI * (PI / 180)), CONVERT DEGREES TO RADIANS} CTS: REAL;{COS(PSI * (PI / 180)), CONVERT DEGREES TO RADIANS} Thomas Young 330-256-7064 Sent from my iPhone > On Sep 19, 2019, at 12:38 PM, James Richte

Re: [fpc-pascal] Calculating Pixels to represent 3D coordinates

2019-09-17 Thread Thomas Young via fpc-pascal
This is an isometric projection I use: var H1 = (Y - X) * 0.86602 + ScreenOrgin_H; var V1 = (X + Y) * 0.5 - Z + ScreenOrgin_V; Thomas Young 330-256-7064 Sent from my iPhone > On Sep 17, 2019, at 4:53 PM, Gustavo Enrique Jimenez > wrote: > > A simple transformation is: > >

Re: [fpc-pascal] Talkback and detecting touch events

2019-09-17 Thread Thomas Young via fpc-pascal
amera" distance from the model: a range of values [0..15000] (logrithmic). height = "camera" height from 0 ground plane. H := scale * (X * distance / (Y + distance)) + H_offset; V := scale * ((Z - height) * D / (Y + distance)) + Y_offset; Thomas Young 330-256-7064 Sent from my iPhon

Re: [fpc-pascal] Pass array of record as parameter

2012-02-09 Thread Thomas Young
Forgive me for being in wide-eyed wonder but my goodness this is more than a nice feature. Brilliant. I feel like a child who has played with toy blocks all these years and who now received keys to a ferrari. Thomas Young cell: 330-256-7064 mobile email: tygraph...@me.com On Feb 9, 2012, at

Re: [fpc-pascal] Pass array of record as parameter

2012-02-09 Thread Thomas Young
Thank you. Thomas Young cell: 330-256-7064 mobile email: tygraph...@me.com On Feb 9, 2012, at 9:41 PM, Reimar Grabowski wrote: > On Thu, 09 Feb 2012 19:34:06 -0500 > Thomas Young wrote: > >> Howard are you saying FPC has dynamic arrays? Is it documented? > http://w

Re: [fpc-pascal] Pass array of record as parameter

2012-02-09 Thread Thomas Young
g FPC, thank you. While I have been programming in pascal since 1986 almost daily I've relied on the basic features of the language. Time to stretch my mind. Thomas Young cell: 330-256-7064 mobile email: tygraph...@me.com On Feb 9, 2012, at 1:08 PM, Howard Page-Clark wrote: >

Re: [fpc-pascal] Pass array of record as parameter

2012-02-09 Thread Thomas Young
New(A); >> function func1(a:ATInfoPtr); var Name:string; N:integer; begin N:= 1; Name:= a^[n].s; end; Thomas Young 330-256-7064 www.tygraphics.net Sent from my iPhone On Feb 9, 2012, at 12:53 PM, Thomas Young wrote: > This

Re: [fpc-pascal] Pass array of record as parameter

2012-02-09 Thread Thomas Young
This is how I would do that. There may be a better way. > TInfo=record > s: string; > i: integer; > end; > ATInfo = array[1..100] of TInfo; ATInfoPtr = ^ATInfo; Var A:ATInfoPtr; > function func1(a:ATInfoPtr); Thomas Young 330-256-7064 www.tygraphics.net Sent from my iPho

Re: [fpc-pascal] Pass array of record as parameter

2012-02-09 Thread Thomas Young
Define a pointer type for TInfo then pass the pointer to the function. Dereference the pointer within the function to access the array. Thomas Young 330-256-7064 www.tygraphics.net Sent from my iPhone On Feb 9, 2012, at 12:17 PM, Zaher Dirkey wrote: > Hi, > > TInfo=record >

Re: [fpc-pascal] EnumToString

2011-11-01 Thread Thomas Young
ncat(c1, c2, c3); end; end; Thomas Young cell: 330-256-7064 mobile email: tygraph...@me.com On Nov 1, 2011, at 3:41 AM, Juha Manninen wrote: > Hi > > I remember there is a way to get a string representation of an enumerated > type directly without using

Re: [fpc-pascal] Reading and writing char

2011-10-06 Thread Thomas Young
ggestions on how I can do this? Thomas Young cell: 330-256-7064 mobile email: tygraph...@me.com On Oct 6, 2011, at 2:23 AM, David Emerson wrote: > On Wed 5 Oct 2011, Thomas Young wrote: >> Hi, >> >> I'm trying to read and write ascii characters using FPC. I had no pr

[fpc-pascal] Reading and writing char

2011-10-05 Thread Thomas Young
: ? Ascii value: 133 Character: ? Ascii value: 134 Character: ? Ascii value: 135 Character: ? Ascii value: 136 Character: ? Ascii value: 137 truncated for brevity. Thomas Young mobile email: tygraph...@me.com ___ fpc-pascal maillist - fpc-p

[fpc-pascal] Reading and writing char

2011-10-05 Thread Thomas Young
: ? Ascii value: 133 Character: ? Ascii value: 134 Character: ? Ascii value: 135 Character: ? Ascii value: 136 Character: ? Ascii value: 137 truncated for brevity. Thomas Young mobile email: tygraph...@me.com ___ fpc-pascal maillist - fpc-p