David -
it works for me. I opened a new session, copied the definition of ADJPAL to
the clipboard and
ran it with my "F2" key (defined as " 0!:101 wdclipread '' "). The
assignment appears to work fine -
some sanity checks:
$ADJPAL
256 3
3{.ADJPAL
0 0 0
0 0 10
0 0 20
_3{.ADJPAL
255 255 140
255 255 148
255 255 156
+/ADJPAL
38736 30143 27917
Alternatively, I guess you could copy it to an .ijs script and load it.
Devon
On 5/16/07, David Vincent-Jones <[EMAIL PROTECTED]> wrote:
Devon;
My problem appears in the ADJPAL assignment .. it just is not happening!
Not sure why .. am using a direct copy from your mail.
David
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:
[EMAIL PROTECTED] On Behalf Of Devon McCormick
Sent: Wednesday, May 16, 2007 13:09
To: Programming forum
Subject: Re: [Jprogramming] the most impressive & beautiful J phrase
David -
I see that "BANDCOLOR=: RGCLR" at some point in "jzplot.ijs", so, did you
assign "RGCLR_jzplot_=: ADJPAL" ? Also, check to ensure that ADJPAL has
shape 256 3.
Also, I notice I gave an incorrect formulation to look at the palette
using viewmat. It should be:
ADJPAL viewmat i.16 16
Let me know if you still have trouble.
Devon
On 5/16/07, David Vincent-Jones <[EMAIL PROTECTED]> wrote:
>
> 'surface' plot ((2 o.]),:2 o.|:)j./~i:0j99+o. 2
> |index error: plot3d_surface
> | clr=.j {BANDCOLOR
>
> ??
>
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:
> [EMAIL PROTECTED] On Behalf Of Devon McCormick
> Sent: Wednesday, May 16, 2007 11:32
> To: Programming forum
> Subject: Re: [Jprogramming] the most impressive & beautiful J phrase
>
>
> The plots are eye-catching and they demonstrate the power of J
> graphically which lends itself well to a t-shirt. However, if using a
> plot, I would use a more colorful palette than the default RGCLR. I
> have a few that I've made that I can provide to anyone who's
> interested.
>
> In fact, here's one - the code to generate it is a bit involved, so
> I'll just give the resulting palette. Use it with "plot" this way:
>
> RGCLR_jzplot_=: ADJPAL
> 'surface' plot ((2 o.]),:2 o.|:)j./~i:0j99+o. 2
>
> or you can do
> viewmat 16 16$ADJPAL
> to look at the palette on its own.
>
> ADJPAL=: ".&><;._2 ] 0 : 0
> 0 0 0
> 0 0 10
> 0 0 20
> 0 0 31
> 0 0 41
> 0 0 51
> 0 0 61
> 0 0 71
> 0 0 82
> 0 0 92
> 0 0 102
> 0 0 112
> 0 0 122
> 0 0 133
> 0 0 143
> 0 0 153
> 0 0 163
> 0 0 173
> 0 0 184
> 0 0 194
> 0 0 204
> 0 0 214
> 0 0 224
> 0 0 235
> 0 0 255
> 0 7 248
> 0 14 241
> 0 21 234
> 0 28 227
> 0 34 221
> 0 41 214
> 0 48 207
> 0 55 200
> 0 62 193
> 0 69 186
> 0 76 179
> 0 83 172
> 0 90 165
> 0 96 159
> 0 103 152
> 0 110 145
> 0 117 138
> 0 124 131
> 0 131 124
> 0 138 117
> 0 145 110
> 0 152 103
> 0 159 96
> 0 165 90
> 0 172 83
> 0 179 76
> 0 186 69
> 0 193 62
> 0 200 55
> 0 207 48
> 0 214 41
> 0 221 34
> 0 227 28
> 0 234 21
> 0 241 14
> 0 255 0
> 0 255 5
> 0 255 11
> 0 255 16
> 0 255 22
> 0 255 27
> 0 255 33
> 0 255 38
> 0 255 43
> 0 255 49
> 0 255 54
> 0 255 60
> 0 255 65
> 0 255 71
> 0 255 76
> 0 255 81
> 0 255 87
> 0 255 92
> 0 255 98
> 0 255 103
> 120 254 96
> 121 251 99
> 122 247 102
> 124 244 105
> 125 241 107
> 126 237 110
> 127 234 113
> 128 231 116
> 129 227 119
> 131 224 122
> 132 221 125
> 133 217 127
> 134 214 130
> 135 211 133
> 137 207 136
> 138 204 139
> 139 200 142
> 140 197 145
> 141 194 147
> 142 190 150
> 144 187 153
> 145 184 156
> 146 180 159
> 147 177 162
> 148 174 165
> 150 170 167
> 151 167 170
> 152 164 173
> 153 160 176
> 154 157 179
> 155 154 182
> 157 150 184
> 158 147 187
> 159 144 190
> 160 140 193
> 161 137 196
> 163 134 199
> 164 130 202
> 165 127 204
> 166 124 207
> 167 120 210
> 168 117 213
> 170 113 216
> 171 110 219
> 172 107 222
> 173 103 224
> 174 100 227
> 176 97 230
> 177 93 233
> 178 90 236
> 179 87 239
> 180 83 242
> 181 80 244
> 183 77 247
> 184 73 250
> 185 70 253
> 187 68 255
> 193 62 255
> 199 56 255
> 205 50 255
> 211 44 255
> 218 37 255
> 224 31 255
> 230 25 255
> 236 19 255
> 243 12 255
> 255 0 255
> 255 0 249
> 255 0 243
> 255 0 236
> 255 0 230
> 255 0 224
> 255 0 218
> 255 0 211
> 255 0 205
> 255 0 199
> 255 0 193
> 255 0 187
> 255 0 180
> 255 0 174
> 255 0 168
> 255 0 162
> 255 0 155
> 255 0 149
> 255 0 143
> 255 0 137
> 255 0 131
> 255 0 124
> 255 0 118
> 255 0 112
> 255 0 106
> 255 0 100
> 255 0 93
> 255 0 87
> 255 0 81
> 255 0 75
> 255 0 68
> 255 0 62
> 255 0 56
> 255 0 50
> 255 0 44
> 255 0 37
> 255 0 31
> 255 0 25
> 255 0 19
> 255 0 12
> 255 0 0
> 255 5 0
> 255 10 0
> 255 15 0
> 255 20 0
> 255 25 0
> 255 30 0
> 255 35 0
> 255 40 0
> 255 45 0
> 255 50 0
> 255 55 0
> 255 60 0
> 255 65 0
> 255 70 0
> 255 75 0
> 255 80 0
> 255 85 0
> 255 90 0
> 255 95 0
> 255 100 0
> 255 105 0
> 255 110 0
> 255 115 0
> 255 120 0
> 255 125 0
> 255 130 0
> 255 135 0
> 255 140 0
> 255 145 0
> 255 150 0
> 255 155 0
> 255 160 0
> 255 165 0
> 255 170 0
> 255 175 0
> 255 180 0
> 255 185 0
> 255 190 0
> 255 195 0
> 255 200 0
> 255 205 0
> 255 210 0
> 255 215 0
> 255 220 0
> 255 225 0
> 255 230 0
> 255 235 0
> 255 240 0
> 255 245 0
> 255 255 0
> 255 255 8
> 255 255 16
> 255 255 25
> 255 255 33
> 255 255 41
> 255 255 49
> 255 255 58
> 255 255 66
> 255 255 74
> 255 255 82
> 255 255 90
> 255 255 99
> 255 255 107
> 255 255 115
> 255 255 123
> 255 255 132
> 255 255 140
> 255 255 148
> 255 255 156
> )
>
>
>
> On 5/16/07, R.A. MacDonald <[EMAIL PROTECTED]> wrote:
> >
> > Hi Anssi;
> >
> > That would be a mean t-shirt! It resonates with the expression for
> > cofactors on the J coffee mug.
> >
> > All the plot sentences would merely demo plotting, not J itself.
> >
> > (!."1)@([,"1|) would make 'T' out of 'J' so would that do?
> >
> > Anssi Seppälä wrote:
> > > mean =: +/ % #
> > >
> > > At 16:43 16.5.2007, you wrote:
> > >> My original ideas was printing only the codes on the T-shirt.
> > >>
> > >> However, displaying the result of the code together might be a
> > >> good idea, too.
> > >>
> > >> Thanks.
> > >
> > > ------------------------------------------------------------------
> > > --
> > > --
> > > For information about J forums see
http://www.jsoftware.com/forums.htm
> > >
> >
> > --
> > --------------------------------------------------------------------
> > --
> > --
> > |\/| Randy A MacDonald | APL: If you can say it, it's done.. (ram)
> > |/\| [EMAIL PROTECTED] |
> > |\ | | The only real problem with APL is that
> > BSc(Math) UNBF'83 | it is "still ahead of its time."
> > Sapere Aude | - Morten Kromberg
> > Natural Born APL'er | Demo website: http://156.34.65.44/
> > -----------------------------------------------------(INTP)----{
> > gnat
> > }-
> >
> > --------------------------------------------------------------------
> > --
> > For information about J forums see http://www.jsoftware.com/forums.htm
> >
>
>
>
> --
> Devon McCormick, CFA
> ^me^ at acm.
> org is my
> preferred e-mail
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
>
> __________ NOD32 2271 (20070516) Information __________
>
> This message was checked by NOD32 antivirus system.
> http://www.eset.com
>
>
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
>
--
Devon McCormick, CFA
^me^ at acm.
org is my
preferred e-mail
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
__________ NOD32 2271 (20070516) Information __________
This message was checked by NOD32 antivirus system. http://www.eset.com
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
--
Devon McCormick, CFA
^me^ at acm.
org is my
preferred e-mail
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
