Line Drawing in Alpha

[Stan Mathews]

Re: Line Drawing in Alpha

This code "centers" the drawing using the original coordinates in the discussion. I did not work on adjusting the north arrow rendering.

chld = table.current(2)
'test pass to get minimum and maximum x and y values to determine the overall dimensions needed.
minx = 1
miny = 1
maxx  = 1
maxy = 1
strt1x = 1
strt1y = 1
chld_rec = a5_get_records_in_query("plot_vect","lot_number = "+quote(lot_number.value))
dim test_vars as P
FOR qm = 1 TO chld_rec
	chld.record_to_vars(test_vars)
	eval("l"+alltrim(str(qm))+"ns") = test_vars.dir_ns
	eval("l"+alltrim(str(qm))+"ew") = test_vars.dir_ew
	eval("l"+alltrim(str(qm))+"xmod") = if(test_vars.dir_ew = "E",1,-1)
	eval("l"+alltrim(str(qm))+"ymod") = if(test_vars.dir_ns = "S",1,-1)
	eval("l"+alltrim(str(qm))+"lnth") = test_vars.distance/100
	eval("l"+alltrim(str(qm))+"decdeg") = test_vars.bear_deg+(test_vars.bear_min/60)
	eval("l"+alltrim(str(qm))+"adj") = cos(dtor(eval("l"+alltrim(str(qm))+"decdeg")))*eval("l"+alltrim(str(qm))+"lnth")
	eval("l"+alltrim(str(qm))+"opp") = sin(dtor(eval("l"+alltrim(str(qm))+"decdeg")))*eval("l"+alltrim(str(qm))+"lnth")
	IF qm = 1
		eval("end"+alltrim(str(qm))+"x") = eval("strt"+alltrim(str(qm))+"x")+(eval("l"+alltrim(str(qm))+"xmod")*eval("l"+alltrim(str(qm))+"opp"))
		eval("end"+alltrim(str(qm))+"y") = eval("strt"+alltrim(str(qm))+"y")+(eval("l"+alltrim(str(qm))+"ymod")*eval("l"+alltrim(str(qm))+"adj"))
	ELSE
		eval("end"+alltrim(str(qm))+"x") = eval("end"+alltrim(str(qm-1))+"x")+(eval("l"+alltrim(str(qm))+"xmod")*eval("l"+alltrim(str(qm))+"opp"))
		eval("end"+alltrim(str(qm))+"y") = eval("end"+alltrim(str(qm-1))+"y")+(eval("l"+alltrim(str(qm))+"ymod")*eval("l"+alltrim(str(qm))+"adj"))
	END IF
	maxx = max(eval("end"+alltrim(str(qm))+"x"),maxx)
	minx = min(eval("end"+alltrim(str(qm))+"x"),minx)
	maxy = max(eval("end"+alltrim(str(qm))+"y"),maxy)
	miny = min(eval("end"+alltrim(str(qm))+"y"),miny)
	chld.fetch_next()
NEXT qm	
xdim = (maxx - minx) + 2
ydim = (maxy - miny) + 2

'live pass
strt1x = 1+abs(minx-1)
strt1y = 1+abs(miny-1)
chld_rec = a5_get_records_in_query("plot_vect","lot_number = "+quote(lot_number.value))
chld.fetch_first()
dim vars as P
FOR qx =  1 TO chld_rec
	chld.record_to_vars(vars)
	eval("l"+alltrim(str(qx))+"ns") = vars.dir_ns
	eval("l"+alltrim(str(qx))+"ew") = vars.dir_ew
	eval("l"+alltrim(str(qx))+"xmod") = if(vars.dir_ew = "E",1,-1)
	eval("l"+alltrim(str(qx))+"ymod") = if(vars.dir_ns = "S",1,-1)
	eval("l"+alltrim(str(qx))+"lnth") = vars.distance/100
	eval("l"+alltrim(str(qx))+"decdeg") = vars.bear_deg+(vars.bear_min/60)
	eval("l"+alltrim(str(qx))+"adj") = cos(dtor(eval("l"+alltrim(str(qx))+"decdeg")))*eval("l"+alltrim(str(qx))+"lnth")
	eval("l"+alltrim(str(qx))+"opp") = sin(dtor(eval("l"+alltrim(str(qx))+"decdeg")))*eval("l"+alltrim(str(qx))+"lnth")
	IF qx = 1
		eval("end"+alltrim(str(qx))+"x") = eval("strt"+alltrim(str(qx))+"x")+(eval("l"+alltrim(str(qx))+"xmod")*eval("l"+alltrim(str(qx))+"opp"))
		eval("end"+alltrim(str(qx))+"y") = eval("strt"+alltrim(str(qx))+"y")+(eval("l"+alltrim(str(qx))+"ymod")*eval("l"+alltrim(str(qx))+"adj"))
	ELSE
		eval("end"+alltrim(str(qx))+"x") = eval("end"+alltrim(str(qx-1))+"x")+(eval("l"+alltrim(str(qx))+"xmod")*eval("l"+alltrim(str(qx))+"opp"))
		eval("end"+alltrim(str(qx))+"y") = eval("end"+alltrim(str(qx-1))+"y")+(eval("l"+alltrim(str(qx))+"ymod")*eval("l"+alltrim(str(qx))+"adj"))
	END IF
	chld.fetch_next()
NEXT qx
ui_bitmap_create("test",xdim,ydim)
ui_bitmap_draw("test",<<%code%
inner_Rect(0,0,xdim,ydim)
start_poly(strt1x,strt1y)
for xq =  1 to chld_rec
	evaluate_template("oval(end"+alltrim(str(xq))+"x-.02,end"+alltrim(str(xq))+"y-.02,.06,.06)")
	evaluate_template("lineto(end"+alltrim(str(xq))+"x,end"+alltrim(str(xq))+"y)")
next xq
poly(strt1x,strt1y)
start_poly(4,4)
lineto(4,5)
poly(4,5)
start_poly(4,4)
lineto(3.9,4.5)
poly(4,4)
start_poly(4,4)
lineto(4.1,4.5)
poly(4,4)
TEXT("N",3.95,5.2)
%code%)
ui_dlg_box("","{image=test}")

[JetLi]

Re: Line Drawing in Alpha

This code "centers" the drawing using the original coordinates in the discussion. I did not work on adjusting the north arrow rendering.

chld = table.current(2)
'test pass to get minimum and maximum x and y values to determine the overall dimensions needed.
minx = 1
miny = 1
maxx  = 1
maxy = 1
strt1x = 1
strt1y = 1
chld_rec = a5_get_records_in_query("plot_vect","lot_number = "+quote(lot_number.value))
dim test_vars as P
FOR qm = 1 TO chld_rec
	chld.record_to_vars(test_vars)
	eval("l"+alltrim(str(qm))+"ns") = test_vars.dir_ns
	eval("l"+alltrim(str(qm))+"ew") = test_vars.dir_ew
	eval("l"+alltrim(str(qm))+"xmod") = if(test_vars.dir_ew = "E",1,-1)
	eval("l"+alltrim(str(qm))+"ymod") = if(test_vars.dir_ns = "S",1,-1)
	eval("l"+alltrim(str(qm))+"lnth") = test_vars.distance/100
	eval("l"+alltrim(str(qm))+"decdeg") = test_vars.bear_deg+(test_vars.bear_min/60)
	eval("l"+alltrim(str(qm))+"adj") = cos(dtor(eval("l"+alltrim(str(qm))+"decdeg")))*eval("l"+alltrim(str(qm))+"lnth")
	eval("l"+alltrim(str(qm))+"opp") = sin(dtor(eval("l"+alltrim(str(qm))+"decdeg")))*eval("l"+alltrim(str(qm))+"lnth")
	IF qm = 1
		eval("end"+alltrim(str(qm))+"x") = eval("strt"+alltrim(str(qm))+"x")+(eval("l"+alltrim(str(qm))+"xmod")*eval("l"+alltrim(str(qm))+"opp"))
		eval("end"+alltrim(str(qm))+"y") = eval("strt"+alltrim(str(qm))+"y")+(eval("l"+alltrim(str(qm))+"ymod")*eval("l"+alltrim(str(qm))+"adj"))
	ELSE
		eval("end"+alltrim(str(qm))+"x") = eval("end"+alltrim(str(qm-1))+"x")+(eval("l"+alltrim(str(qm))+"xmod")*eval("l"+alltrim(str(qm))+"opp"))
		eval("end"+alltrim(str(qm))+"y") = eval("end"+alltrim(str(qm-1))+"y")+(eval("l"+alltrim(str(qm))+"ymod")*eval("l"+alltrim(str(qm))+"adj"))
	END IF
	maxx = max(eval("end"+alltrim(str(qm))+"x"),maxx)
	minx = min(eval("end"+alltrim(str(qm))+"x"),minx)
	maxy = max(eval("end"+alltrim(str(qm))+"y"),maxy)
	miny = min(eval("end"+alltrim(str(qm))+"y"),miny)
	chld.fetch_next()
NEXT qm	
xdim = (maxx - minx) + 2
ydim = (maxy - miny) + 2

'live pass
strt1x = 1+abs(minx-1)
strt1y = 1+abs(miny-1)
chld_rec = a5_get_records_in_query("plot_vect","lot_number = "+quote(lot_number.value))
chld.fetch_first()
dim vars as P
FOR qx =  1 TO chld_rec
	chld.record_to_vars(vars)
	eval("l"+alltrim(str(qx))+"ns") = vars.dir_ns
	eval("l"+alltrim(str(qx))+"ew") = vars.dir_ew
	eval("l"+alltrim(str(qx))+"xmod") = if(vars.dir_ew = "E",1,-1)
	eval("l"+alltrim(str(qx))+"ymod") = if(vars.dir_ns = "S",1,-1)
	eval("l"+alltrim(str(qx))+"lnth") = vars.distance/100
	eval("l"+alltrim(str(qx))+"decdeg") = vars.bear_deg+(vars.bear_min/60)
	eval("l"+alltrim(str(qx))+"adj") = cos(dtor(eval("l"+alltrim(str(qx))+"decdeg")))*eval("l"+alltrim(str(qx))+"lnth")
	eval("l"+alltrim(str(qx))+"opp") = sin(dtor(eval("l"+alltrim(str(qx))+"decdeg")))*eval("l"+alltrim(str(qx))+"lnth")
	IF qx = 1
		eval("end"+alltrim(str(qx))+"x") = eval("strt"+alltrim(str(qx))+"x")+(eval("l"+alltrim(str(qx))+"xmod")*eval("l"+alltrim(str(qx))+"opp"))
		eval("end"+alltrim(str(qx))+"y") = eval("strt"+alltrim(str(qx))+"y")+(eval("l"+alltrim(str(qx))+"ymod")*eval("l"+alltrim(str(qx))+"adj"))
	ELSE
		eval("end"+alltrim(str(qx))+"x") = eval("end"+alltrim(str(qx-1))+"x")+(eval("l"+alltrim(str(qx))+"xmod")*eval("l"+alltrim(str(qx))+"opp"))
		eval("end"+alltrim(str(qx))+"y") = eval("end"+alltrim(str(qx-1))+"y")+(eval("l"+alltrim(str(qx))+"ymod")*eval("l"+alltrim(str(qx))+"adj"))
	END IF
	chld.fetch_next()
NEXT qx
ui_bitmap_create("test",xdim,ydim)
ui_bitmap_draw("test",<<%code%
inner_Rect(0,0,xdim,ydim)
start_poly(strt1x,strt1y)
for xq =  1 to chld_rec
	evaluate_template("oval(end"+alltrim(str(xq))+"x-.02,end"+alltrim(str(xq))+"y-.02,.06,.06)")
	evaluate_template("lineto(end"+alltrim(str(xq))+"x,end"+alltrim(str(xq))+"y)")
next xq
poly(strt1x,strt1y)
start_poly(4,4)
lineto(4,5)
poly(4,5)
start_poly(4,4)
lineto(3.9,4.5)
poly(4,4)
start_poly(4,4)
lineto(4.1,4.5)
poly(4,4)
TEXT("N",3.95,5.2)
%code%)
ui_dlg_box("","{image=test}")

Output of the Code in alpha is attached.

[JetLi]

Re: Line Drawing in Alpha

Ohh my God, Stan your a Genius you got it right, I'm so sorry , my mistake, I'm really so dumb, the mistake was on my part, Wrong data from the original data, Stan, Congratulations and I thank you so much for the work that you shared. Please see the Alpha Five Output Attached contrary to what I posted Above, I tried to delete but could not delete it,.

[Stan Mathews]

Re: Line Drawing in Alpha

Glad to help. What will make it worthwhile to me is that you understand and learn from what I gave you.

PS You can't delete an earlier post but you can edit it........

[Stan Mathews]

Re: Line Drawing in Alpha

Raymond,

After rereading much of this thread I realized something. Think of all the magnificient contributions of code by Ira, Cal, Tom, and others I forget to mention at the moment and the things they have given for free. Most of these contributions received little if any acclaim though I am sure they were utilized by many.

I'm not sure if it is the need to monetize the return on the time investment that has slowed down such contributions (if indeed they have slowed down) so much as the lack of appreciation. How many threads on this message board have provided solutions only to never hear from the original poster again?

BTW, the order of the contributors listed above is only the way they came to mind and not indicative of any rank. Jetson has communicated his thanks in a private message as well as publicly here.

[JetLi]

Re: Line Drawing in Alpha

Stan,
Saying thank you for my appreciation is not enough for the shared code, It's more than that,One of the best help someone could get here, i know that it will benefit not only me but for others who are interested to learn some additional capabilities of alpha,I know, If ever your going to sell this or let someone pay then I think it will be much for my pocket,and yeah to Raymond also who contributed and shared his thoughts on this post, And Of course To Tom,Ira, Cal Loclin,Ted Giles,Keith, Marion, Steve workings, Finnian,Selwyn Rabins, DaveM, MikeWilson,SteveWood,Al Buchholz,Peter,BobHoule,MoGrace etc
and to others who tried to reply and patiently answered my queries even though it is very basic and no meaning sometimes, things like how to turn off confirmation, SQL or DBF,What to copy to clients if there are updates, Auditing, hwo to access on a network the database,how to delete , With all those questions and with your help , beginners like me are slowly getting a good grip on Alpha Five as our main development tool.Once again Thank you all! No message board such as this could be found on the Internet, There are, but supports are just given to members of a Paid Development tool.

[Stan Mathews]

Re: Line Drawing in Alpha

This seems to work to position the north arrow relative to the centered plot. (substitute this for the existing code)

poly(strt1x,strt1y)
start_poly(xdim-1,ydim)
lineto(xdim-1,ydim-1)
poly(xdim-1,ydim-1)
start_poly(xdim-1,ydim-1)
lineto(xdim-1-.1,ydim-1+.5)
poly(xdim-1-.1,ydim-1+.5)
start_poly(xdim-1,ydim-1)
lineto(xdim-1+.1,ydim-1+.5)
poly(xdim-1+.1,ydim-1+.5)
TEXT("N",xdim-1,ydim-.2)

[JetLi]

Re: Line Drawing in Alpha

Thank you Stan, Working perfectly

[JetLi]

Re: Line Drawing in Alpha

How to print the image on a report including some records on some tables like the one show in the image.?

[Stan Mathews]

Re: Line Drawing in Alpha

polt_set.zip

[JetLi]

Re: Line Drawing in Alpha

[ATTACH]32252[/ATTACH]

Once again Stan Thank you so much for your help, I opened your sample and it is working fine, however I want to make it bigger just like in the microsoft access database picture attached, I'm still trying to figure out how.

[Stan Mathews]

Re: Line Drawing in Alpha

I'm still trying to figure out how.

Good for you!

[JetLi]

Re: Line Drawing in Alpha

Good for you!

what was missing from the work of Stan on plotting, sometimes it is centered on the dialog and sometimes its not, sometimes it is of larger size and sometimes small and very small.I also noticed that the save image is not centered on the form where the actual image from the image reference field.

Stan, I downloaded the latest build and patch but still the images are not automatically centered in the form on the image reference field. regardless of the image created by the code to create a bitmap, is there a way in alpha five for an image reference from any folder to display on a form the image reference field and center it? if the width and length of the field on the form is small created in design mode, the image should also resize to contain the whole image.

Edit:
Sorry, for sure it is very possible in alpha five to display images of fields in image fiel reference on a form, main question is how to center it?

[Stan Mathews]

Re: Line Drawing in Alpha

I told you to read the release notes for the latest build. I did not say the resizing was automatic.

Image Resizing Functions - Two new functions have been added to Xbasic to resize images. The functions allow you to resize an image by supplying an absolute size or a ratio.
The new function are:
Imaging::FileTransformer::Resize as V( InputFile as C, OutputFile as C, OutputWidth as N, OutputHeight as N)
Imaging::FileTransformer::ResizeByRatio as V (InputFile as C, OutputFile as C, SizeRatio as N)

[JetLi]

Re: Line Drawing in Alpha

I see, Sorry, I apologize for that, did ot quite understand what you meant before, Prior to this 2 new functions, was there a way to center an image from an image file reference field on a form? e.g. picture of employees, in design mode of a form, I will draw a litle box to contain/display the field, is there a way to center the image based on the size that was created in design mode?
I have tried this code::: Imaging::FileTransformer::Resize("c:\a5samples\plot2\testpic.bmp", "c:\a5samples\plot2\testpic2.bmp",800,600)
prnt.Drawing = image_filename_encode("c:\a5samples\plot2\testpic2.bmp") but the image is of the same size as the original but it just made the kilobyte size smaller from the original bitmap and the quality is poor than the original too.

Edited:
A bit of trial and error, I change the height and width to smaller values to match the size of the field on the form. And it is at least centered without the North Arrow,
Since the new latest patch/build cannot be used in production, how then can I integrate it on the previous patches and builds ? Will we then have to wait for the official release?