polyline
2 posts
• Page 1 of 1
polyline
I'd like to draw arbitrary shapes with "polyline" (Rainpro). I have the n×2 arrays of x-y coordinates that specify the vertices of the figures, but I can't figure out from the Rainpro documentation for polylines exactly how to use these points to draw figures ("ch.Draw - add arbitrary polylines" and "ch.MapCoords - map from chart space to frame" appear to describe what I want, but there's not enough information to solve my problem).
- Stu
- Posts: 97
- Joined: Thu Dec 31, 2015 1:30 am
Re: polyline
I solved my own problem, sort of. For anyone who's interested, here's the solution:
polyline T;rt;x;y;data;PG;⎕IO
⎕IO←0
rt←⍴T
T←T+16 ⍝ offset from picture frame
x←(rt⍴1 0)/T
y←(rt⍴0 1)/T
:If ((1↑x)≠¯1↑x)∧(1↑y)≠¯1↑y
x←¯1↓x
y←¯1↓y
:EndIf
data←⍉(2,⍴x)⍴x,y
ch.Draw ch.MapCoords data
PG←ch.Close
PostScrp.Clip PG ⍝ puts the shape on the clipboard
PostScrp.View PG ⍝ displays the shape on the screen
⍝ 'C:\Users\Stuart Smith\Desktop\shape' ToPNG PG
Argument T is a vector of coordinates that the calling program scales to the range 0-255. The X values are those in the even-numbered locations of T; the Y values are those in the odd-numbered locations. The final line of the definition is commented out because it gives VALUE ERROR. The rainpro doc says this is how you save an image file, but it doesn't work.
polyline T;rt;x;y;data;PG;⎕IO
⎕IO←0
rt←⍴T
T←T+16 ⍝ offset from picture frame
x←(rt⍴1 0)/T
y←(rt⍴0 1)/T
:If ((1↑x)≠¯1↑x)∧(1↑y)≠¯1↑y
x←¯1↓x
y←¯1↓y
:EndIf
data←⍉(2,⍴x)⍴x,y
ch.Draw ch.MapCoords data
PG←ch.Close
PostScrp.Clip PG ⍝ puts the shape on the clipboard
PostScrp.View PG ⍝ displays the shape on the screen
⍝ 'C:\Users\Stuart Smith\Desktop\shape' ToPNG PG
Argument T is a vector of coordinates that the calling program scales to the range 0-255. The X values are those in the even-numbered locations of T; the Y values are those in the odd-numbered locations. The final line of the definition is commented out because it gives VALUE ERROR. The rainpro doc says this is how you save an image file, but it doesn't work.
- Stu
- Posts: 97
- Joined: Thu Dec 31, 2015 1:30 am
2 posts
• Page 1 of 1
Who is online
Users browsing this forum: No registered users and 1 guest
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group