Sorry. Here's the code:
load'viewmat'
require 'debug/dissect'
'BLACK BLUE GREEN CYAN RED MAGENTA YELLOW WHITE'=:#:i.8
msc=: 3 : 0
:
N=:x
'A B C D' =: y
L=: (,:~-.)@:(%~ i.@>:) N
AB =: L +/@:(*/"1) A,:B
CD =: L +/@:(*/"1) D,:C
1 0 2 |: <.255 * L +/@:(*/"1) AB,:CD
dissect '1 0 2 |: <.255 * L +/@:(*/"1) AB,:CD'
)
mycube=: 3 : 0
:
N=:2>.<:x
'A B C D H G F E' =: y
BLANK =: < BLACK;BLACK;BLACK;BLACK
FRONT =: < A;B;C;D
BACK =: < H;G;F;E
TOP =: < E;F;B;A
LEFT =: < H;E;A;D
RIGHT =: < F;G;C;B
BASE =: < D;C;G;H
plan =: BASE(<3 1)}FRONT(<2 1)}(LEFT,TOP,RIGHT)1}BACK(<0 1)}4 3$BLANK
colours =: ,/,/>,"_1&.>/"1 N msc&.> plan
colours viewmat i.($plan)*N+1
)
5 mycube BLACK,BLUE,CYAN,GREEN,YELLOW,WHITE,MAGENTA,:RED
Linda
-----Original Message-----
From: [email protected]
[mailto:[email protected]] On Behalf Of Linda
Alvord
Sent: Sunday, July 12, 2015 9:03 PM
To: [email protected]
Subject: Re: [Jprogramming] J By Point and Click fixed for Mac (I hope!)
Next I was trying to understand the method Raul and Mike's color pattern.
I put dissect on a line the program uses repeatedly.
You'll see lots of screens and if you wait afew seconds, they fill in. I
was
impressed that it would work.
Linda
-----Original Message-----
From: [email protected]
[mailto:[email protected]] On Behalf Of Henry
Rich
Sent: Saturday, July 11, 2015 9:58 PM
To: [email protected]
Subject: Re: [Jprogramming] J By Point and Click fixed for Mac (I hope!)
Linda,
The Sizes menu lets you set the maximum width and height of the
nouns.
This may make the display smaller.
You get 2 images because by default dissect executes the sentence
twice: once as is, the second in the instrumented form that dissect uses
for
analysis. dissect makes sure the two results agree, to make sure you're
not
looking at an invalid interpretation.
You can turn off the 'as is' execution by giving an x argument of
(0 ;< 'check';'no')
as in
(0 ;< 'check';'no') dissect 'ALL viewmat WOW3;''Color Cube'''
Henry Rich
On 7/11/2015 8:24 PM, Linda Alvord wrote:
Henry, This works fine using dissect. Two things to note. First the
window
that creates the tables is big and hides the viewmat image. Also two
png images appear instead of one.
Dissect is quite amazing.
load 'viewmat'
require 'debug/dissect'
A=:#:i.8
N=:<.63.75*i.5
B=:((4#0),N),.N,4#255
BIGBOX=:<"2(|."2)1 0 2{"1(|:"2)8 3 9$,|:(,A){"1 B 'BLACK BLUE RED
MAGENTA GREEN CYAN YELLOW WHITE'=:>BIGBOX
LYELLOW=:(i.5){"2 YELLOW
LCYAN=:(i.5){"2 CYAN
LMAGENTA=:(i.5){"2 MAGENTA
GREEN=:(4+i.5){"2 GREEN
RED=:(4+i.5){"2 RED
BLUE=:(4+i.5){"2 BLUE
BACK=:25 3$,LMAGENTA<."1/LYELLOW
TOP=:25 3$,LCYAN<."1/LYELLOW
LEFT=:25 3$,LMAGENTA<."1/LCYAN
FRONT=:25 3$,GREEN+"1/BLUE
RIGHT=:25 3$,GREEN+"1/RED
BASE=:25 3$,RED+"1/BLUE
F=:i.5 5
T=:149,4 5$0
L=:|:T
R=:|:|.T
WOW1=:(R,.(|.F),.L),((|:|.25+F),.(50+F),.|.T)
WOW2=:WOW1,(T,.(75+F),.|:|.|:100+F)
WOW3=:WOW2,(R,.(|.125+F),.L),"2,5(#"0) 0 150 0
ALL=:BACK,LEFT,TOP,FRONT,RIGHT,BASE(,"2)0 0 0 dissect 'ALL viewmat
WOW3;''Color Cube'''
Linda
-----Original Message-----
From: [email protected]
[mailto:[email protected]] On Behalf Of Henry
Rich
Sent: Saturday, July 11, 2015 1:52 PM
To: Programming forum; General forum
Subject: [Jprogramming] J By Point and Click fixed for Mac (I hope!)
J By Point and Click is ready for Mac users to try. Make sure you
read
the
instructions under What You Need at
http://www.jsoftware.com/jwiki/JbyPointAndClick
You need to update qtide, get the new labs and new dissect, and also
update
the ide/qt addon.
This dissect version also fixes the parsing bug Raul reported last
week,
and
moves the tooltips as Devon requested.
Henry Rich
----------------------------------------------------------------------
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
