It has rounded vertices and lumpy sides and uses too much paint.
Experiment with S and pensize.
load 'plot'
]xx=:i:s=:20
]yy=:(%:3)+(-%:3)*|xx
]D=:|.xx<:/yy
]E=:|.0,.(0,D,0),.0
]t=:0{$E
]x=:t#i.t
]y=:(*:t)$i.t
]A=: x;y
]B=:|:>AI=:($E),"2(,E)#B
]J=:|.<"1 |:I
'point;aspect 1;pensize 10' plot J
Please share ways to of ways to simplify this. Thanks.
Linda
Linda
Experiment with S and pensize.
load 'plot'
]xx=:i:s=:20
]yy=:(%:3)+(-%:3)*|xx
]D=:|.xx<:/yy
]E=:|.0,.(0,D,0),.0
]t=:0{$E
]x=:t#i.t
]y=:(*:t)$i.t
]A=: x;y
]B=:|:>A
I=:($E),"2(,E)#B
]J=:|.<"1 |:I
$J
'point;aspect 1;pensize 10' plot J
Let me know of ways to simplify this. Thanks.
Linda
Sent from AOL Mobile Mail
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
