Cliff,
Your suggestion is great. I do get a nice movie, but
the problem is that the guess of frames being 80 by 60 is
crude. I was thinking there was a way to detect the frames
using something like edge detection, especially with photos
that don't line up as well as this one. Even this one has
unequal width frames, but at least they are (almost?)
parallel to the edges of the whole picture.
The frames were recorded in the order 4 5 6 7 3 2 1
0 , so a resequencing that even I can handle is required.
So, the edge detection is still a problem. And when
I have that working I want to be able to "Edit" the frames
with mouse drags to position each frame in its viewing
frame, because often the photographer moves the camera
between frames and the frames need realignment inside a
slightly smaller viewing frame.
Thanks to all,
On Thu, 26 Apr 2007, Cliff Reiter wrote:
+
+
+
+ That array has no whitespace between RGB triples.
+
+ load '~addons\media\image3\movie3.ijs'
+ load '~addons\media\image3\view_m.ijs'
+
+ NB. The data file to image
+ $x=:fread '\temp\bsb.dat'
+ 417120
+ view_image b=:"."1 ]160 237 11$x
+ 237 160
+
+ NB. or save the jpg and read it in
+ view_image B=:read_image '\temp\oktotyler.jpg'
+ 237 160
+ b-:B
+ 1
+ NB. Guess the frames are 80 by 60; Create 8 frames
+ $frames=:80 60&{.&> ,{."1 (80 60,:80 60) <;.3 B
+ 8 80 60 3
+ NB. create 8 file names
+ $fns=: nx_fn^:(i.8) jpath '~temp\oktotyler000.jpg'
+ 8 31
+ NB. write frames
+ frames (4 : 'x write_image y')"_1 fns
+ 2294 2488 2448 2262 2223 2424 2443 2207
+ NB. create a 2 frame per sec movie
+ 2 fseq_to_jpeg_mov fns;fn=:jpath '~temp\oktotyler.mov'
+
+ open_html fn NB. or use quicktime to load the movie
+ 0
+
+
+ >
+ > On 4/26/07, Brian Schott <[EMAIL PROTECTED]> wrote:
+ >>
+ >> I have pictures from a new camera like the trimmed
+ >> down copy temporarily at
+ >> http://schott.selfip.net/~brian/pix/oktotyler.jpg , and I am
+ >> trying to learn how to convert such snapshots into a
+ >> minimovie like the ones at http://www.lomohomes.com/oktopus
+ >> (click on "minimovies at the bottom right corner of the
+ >> webpage).
+ >>
+ >> I am using Cliff Reiter's image3.ijs addon and at
+ >> present am working with a copy of the file put into the noun
+ >> B with the verb read_image and $B == 160 237 3 . I am trying
+ >> to find the horizontal (and vertical) black lines in B .
+ >>
+ >> I think I remember a message on the jforum about
+ >> locating lines or edges, but I can't find it. It seems I
+ >> will have to rotate the image slightly to find the straight
+ >> lines because when such images are processed the lines may
+ >> not be quite parallel to the horizon and the vertical. I
+ >> have placed the array B at
+ >> http://schott.selfip.net/~brian/pix/B .
+ >>
+ >> Any ideas?
+ >>
(B=)
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
