You need
ds 'ac ''ABCD'''
instead of
ds 'AC ''ABCD'
Henry Rich
On 6/1/2013 5:53 AM, Linda Alvord wrote:
Henry, I have just been working on translating "Probability in APL" into
"Probability in J".
Running this script works nicely until a snag in ac .I haven't translated it
gracefully yet.
Also, it would be great if I could have it load 'dissect' in the script.
NB. PROBABILITY IN APL TRANSLATED INTO
NB. PROBABILITY IN J - LINDA ALVORD
NB. pOSSIBLE OUTCOMES
po=: 13 :'|:y#:i.*/y'
po
NB. CORRECTION MATRIX
cm=: 13 :'(*/y)(#"0) 0,}:+/\y'
cm
NB. POSSIBLE OUTCOMES AS CHARACTERS
poc=: 13 :'y{~(po + cm)x'
poc
NB. ALTERNATE POSSIBLE OUTCOMES
cmalt=: 13 :'(_1}.+/\0,y)+/(*/y)#0'
cmalt
NB. ALL POSSIBLE COMBINATIONS
ac=:(# # 2:) poc [: , ' '"_ ,. ]
ac 'ABCD'
ac
ds 'po 2 3 4'
ds 'cm 2 3 4'
ds '2 3 4 poc ''%#123ABCD'''
ds 'cmalt 2 3 4'
ac 'ABCD'
ds 'ac ''ABCD'
Linda
-----Original Message-----
From: [email protected]
[mailto:[email protected]] On Behalf Of Henry Rich
Sent: Friday, May 31, 2013 10:44 PM
To: [email protected]
Subject: Re: [Jbeta] gl2 formatting issues
OK, thanks, will do.
Meanwhile, a little progress.
Going back through my code I find that gl2 for J6 required me to add 1 to wh to
make rectangles abut properly. When I remove this kludge for
J8 it fixes the clipping problem.
It appears that character extents for Arial font are not reported correctly, which
induces me to allocate a wider box for the string than necessary, which makes
things look skewed to the left. This problem is still active & I will get more
info.
I experimented with adding values to w&h and nothing gets rid of the lines
between abutting rectangles. I am inclining with Bill to curse
the pen. I use pen 0 5, i. e. 0 width, PS_NULL. This problem is still
active.
Henry Rich
On 5/31/2013 10:32 PM, bill lam wrote:
Please look at the section source in
http://www.jsoftware.com/jwiki/Guides/Qt%20IDE
gl2 is implmemented in the file lib/wd/gl2.cpp
Пт, 31 май 2013, Henry Rich писал(а):
You might be right there. The lines between the rects seem to be a
darker version of the rectangle color. I have set the pen to null -
perhaps that is not being handled properly.
Can you point me to the Qt C++ source?
Henry Rich
On 5/31/2013 10:16 PM, bill lam wrote:
This is the definition of glrect in gl2:
glrect x y w h ; draw rectangle with pen and brush
This is its implementation in Qt C++
int glrect (const int *p)
{
if (!isigraph) return 1;
Isigraph2 *w = (Isigraph2 *)isigraph->widget;
if (!w->painter) return 1;
if (!w->painter->isActive()) return 1;
w->painter->drawRect (*(p), *(p + 1), *(p + 2), *(p + 3));
return 0;
}
This is from Qt documentation
void QPainter::drawRect ( int x, int y, int width, int height )
This is an overloaded function.
Draws a rectangle with upper left corner at (x, y) and with the
given width and height.
So that I think the current glrect implementation is correct.
The issue you got might be related to pen and brush.
Пт, 31 май 2013, Henry Rich писал(а):
OK.
A series of rectangles with the same y values and adjoining in x,
such that x+w of one = x of the next, do not abut smoothly.
I don't know how Qt describes rectangles: is it xywh or tlbr? But
somehow the gl2 definition leaves gaps when drawn in Qt.
Henry Rich
On 5/31/2013 7:35 PM, chris burke wrote:
In general, we want things to work the way Qt works. That is
simplest for us, and the best way forward.
If a discrepancy between J6 and J8 arises because of the way we
have coded it, then we will fix it, but not if it arises because
Qt differs from J6 jwdw or jwdp.
On Sat, Jun 1, 2013 at 7:18 AM, Henry Rich <[email protected]> wrote:
Try loading the dissect package (just released) in J6 and J8, and
see the differences. In particular, look at the sentence display
at the top of the graphics window - in J8 it shows rectangle boundaries.
Also, see how the display of shape and rank information (above
the
results) seems to be uncentered in the rectangle.
Also, the Arial font seems to size differently in J8 than in J6.
Do you agree that the graphics should look the same between J6
and J8? If so, I will work on characterizing the differences.
Remember to upgrade your grid before installing dissect.
Henry Rich
On 5/31/2013 7:10 PM, bill lam wrote:
Reactively, I suspect that the way how Qt works. Please provide
simple script and screen shots to illustrate the differences.
Пт, 31 май 2013, Henry Rich писал(а):
gl2 for J8 has a number of incompatibilities with J6, and also
just seems a pixel off in some cases. Since there will be
graphics applications used on both J6 and J8 for a while yet,
it seems to me that J8 ought to do things the J6 way when there is no reason
not to.
What I have found so far:
0. glarc seems to go CW around the ellipse; J6 went CCW
1. drawing abutting rectangles, with the same color and no
pen, should leave a smooth field; in J8 there are visible
joints
2. drawing text inside a box, the text seems to be shifted one
pixel to the left. Or maybe the box is one pixel to the right.
3. When I draw a box with a pen just inside the wdclip
rectangle, the right and bottom are chopped off. In J6 the
cliprect was already one row/col too short; j8 is even shorter.
This may be related to item 2.
This weekend I will release a graphics application for J6 and
J8. It formats properly on J6, and exhibits pixel problems on J8.
Henry Rich
------------------------------**------------------------------*
*
----------
For information about J forums see
http://www.jsoftware.com/**forums.htm<http://www.jsoftware.com/
forums.htm>
------------------------------**------------------------------**
----------
For information about J forums see
http://www.jsoftware.com/**forums.htm<http://www.jsoftware.com/fo
rums.htm>
------------------------------------------------------------------
---- For information about J forums see
http://www.jsoftware.com/forums.htm
-------------------------------------------------------------------
--- For information about J forums see
http://www.jsoftware.com/forums.htm
---------------------------------------------------------------------
- For information about J forums see
http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
