<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<font face="Georgia">You could also just swap some of the pixels:<br>
<br>
| w h f |<br>
f := (PNGReadWriter formFromFileNamed:
'/Users/bob/squeak/Squeak4.3/blur_ulam_1.png') asFormOfDepth: 32.<br>
w := f width - 1.<br>
h := f height - 1.<br>
0 to: h by: 2 do: [ :y || c |<br>
c := f colorAt: 0@y.<br>
f colorAt: 0@y put: (f colorAt: w@y).<br>
f colorAt: w@y put: c.<br>
].<br>
0 to: w by: 2 do: [ :x || c |<br>
c := f colorAt: x@0.<br>
f colorAt: x@0 put: (f colorAt: x@h).<br>
f colorAt: x@h put: c.<br>
].<br>
ActiveWorld color: (InfiniteForm with: f)<br>
<br>
Cheers,<br>
Bob<br>
<br>
</font>
<div class="moz-cite-prefix">On 11/22/12 10:14 AM, Frank Shearar
wrote:<br>
</div>
<blockquote
cite="mid:CAJbhyRFNmtHDM9btsKfGC74vngGbzki8V9GpGOxb0c=L8QO0NA@mail.gmail.com"
type="cite">
<pre wrap="">On 22 November 2012 14:27, Bert Freudenberg <a class="moz-txt-link-rfc2396E" href="mailto:bert@freudenbergs.de"><bert@freudenbergs.de></a> wrote:
</pre>
<blockquote type="cite">
<pre wrap="">
On 2012-11-22, at 14:27, Frank Shearar <a class="moz-txt-link-rfc2396E" href="mailto:frank.shearar@gmail.com"><frank.shearar@gmail.com></a> wrote:
</pre>
<blockquote type="cite">
<pre wrap="">On 21 November 2012 18:22, Bob Arning <a class="moz-txt-link-rfc2396E" href="mailto:arning315@comcast.net"><arning315@comcast.net></a> wrote:
</pre>
<blockquote type="cite">
<pre wrap="">It's always fun to try it with Squeak. convert the form to 32 bits and try
this:
0 to: self height - 1 do: [ :y |
self colorAt: self width-1@y put: ((self colorAt: 0@y) mixed: 0.5 with:
(self colorAt: self width-2@y)).
self colorAt: 0@y put: ((self colorAt: 2@y) mixed: 0.5 with: (self
colorAt: self width-1@y))
].
Seems to fuzz it up pretty well.
</pre>
</blockquote>
<pre wrap="">
That's exactly what I'd like to do. The form's an 8 bit ColorForm
though, and doesn't like depths > 8. So I thought I'd be extra clever
and make a 32 bit form and copy the bits:
| form |
form := PNGReadWriter formFromFileNamed:
'/home/frank/Downloads/blur_ulam_1.png'.
form := (Form extent: form extent depth: 32) bits: form bits.
</pre>
</blockquote>
<pre wrap="">
You can't just use an 8 bit form's bits in a 32 bit form. Use asFormOfDepth:.
</pre>
</blockquote>
<pre wrap="">
Ah! That works. OK, so I need just fix the horizontal glitch in a
similar manner and I'll be happy.
Thanks, Bert!
frank
</pre>
<blockquote type="cite">
<pre wrap="">- Bert -
</pre>
<blockquote type="cite">
<pre wrap="">0 to: form height - 1 do: [ :y |
form
colorAt: form width-1@y
put: ((form colorAt: 0@y)
mixed: 0.5
with: (form colorAt: form width-2@y)).
form
colorAt: 0@y
put: ((form colorAt: 2@y)
mixed: 0.5
with: (form colorAt: form width-1@y)) asFloat
].
ActiveWorld color: (InfiniteForm with: form)
However, I still can't run the script, because I get an "Error: Bad
BitBlt arg (Fraction?). I can't even just wrap-and-resume the Error
because, of course, Error is not resumable.
Ideas? What am I missing?
frank
</pre>
<blockquote type="cite">
<pre wrap="">Cheers,
Bob
On 11/21/12 10:53 AM, Frank Shearar wrote:
On 21 November 2012 14:39, Frank Shearar <a class="moz-txt-link-rfc2396E" href="mailto:frank.shearar@gmail.com"><frank.shearar@gmail.com></a> wrote:
Hi folks,
Apologies for the silence: things have been a bit busy.
Test wise we're looking pretty good. We still have a few red lights but I
don't see much point in delaying further: some of the test failures are
because of VM sensitivities.
Off the top of my head we/I still need to write a changelog, and otherwise a
bunch of infrastructural stuff's all that's needed: a new update stream,
switching it over, etc. I wrote a ReleaseBuilder script but of course should
actually publish it.
I've also nearly finished the new background, and just need to figure out
how to clean the edges of the pic to make it tile properly. Given I'm
writing this mail on my phone I will have to mail the proposed image
separately, at a later stage.
For better or worse, here it is. Test it with
ActiveWorld color: (InfiniteForm with: (PNGReadWriter
readFromFileNamed: 'my/path/to/blur_ulam_1.png'))
Note the strange vertical white-ish line between the tiles. The image
is filled all the way to the edge, but the left and right edges differ
sufficiently to create the artifact. I'm not sure how to get rid of
it, never having attempted to make a tile-able image before.
Anyone spot anything missing off the swiki release page?
That would be <a class="moz-txt-link-freetext" href="http://wiki.squeak.org/squeak/6188">http://wiki.squeak.org/squeak/6188</a>.
frank
</pre>
</blockquote>
<pre wrap="">
</pre>
</blockquote>
<pre wrap="">
</pre>
</blockquote>
<pre wrap="">
</pre>
</blockquote>
<br>
</body>
</html>