Line Drawing in Alpha

[JetLi]

Re: Line Drawing in Alpha

Sorry,Internet Connection Problem. Double Post. Edited

[csda1]

Re: Line Drawing in Alpha

How much would it cost to hire you or your friends Ira for the code of the attached file? Thank you!

Most consultants wouldn't list their rates in a public forum, as they do change at times. I would say most Alpha Consultants range from $50 to $150 per hour for their work. Some will do fixed priced contracts. My estimate is your job is approximately 4 hours, although it may depend on precisely what you really want to actually have done versus what you show. E.g., you may want a latitude, longitude of the 1st point shown, or do some line segments in a color or a dashed line or dots, or the point table printed in the corner, etc.

For most international payments, most users tend to use Paypal or a credit card. This has the least amount of total fees for international transfers. Paypal can be funded with a bank transfer.

If you have high speed internet (at least DSL speeds of 250k), remote connections and skype can be done. This actually allows for almost any consultant in the world to help you directly, and to verbally and/or visually connect with you to work together on a problem. This is typically how most consultants work.

Also, you should consider placing your location (country at least) in your forum profile. This lets everyone know your location specific issues.

[JetLi]

Re: Line Drawing in Alpha

Most consultants wouldn't list their rates in a public forum, as they do change at times. I would say most Alpha Consultants range from $50 to $150 per hour for their work. Some will do fixed priced contracts. My estimate is your job is approximately 4 hours, although it may depend on precisely what you really want to actually have done versus what you show. E.g., you may want a latitude, longitude of the 1st point shown, or do some line segments in a color or a dashed line or dots, or the point table printed in the corner, etc.

For most international payments, most users tend to use Paypal or a credit card. This has the least amount of total fees for international transfers. Paypal can be funded with a bank transfer.

If you have high speed internet (at least DSL speeds of 250k), remote connections and skype can be done. This actually allows for almost any consultant in the world to help you directly, and to verbally and/or visually connect with you to work together on a problem. This is typically how most consultants work.

Also, you should consider placing your location (country at least) in your forum profile. This lets everyone know your location specific issues.

Please charge me with the lowest rate as I don't have any extra money to afford. Thank you!

[doorscomputers]

Re: Line Drawing in Alpha

I'm also Interested.

[Stan Mathews]

Re: Line Drawing in Alpha

See if you can make any use of this. I don't have a lot of time to spend on it but this should illustrate the concepts involved. Mostly hard coded the values.

'S = +
'E = +
'N = -
'W = -
strt1x = 2
strt1y = 1
'line 1
l1ns = "S"
l1ew = "E"
l1xmod = if(l1ew = "E",1,-1)
l1ymod = if(l1ns = "S",1,-1)
l1lnth = 234.47/100
l1decdeg = 60+(59/60)
l1adj = cos(dtor(l1decdeg))*l1lnth
l1opp = sin(dtor(l1decdeg))*l1lnth
end1x = strt1x+(l1xmod*l1opp)
end1y = strt1y+(l1ymod*l1adj)
'line2
l2ns = "S"
l2ew = "W"
l2xmod = if(l2ew = "E",1,-1)
l2ymod = if(l2ns = "S",1,-1)
l2lnth = 75/100
l2decdeg = 30+(0/60)
l2adj = cos(dtor(l2decdeg))*l2lnth
l2opp = sin(dtor(l2decdeg))*l2lnth
end2x = end1x+(l2xmod*l2opp)
end2y = end1y+(l2ymod*l2adj)
'line3
l3ns = "S"
l3ew = "W"
l3xmod = if(l3ew = "E",1,-1)
l3ymod = if(l3ns = "S",1,-1)
l3lnth = 43.56/100
l3decdeg = 30+(0/60)
l3adj = cos(dtor(l3decdeg))*l3lnth
l3opp = sin(dtor(l3decdeg))*l3lnth
end3x = end2x+(l3xmod*l3opp)
end3y = end2y+(l3ymod*l3adj)
'line4
l4ns = "S"
l4ew = "W"
l4xmod = if(l4ew = "E",1,-1)
l4ymod = if(l4ns = "N",1,-1)
l4lnth = 227.16/100
l4decdeg = 61+(19/60)
l4adj = cos(dtor(l4decdeg))*l4lnth
l4opp = sin(dtor(l4decdeg))*l4lnth
end4x = end3x+(l4xmod*l4opp)
end4y = end3y+(l4xmod*l4adj)
ui_bitmap_create("test",6,6)
ui_bitmap_draw("test",<<%code%
inner_Rect(0,0,6,6)
start_poly(strt1x,strt1y)
lineto(end1x,end1y)
lineto(end2x,end2y)
lineto(end3x,end3y)
lineto(end4x,end4y)
poly(2,1)
%code%)
ui_dlg_box("","{image=test}")

[Peter.Greulich]

Re: Line Drawing in Alpha

Just to make the point. These examples were all produced 100% in Alpha Five ver 7...

Simple Bar Graph.gif
SingleColor Bar Chart.gif
Multi Bar Chart.gif
Negative Bar Graph.gif
Pie Chart.gif

[Stan Mathews]

Re: Line Drawing in Alpha

Showoff.

[Peter.Greulich]

Re: Line Drawing in Alpha

Showoff.

I probably stole some of your code somewhere along the line to produce those.

[Steve Wood]

Re: Line Drawing in Alpha

I see you owe Ira $15K, does he know this? :)

[Stan Mathews]

Re: Line Drawing in Alpha

Trying not to be too badly out done. (don't know if I can't spell or can't see)

polt_set.zip

[csda1]

Re: Line Drawing in Alpha

Hi Steve,

I see you owe Ira $15K, does he know this? :)

and apparently, all payments to me are tax deductible too!

[Raymond Lyons]

Re: Line Drawing in Alpha

Stan, of course your Polt (plot) thingy pretty much does what was wanted, except maybe for the North arrow.

Great work, as usual. Image below uses the data that JetLi posted a few posts back (just had to test it).

Raymond Lyons

[Stan Mathews]

Re: Line Drawing in Alpha

Tack this on just before the %code%

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)

(and thanks for your kind words)

[Raymond Lyons]

Re: Line Drawing in Alpha

With North arrow (below). Now Stan, how much are you charging for this? It's kind of interesting, at least to me, that 10 or 15 years ago more people here would have taken up this challenge and shared something like what you did, even if it were too big for this board (with explanations, etc.) and went on LearnAlpha.com. At some point the need to monetize such help seems to have gone way up. Of course, who am I to talk--I do almost nothing these days!

[Stan Mathews]

Re: Line Drawing in Alpha

Raymond,

No charge, as you know, and I think I've said before that this is how I learn what Alpha can do. Solving the problem is its own reward. Can't speak for others.

I do a bit of work off the board with some folks who absolutely insist on paying something for the help they get. You might have noticed Martin Cole's recent addition to the code archive. (http://msgboard.alphasoftware.com/al...882#post587882) Martin paid for my contribution to that project after being told I didn't want anything and then turned around and made it available to everyone.

That's my kind of guy.

Stan

PS And as far as I'm concerned I still have a debt to those who helped me in my early Alpha days.