topic Re: Tutorial for PUT&GET? in GDL

Tutorial for PUT&GET?

Mats_Knutsson — Tue, 14 Sep 2021 11:23:04 GMT

Hi,
I've been looking for examples but haven't found any except for the manual. Any basic youtube (or other) tutorials someone know?
/Mats

Re: Tutorial for PUT&GET?

Lingwisyer — Mon, 22 Feb 2021 09:06:33 GMT

There is a tube sample object from GS somewhere that uses it. I attached it in this thread. Not sure where the original post is.

Ling.

Re: Tutorial for PUT&GET?

Goker Altuntas — Mon, 22 Feb 2021 09:14:40 GMT

Here is an example that I have made to obtain a polygon with desired number of edges:

3D Script:



!below, n represents the number of the edges. eEach stands for the angle between the lines
!that start from the centre and goes to the corners.

aEach = 360/n 

!The loop is to store the coordinates of the corner points. The centre of the polygon is at
! 0,0. Each time the loop is executed, the "PUT" command stores another corner 

for aTurn = 0 to 360 step aEach 
PUT	dCentreToCorner*cos(aTurn),  dCentreToCorner*sin(aTurn)

next aTurn

!Now all the stored data is going to be used in a PRISM command. Rather any parameters, the coordinates
!of the points come from the data stored.

PRISM n+1, ZZYZX,
get (nsp)

Re: Tutorial for PUT&GET?

DGSketcher — Mon, 22 Feb 2021 09:26:45 GMT

Do a search for GDL Cookbook 3 by David Nicholson-Cole. His book is a fantastic tutorial from beginner to advanced and in the later chapters he explains just how important Put & Get are to efficient GDL programming. It is getting a bit old now but the basics are still relevant, I think because of that you can find it in the public domain and there is I believe a web based version. Alternatively you could pay back his generous contribution to teaching GDL and buy a copy.

Re: Tutorial for PUT&GET?

Mats_Knutsson — Mon, 22 Feb 2021 12:21:03 GMT

I have the cookbook. Was looking for more examples like Gokers .

Re: Tutorial for PUT&GET?

A_ Smith — Mon, 22 Feb 2021 13:30:05 GMT

here is not the best example of my post with put/get and here Kristian Bursell explain how to use it wiser

and here Peter Baksa has code with put/use

Re: Tutorial for PUT&GET?

Mats_Knutsson — Mon, 22 Feb 2021 13:35:19 GMT

A. wrote:
here is not the best example of my post with put/get and here Kristian Bursell explain how to use it wiser

and here Peter Baksa has code with put/use

Great! Thx.

Re: Tutorial for PUT&GET?

Kristian Bursell — Mon, 22 Feb 2021 21:16:59 GMT

What sort of function are you applying it to? Is it 3D or 2D geometry and if so what type of shape?
Polygons, Extrudes, Revolves are all easy because each line has the same number of values (usually 3; x, y, status) therefore when setting the number of nodes its "nsp/3".
However Tubes are more complex because they can have 3 values for the profile and 4 values for the path. therefore you can't divide the NSP (stored values) to get the node count. So in this case I follow each line with a counter like this (pay attention to the cntNSP_1 & cntNSP_2) :


cntNSP_1 = 0
cntNSP_2 = 0
for m = 1 to vardim1(_nodes_OESF_L)
	put -_nodes_OESF_L[xNde], _nodes_OESF_L[yNde], 0:	cntNSP_1 = cntNSP_1 +1
next m

put 0, 	StartY -.001, 0, 0:		cntNSP_2 = cntNSP_2 +1
put 0, 	StartY, 0, 0:			cntNSP_2 = cntNSP_2 +1
put 0, 	hOEsubFRAME, 0, 0:		cntNSP_2 = cntNSP_2 +1
put 0, 	hOEsubFRAME +.001, 0, 0:	cntNSP_2 = cntNSP_2 +1
tube cntNSP_1, cntNSP_2, 1+2+16+32,
	get(nsp)

Re: Tutorial for PUT&GET?

Mats_Knutsson — Tue, 23 Feb 2021 07:34:37 GMT

Kristian wrote:
What sort of function are you applying it to? Is it 3D or 2D geometry and if so what type of shape?
Polygons, Extrudes, Revolves are all easy because each line has the same number of values (usually 3; x, y, status) therefore when setting the number of nodes its "nsp/3".
However Tubes are more complex because they can have 3 values for the profile and 4 values for the path. therefore you can't divide the NSP (stored values) to get the node count. So in this case I follow each line with a counter like this (pay attention to the cntNSP_1 & cntNSP_2) :
cntNSP_1 = 0
cntNSP_2 = 0
for m = 1 to vardim1(_nodes_OESF_L)
	put -_nodes_OESF_L[xNde], _nodes_OESF_L[yNde], 0:	cntNSP_1 = cntNSP_1 +1
next m

put 0, 	StartY -.001, 0, 0:		cntNSP_2 = cntNSP_2 +1
put 0, 	StartY, 0, 0:			cntNSP_2 = cntNSP_2 +1
put 0, 	hOEsubFRAME, 0, 0:		cntNSP_2 = cntNSP_2 +1
put 0, 	hOEsubFRAME +.001, 0, 0:	cntNSP_2 = cntNSP_2 +1
tube cntNSP_1, cntNSP_2, 1+2+16+32,
	get(nsp)

Thanks! I'll dig into this. Just need a couple of hours of spare time.The original reason was that I wanted to add HEX colour values somewhere. Since I spent a week skiing with ny brother in law (IT-guy) we discussed some IT-related stuff and when he was explaining Json I imagined I could store whatever in Archicad the same way.

Back to adding materials to the BM-catalogue...