Murga-Projects Forums - All Forums

Wake on Lan

Thu, 19 Apr 2012 04:31:00 -0600

I just wrote a Wake on Lan script, and thought I might share it.

It's a simple script using LuaSocket to send a magic packet to a computer to wake it up over the network.

Usage is like:

murgaLua wol.lua -i (one or more MAC addresses, or identifiers)

identifiers are defined in a table in the script in the table "targets". they start by @ and are followed by a number of characters (the set matched by %w).

Feel free if you want to adapt it, or write a GUI frontend.

MurgaLua 0.7.5 RC1 ... Maybe I release this time :-)

Mon, 26 Dec 2011 09:52:16 -0700

Hi,

It seems like years since the last release ... Because it was :-(

I use murgaLua for personal projects, and I am determined to get the 0.7 series done this year, as I am currently using a FLTK 1.3 version which I would like to release as 0.8.X.

So here you have a release candidate for 0.7.5, I was hoping to push this out on Christmas day, but I found quite a few issues which took me while to resolve ... Either way it should be better and faster than before.

In the archive you'll find builds for Windows, Linux, MacOS ...
And RaspberryPI :-)

The MacOS builds where done on Snow Leopard.
The Linux builds where done on Centos 6.2.
The Windows builds where done on Windows 8 (dev preview).
And the RaspberryPI builds on an emulated Debian environment.

You can find it all here :

http://www.my-plan.org/storage/private/m...hot.tar.gz

Highlights are stability (hopefully), a few more murgaLua API calls, JSON and Mongoose integration and a few more bits :-)

The -M* flags below will cause a crash (a last minute bug I haven't fixed yet).
It's kinda late here, but when I get time I'll post more info.

JohnMurga Wrote:Intro

This is final functionality for murgaLua 0.7.X.
It is all about tidying up, fixing the docs and closing it up.

I will post some examples of the neat new stuff you can do in subsequent posts.

All bugs that I know about and that have been reported on the forum should be fixed.

An 0.8.0 branch exists which is a major overhaul, FLTK 1.3, Unicode, breakages and all ...
But I want a nice stable up-to-date base before I do anything with that.

And to be honest I use 0.7.X for my day to day stuff at moment.

Anyway, here is my initial drop ... More examples of note and info to follow.

Testing of drop is minimal as I just wanted to give you guys something.
I am pretty ill right now so I have likely made mistakes.

I will update the tests and do another drop shortly.

General Notes :

New searchable documentation - In progress.
New functions that deal with the nasty data than can be put into tables.
Bugfixes for XML issues reported in forum, and new methods as requested.
Overhaul of build process to better support multiple architectures.
Many fixes to stability and building.
Fixed lua_from_fluid, this is now a great way to generate UIs.
Sound integration, several fixes to proteaAudio and RtAudio.
LuaBitOp replaces bitlib due to portability and usability issues.
API upgrades (luaLzo, copas, sqLite, zlib, md5) ... FLTK to final 1.1.10
LuaFilesystem upgraded and patched for Solaris.
Encrypted database container support changed to more solid sqlcipher API.
(Which with the new sqLite version bloats things for the FULL build)
CodeBlocks project support and migration of code to GIT repository.
luaCom update for truly stable code for windows COM coding.
More stable continue behaviour, and more examples, demos and tests.
Incorprated LFann for AI code along with my stability fixes to it.
Template for developing apps that look good on the OpenMoko phone.

Core, Lite and Full - A reminder on the editions :

Core murgaLua includes the core murgaLua functionality for the console :

XML support through murgaLua bindings
Efficient search and manipulation of data with murgaLua APIs
Storage of data with support for encryption through snlcrypt
Interface with native system APIs (DLLs, SOs, etc), with Alien
Comprehensive networking support though luaSocket, enhanced through copas and coxpcall
Interface to the filesystem with LuaFileSystem
Compress data with LZO
Customized version of luaSys for system and date functions
Additional system, utility and debug functions in murgaLua
All versions support the compiler

(APIs : alien, luaLZO, iostring, slncrypt, luasys, luafilesystem, luaSocket, copas, coxpcall, MurgaLuaLib (system, c, lua, debug))

Lite murgaLua includes the above plus the FLTK api, and is in keeping with the sub 500k dream :

All fltk binding features
Additional murgaLua FLTK utilities

Full murgaLua is the recommended no-compromises release :

Encrypted database support (custom/standard sqlite3 databases)
Excellent integrated proAudioRt audio lib along with it's Ogg and WAV support
Advanced date handing functionality (date lib)
Advanced templating functionality (cosmo)
And other useful lua bindings (md5, lzlib, random, LuaBitOp, lpeg-0.9, LFann)

The new startup parameters :

These are specially useful if you are spawning or forking murgaLua processes (for CGI or whatever).

-M0 : Disable all murgaLua functionality
This runs as a pure lua interpreter, and gives you the fastest startup.

-M1 : Run in core murgaLua mode (only basic features enabled)
Equivalent to running a murgaLua-core executable with CLI features only.
This starts much faster than the other murgaLua modes.

-M2 : Run in lite murgaLua mode if available (murgaLuaFltk + core)

-M3 : DEFAULT - Run in FULL murgaLua mode (if available)

The System enabler functions :

These are useful if murgaLua has been started with one of new startup parameters, or if a new new murgaLua state has been created with the "Rings" API.

When creating a state with "Rings" it'll be the equivalent of "M0", with the following the murgaLua mode can be changed if/when needed :

These are for the murgaLua modes :

_enableMurgaLuaCore()
_enableMurgaLuaLite()
_enableMurgaLuaFull()

These for the "Stable" rings API :

_enableRingsStable()

Misc Notes :

New murgaLua APIs

Lua XML serialization is now safe (see tests)
murgaLua.dumpToXml
murgaLua.parseFromXml
murgaLua.escapeLuaString
murgaLua.getBuildProperties

New murgaLua.debug api :

murgaLua.printDebug no longer works
Replaced by : murgaLua.debug.printTable
murgaLua.showTable for FLTK builds
dumpTableAsLua for the debugger (more later)

FLTK event changes :

Fl.add_idle
Fl.has_idle
Fl.remove_idle
Fl.set_event_handler
Fl.start_event_handler
Fl.stop_event_handler

Fl_Tree changes

fltk.Fl_Node
fltk.Fl_ToggleNode
fltk.Fl_ToggleTree
fltk.FL_DAMAGE_TREE
fltk.FL_TOGGLE_CLOSED
fltk.FL_TOGGLE_HIT
fltk.FL_TOGGLE_NONE
fltk.FL_TOGGLE_OPENED
fltk.FL_TOGGLE_RESELECT
fltk.FL_TOGGLE_SELECT
fltk.FL_TOGGLE_SELECT_MASK

Other additional FLTK functions :

Fl_RGB_Image.saveAsPng
Fl_RGB_Image.getTiles(xSize, ySize)

New APIs :

alien
cosmo
coxpcall
date
inilazy
lfann
lpeg
LuaBitOp
lualogging
luasys
proteaAudio
remdebug
rings
slncrypto

murgaLua color/image

Wed, 09 Nov 2011 10:17:05 -0700

Hi,

I have had some trouble loading images into my app and getting colors to properly show.

What I had after converting the script to lua for colors is:

Code:
object:color((Fl_Color)179);

That way I can't run it because it will error at the "179" part.

So I changed it to:

Code:
object:color((Fl_Color),179);

And it would run, only show everything black.

About images. What I have after converting is:

Code:
object:image(image_intel2GenCorei5);

But running it again it won't show it.

Also I was wondering, the .cxx file contains an array of the entire image. How does it do it after converting, because that part is gone of course?
And if I compile it into an exe, do I have to provide the image with the compiled exe?
Or does it compile the image inside/with the exe?
How does it work? :)

Thanks.

idea not yet in progress - gifsicle gui

Mon, 26 Sep 2011 08:10:21 -0600

So it's been over a month without a new post here, so I thought I'd say hi.

I've been using Gimp and/or Blender to do most of my gif animation, with gifsicle to optimize, and it works alright mostly. But Gimp especially is very limited in its animation abilities, and I've been wanting to include gifsicle as a larger part of the process. Problem is that I don't like using commandline apps for graphics (other than for doing batch processing), so I started thinking about a gui frontend to gifsicle made with murgalua, especially considering there isn't really much available elsewhere. I've found only two gifsicle frontends, both of which are very old, and neither is available in Debian repo.

Anyway...that's all I had to say about it...haven't done any actual work on it, and it will probably be at least a few weeks before I do, but I felt a need to drop something new into the forum.

Response from Message Box

Thu, 28 Jul 2011 13:24:19 -0600

I have an app with a main window that I need to display a sort of Message Box to the user to confirm whether to continue with a particular operation. The Message Box is created in a function that is called, the function defines the window and its components, populates a text box from the contents of a function argument, and awaits the user to select one of two buttons..

At the end of the function a call to 'window:show()' is used to display the Message Box... but control returns to the calling code immediately. The Message Box window is defined as being modal, which helps to keep the user from clicking off it and trying to continue without responding... that's good, however, I am unable to return to the calling code which button the user chose.

Is there a recommended way to do this?

Thanks,

-CJ

screen corruption issue

Thu, 28 Jul 2011 11:12:56 -0600

i have the following test case which either illustrates a screen corruption issue, or i am doing something wrong:

testindex.lua to launch the script
testadmin.lua shows screen corruption when you click on one of the
entries in the (left) list box; -but- uncommenting the last two lines:-
--window:show()
--Fl:run()

then works fine!

here are the code snippets

any comments, or pointers to the problem would be appreciated

regards,
--roy dobbins

-- testindex.lua

local window = fltk:Fl_Double_Window(366, 500,"MurgaLua Test Manager")

local button=fltk:Fl_Button(50,27,24,24)
button:callback(function()
require "testadmin"
testadmin.window:show()
end)

window:show()
Fl:run()

-- testadmin.lua

module("testadmin", package.seeall)

local ww=400 --window width
local wh=350 --window height
local col=ww/4
local col2=ww-col -- column widths
local b
local br_two

function list_callback(w)
local colnames={'a','b','c','d','e','f'}
local colcount = # colnames
local colwidths = {}
for i=1,colcount do colwidths[i] = string.len(colnames[i]) * b:labelsize() end
table.insert(colwidths,0)

b:clear()
b:column_widths(colwidths)
b:column_char(string.byte('|'))

local header=""
for i=1,colcount do
if i> 1 then header=header.."|" end
header=header.."@B12@C7@b@."..colnames[i]
end
b:add(header)

for r=1,2500 do
local data=""
for i=1,colcount do
if i> 1 then data=data.."|" end
data=data..string.format("rc%d %d", r,i)
end
b:add(data)
end

window:redraw()
end

window = fltk:Fl_Double_Window(ww, wh, "test admin")

local nameedit = fltk:Fl_Input(200,0,100,25,'Name of this view...........:')
br_two=fltk:Fl_Hold_Browser(0,50,col,wh-75,"Fl_Hold_Browser")
br_two:add('1')
br_two:add('2')
br_two:add('3')
br_two:callback(list_callback)

b = fltk:Fl_Hold_Browser(col,50,col2,wh-75,"Table Browser")

fltk:Fl_End() -- end of window

--following two lines are significant to the problem!
--window:show()
--Fl:run()

-- if above two lines commented out, problem shows up
--otherwise works ok

The best LUA IDE I have tried

Thu, 28 Jul 2011 07:39:41 -0600

Hi,

It runs in IntelliJ IDEA, which is a bit fat.

But it's worth it :

https://bitbucket.org/sylvanaar2/lua-for-idea/wiki/Home

The two upcoming releases are configured to integrate this fully (including debugging support).

Cheers
John de Murga

Happy Birthday, John!

Fri, 24 Jun 2011 20:05:30 -0600

Happy 37th...hope it's been a good one.

Making scroll ignore pageup/pagedown/home/end?

Mon, 16 May 2011 07:35:29 -0600

I've been trying to work out a way to navigate Fl_Browser using keyboard only, and running into a problem with the scroll automatically grabbing certain keystrokes and ignoring actions specifically associated with those events. In Fl_Hold_Browser using Up and Down to move the section up and down one line at a time works as expected without modification. However, PageUp, PageDown, Home, and End will only move the scroll...the browser selection doesn't change, so you still have to click to select.

I tried setting up a global menu bar to detect these events, and specifically move the selection accordingly. It works only if the browser does not have focus. I thought a global menu was supposed to work no matter what widget has focus, but there seems to be some hard-coded events associated with some widgets.

Any ideas how to accomplish this, other than by using non-standard keys to do the navigation? It works fine if I use keys not generally associated with navigation, but PageUp/PageDown are so common it seems really weird to use anything else.

Code:
function nav_browser()
if Fl:event_key() == fltk.FL_Home then
    browser:value(1)
    browser:topline(1)
elseif Fl:event_key() == fltk.FL_End then
    browser:value(browser:size())
    browser:bottomline(browser:size())
elseif Fl:event_key() == fltk.FL_Page_Up then
    browser:bottomline(browser:value())
    Fl:check()
    browser:value(browser:topline())
elseif Fl:event_key() == fltk.FL_Page_Down then
-- can't figure this one yet
-- why can you use topline() without an argument, but not bottomline()?
end
end

win = fltk:Fl_Window(400,500,"browser nav test")
browser = fltk:Fl_Hold_Browser(0,0,400,500)
browser_ctrl = fltk:Fl_Menu_Bar(400,500,10,10)
browser_ctrl:add("home", fltk.FL_Home, nav_browser)
browser_ctrl:add("end", fltk.FL_End, nav_browser)
browser_ctrl:add("up", fltk.FL_Page_Up, nav_browser)
browser_ctrl:add("down", fltk.FL_Page_Down, nav_browser)
browser_ctrl:global()

for line = 1,100 do browser:add("Line "..line) end

win:show()
Fl:run()

test: emulating 3D rotation

Tue, 10 May 2011 19:10:08 -0600

This is a test of an idea that just popped into my head.
I sometimes make GIF animations of 3D models showing a 360-degree
rotation of the model. GIFs are limited, though, in that they can't be
paused or reversed. A video format could do this, but it's much easier
just to do it the way it would be controlled in a 3D app, by dragging.

With this project I'm attempting to emulate 3D rotation by using a series of
images, which are changed according to the location of the mouse while dragging.

The script reads a directory of images, which can be changed by dragging the
mouse back a forth. If your images are reversed (rotating right-to-left),
using the middle or right mouse button will change the images in reverse,
so it appears to drag the object in the proper direction.

One day I might try to take it a step further by rotating vertically,
but for now I'm okay with a simple turntable. I'm thinking it could
also be taken into other directions, such as making clickable hotspots
or something like that, but that's also just a passing thought.
[attachment=73]

Interactive Fish interpreter

Thu, 21 Apr 2011 03:09:04 -0600

I'm having trouble creating a text editor, for creating sort of an interactive editor/interpreter for the Fish language.

With Fluid, I've managed to generate the window etc, but in the textarea text can not be entered.

The code:

Code:
-- Declaration of global variables
make_window = make_window or nil
win = {}
function make_window()
  win.window = fltk:Fl_Double_Window(334, 210, 565, 355, "Fish interpreter")
  do
    win.edt_buffer = fltk:Fl_Text_Buffer()
    win.edt = fltk:Fl_Text_Editor(25, 25, 260, 280)
    win.edt:textfont(fltk.FL_SCREEN)
    win.edt:textsize(10) -- TODO un magic number
    win.edt:selection_color(fltk.FL_BLACK)

    local o = fltk:Fl_Text_Display(285, 25, 260, 280)
    local o = fltk:Fl_Roller(135, 320, 55, 25, "Delay")
    o:align(4)
    o:step(0)
    local o = fltk:Fl_Value_Output(190, 320, 25, 25)
    local o = fltk:Fl_Button(215, 320, 70, 25, "Back")
    local o = fltk:Fl_Button(285, 320, 70, 25, "Step")
    local o = fltk:Fl_Return_Button(355, 320, 70, 25, "Run")
  end
  win.window['endd'](win.window)
  return win.window
end

for _,i in ipairs {make_window()} do i:show() end
Fl:run()

Any ideas how to solve this?

Regards,

Jan-Pieter

Any thoughts on a MurgaLua facebook page?

Thu, 10 Feb 2011 08:28:09 -0700

See thread title...I guess that's all I had to say.

another tile game clone

Thu, 27 Jan 2011 09:41:14 -0700

This one is a clone of the concentration/memory game where you have an array of overturned cards and you flip two at a time trying to match the image on them. It was a whim, and I decided to see how quickly I could whip out a beta.

The script grabs the first 24 images from a given directory and sets each image to two randomly selected tiles. Click on two tiles, and if they match then the images stay visible and their buttons are disabled. If they don't match, they are hidden again after half a second.

The script is based around the use of 64px images, which on a Linux (and OS X?) system are easy to find in /usr/share/icons and /usr/share/pixmaps. No idea if Windows still uses just *.ico icons or if they've also begun to include other formats.

I want to include some default images in the future, but haven't bothered with that yet. Also haven't bothered to check what happens if there are fewer than 24 usable images in the directory.

Feel free to mess with this script if you want to make it better.

Code:
#!/usr/bin/env murgaLua
-- concentration
-- 2011 mikshaw

ts = 100 -- tile size
cols = 8 -- number of horizontal tiles
rows = 6 -- vertical tiles
img_dir = "/usr/share/icons/crystalsvg/64x64/apps/"

function tile_cb(self)
self:labeltype(fltk.FL_NORMAL_LABEL)
if not first_tile then first_tile = self
else
  moves = moves + 1
  if first_tile:tooltip() == self:tooltip() then
    first_tile:set_output()
    self:set_output()
    active = active - 2
    if active == 0 then fltk.fl_alert(moves.." moves") end
  else
    Fl:check()
    murgaLua.sleep(500)
    self:labeltype(fltk.FL_NO_LABEL)
    first_tile:labeltype(fltk.FL_NO_LABEL)
    win:redraw()
  end
first_tile = nil
end
end

used_numbers = "x"
function unique_random()
math.randomseed(os.time())
local rand = math.random(0, rows * cols - 1)
-- try again if number is already used
while string.find(used_numbers, "x"..rand.."x") do
rand = math.random(0, rows * cols - 1)
end
-- save used numbers in a string
used_numbers = used_numbers..rand.."x"
return rand
end

win = fltk:Fl_Double_Window(ts * cols , ts * rows, "Memory Game")

tile = {}
r, c = 0, 0 -- row and column positions
for i = 0, rows * cols - 1 do
  tile[i] = fltk:Fl_Button(c, r, ts, ts)
  tile[i]:align(80)
  tile[i]:callback(tile_cb)
  c = c + ts
  -- start the next row
  if c == win:w() then c = 0; r = r + ts end
end

fltk.fl_register_images()

-- apply images to random tiles
-- two copies of each image
count = 0
img = {}
for file in lfs.dir(img_dir) do
  if count < cols * rows / 2 then -- stop grabbing images after tiles are filled
    img_check = Fl_Shared_Image.get(img_dir..file)
    if img_check then
      img[count] = img_check
      local first = unique_random() -- first instance of the image
      tile[first]:image(img[count])
      tile[first]:tooltip(file)
      tile[first]:labeltype(fltk.FL_NO_LABEL)
      local second = unique_random() -- second instance
      tile[second]:image(img[count])
      tile[second]:tooltip(file)
      tile[second]:labeltype(fltk.FL_NO_LABEL)
      count = count + 1
    end
  else break
  end
end

moves = 0
active = rows * cols
Fl_Tooltip:disable() -- tooltip values are used only to compare tiles
win:show()
Fl:run()

cross compileMurgaLua?

Tue, 18 Jan 2011 18:40:32 -0700

Is compileMurgaLua intended to work regardless of your platform? I tried a test of compiling a Windows file on Linux, and it seems it doesn't work.

Code:
lua> murgaLua.compileMurgaLua("/home/deb/bin/puzzle.lua","bin/Windows/core-lite/murgaLua_lite.exe","puzzle.exe")
MurgaLua compiler 1.0
=====================
Loading core murgaLua executable ...
Binding compressed code ...
Writing executable stub info ...
Done !!
lua>

bash$ file puzzle.exe
puzzle.exe: PE32 executable for MS Windows (console) Intel 80386 32-bit

That looks like it worked, but then I got this when running it with Wine:

Code:
bash$ wine puzzle.exe
err:menubuilder:WinMain unknown option -a
err:menubuilder:WinMain unknown option -r
puzzle.exe: ?:0: attempt to call global 'newFunc' (a nil value)
stack traceback:
        ?: in function 'decompileMurgaLua'
        [string ""]:1: in main chunk
        [C]: ?
MurgaLua Version 0.7.0 (http://www.murga-projects.com/murgaLua/)
MurgaLua & FLTK/XML bindings : Copyright 2006-9 John Murga, GPL license.
Contains lsqlite by T.Dionizio, LuaSocket by D.Nehab and other bindings.
Lua 5.1.4  Copyright (C) 1994-2008 Lua.org, PUC-Rio
lua> print(murgaLua.getHostOsName())
windows
lua>
err:ole:CoUninitialize Mismatched CoUninitialize

That last line was printed after exiting the Lua prompt

Granted I can see that there might be issues with Wine, but this was just a quick test. I was hoping I could find out whether or not I'm wasting my time when I should intead be testing it on a Windows machine with a Windows version of MurgaLua.

puzzle remix

Fri, 07 Jan 2011 10:17:14 -0700

Remixed the slide puzzle into something more closely resembling a jigsaw puzzle, giving a little different gameplay, and making the code a little lighter and less complex...scrambling is less restricted, there's no swapping of images, and images don't have to be scaled to preset dimensions.

It still needs work. Some images, particularly GIFs, don't tile properly, and I had to be cautious about how scaling is done so images with prime numbers as height or width don't create a billion tiles.

The scaling especially needs work. Ideally I'd like to not scale the image at all and just scale the tiles to fit the image, but there seems to be a problem with using floating point numbers in scaling and/or tiling. So for now it scales the image only enough to fit within a grid determined by the size of the tiles. It still results in some crunchy pixels.

I'd tried cropping the image instead of scaling, by using fl_read_image, but it seems I've completely forgotten how that works.

Code:
old stuff removed

new stuff...

Code:
#!/usr/bin/env murgaLua

-- jigsaw-like puzzle for MurgaLua 0.6.4+
-- 2011 mikshaw

ts = 64 --tile size

function err(e,r)
if fltk then fltk.fl_alert(e) else print(e) end
os.exit(r)
end

if not Fl_Image.getTiles then
err("This program requires murgaLua 0.6.4 or newer.\n\n"..
    "http://www.murga-projects.com/murgaLua/index.html", 1)
end

fileName = arg[1] -- if filename given as cmdline argument
-- browse for file
fltk.fl_register_images() -- do this early so chooser can show preview
if not fileName then
fileName = fltk.fl_file_chooser("Choose an RGB image", "Image Files (*.{jpg,png,bmp,xbm,xpm,gif})", nil, nil)
end
if not fileName then
err("Please supply an image filename.\nUse: "..
    fltk.fl_filename_name(arg[0]).." \"filename\"\n"..
    "or select an image with the file chooser." , 2)
end

-- check image
img = Fl_Shared_Image.get(fileName)
if not img then err("Could not open "..fileName, 3) end
iw = img:w(); ih = img:h()

-- try to find a balance between image size and tile size
if iw % ts == 0 and ih % ts == 0 then
  tw, th = ts, ts
  cols = iw / ts
  rows = ih / ts
else
  cols = math.floor(iw / ts)
  rows = math.floor(ih / ts)
  tw = math.floor(iw / cols)
  th = math.floor(ih / rows)
  iw = cols * tw
  ih = rows * th
end

function set_tile_images()
-- take a crop of the box image
win:make_current()
imageString = fltk.fl_read_image(0, 0, iw, ih, 0)
image = fltk:Fl_RGB_Image(imageString, iw, ih, 3)

-- tile it up
imgtiles = image:getTiles(tw,th)
for i,_ in pairs(tile) do
  tile[i]:image(imgtiles[i+1])
end
box:image(image)
box:hide()
end

function scramble()
math.randomseed(os.time())
for scram = 1, 10000 do
  local a = math.random(0, rows * cols - 1)
  tile_A_x = tile[a]:x(); tile_A_y = tile[a]:y()
  local b = math.random(0, rows * cols - 1)
  tile[a]:position(tile[b]:x(), tile[b]:y())
  tile[b]:position(tile_A_x, tile_A_y)
end
end

function secondsToClock(sSeconds)
-- TJ_Tigger from http://www.indigorose.com/forums/archive/index.php/t-14669.html
local nSeconds = tonumber(sSeconds)
if nSeconds == 0 then
return "00:00:00";
else
nHours = string.format("%02.f", math.floor(nSeconds/3600));
nMins = string.format("%02.f", math.floor(nSeconds/60 - (nHours*60)));
nSecs = string.format("%02.f", math.floor(nSeconds - nHours*3600 - nMins *60));
return nHours..":"..nMins..":"..nSecs
end
end

function drag_loop()
  if inplay == 1 then
    drag_box:position(Fl:event_x() - tw / 2, Fl:event_y() - th / 2)
    win:redraw()
  end
  drag_timer:doWait(.02)
end

function isitfinish()
for i = 0, rows * cols - 1 do
  if tile[i]:x() ~= pos[i].col or tile[i]:y() ~= pos[i].row then
  return end
end
for i,_ in pairs(tile) do
  tile[i]:hide()
end
preview:hide()
box:show()
if not seconds then
  seconds = os.time() - starttime
  fltk.fl_message("time: "..secondsToClock(seconds).."\n"..moves.." moves")
end
end

function move_tile(t)
if inplay == 0 then
  if not starttime then starttime = os.time()  end
  inplay = 1
  drag_box:show()
  from_t, from_x, from_y = t, t:x(), t:y()
  drag_box:image(t:image())
  t:labeltype(fltk.FL_NO_LABEL)
  t:box(fltk.FL_DOWN_BOX)
else
  inplay = 0
  from_t:labeltype(fltk.FL_NORMAL_LABEL)
  from_t:box(fltk.FL_NO_BOX)
  if from_t:x() ~= t:x() or from_t:y() ~= t:y() then
    from_t:position(t:x(),t:y())
    t:position(from_x, from_y)
    moves = moves + 1
  end
  drag_box:hide()
  win:redraw()
  isitfinish()
end
end

fs, moves, starttime, seconds = 0, 0, nil, nil
Fl:visible_focus(0)
timer = murgaLua.createFltkTimer()
timer:callback(set_tile_images)

win = fltk:Fl_Double_Window(iw,ih, fltk.fl_filename_name(fileName))

tile = {}; pos = {}
row = 0; col = 0
-- -1 is used because the number of tiles starts at 1
-- but table starts at 0 (easier to position them from zero)
for i = 0, rows * cols - 1 do
  tile[i] = fltk:Fl_Button(col,row,tw,th)
  tile[i]:box(fltk.FL_NO_BOX)
  tile[i]:align(80)
  tile[i]:callback(move_tile)
  pos[i]={col=col, row=row}
  col = col + tw
  -- start the next row
  if col == iw then col = 0; row = row + th end
end

drag_box = fltk:Fl_Box(0,0,tw,th)
drag_box:hide()
drag_timer = murgaLua.createFltkTimer()
drag_timer:callback(drag_loop)
drag_timer:do_callback()
inplay = 0

preview = fltk:Fl_Button(-10,-10,1,1)
preview:shortcut("p")
preview:callback(
function()
if box:visible() == 1 then box:hide() else box:show() end
end
)

if iw <= Fl:w() and ih <= Fl:h() then
fullscr = fltk:Fl_Button(-10,-10,1,1)
fullscr:shortcut("f")
fullscr:callback(
function()
if fs == 0 then
  fs = 1
  wx, wy = win:x(), win:y()
  win:fullscreen()
else
  fs = 0
  win:resize(wx,wy,iw,ih)
end
end
)
end

box = fltk:Fl_Box(0,0,iw,ih)
box:image(img)
win:show()
timer:doWait(1)
scramble()
Fl:run()

converting seconds to %H:%M:%S

Fri, 07 Jan 2011 08:55:47 -0700

Maybe this has already been asked? I don't recall.
It seems like there's something wrong here...when I attempt to use os.date() to convert seconds into hours:minutes:seconds, the minutes and seconds work, but hours always displays 19 instead of 00.

The first button gets the current Posix time string.
The second button gets a new time string (assuming you paused after clicking the first button), subtracts the first time string from that, and then is supposed to convert the difference into %T format (a.k.a. %H:%M:%S). That conversion is where my problem lies...it looks like this should have been easy.

Code:
#!/usr/bin/env murgaLua

win = fltk:Fl_Window(400, 300, "os.date(), os.time()")

start_button = fltk:Fl_Button(10, 10, 200, 25, "start")
starttime_display = fltk:Fl_Box(220, 10, 200, 25, "start time")
start_button:callback(
  function()
    starttime = os.time()
    starttime_display:label(starttime)
    endtime_display:label("end time")
  end
)

end_button = fltk:Fl_Button(10, 40, 200, 25, "stop")
endtime_display = fltk:Fl_Box(220, 40, 200, 25, "end time")
end_button:callback(
  function()
    endtime = os.time()
    elapsed = endtime - starttime
    endtime_display:label(endtime)
    elapsed_display:label(os.date("%T", elapsed))
--    elapsed_display:label(os.date("%H:%M:%S", elapsed))
  end
)

elapsed_display = fltk:Fl_Box(220, 80, 200, 200, "time elapsed")

win:show()
Fl:run()

Trying to be better at using whitespace...even though it adds a few bytes, it's easier to read =o)

slide puzzle

Tue, 04 Jan 2011 19:53:02 -0700

Dug out the slide puzzle I was working on a couple of years ago, and made a couple of changes. It will now accept commandline options to set the image width (-iw ) and tile count (-tc ). Tile count is the number of tiles along one edge, so it's image width divided by tile count equals tile width. If the tile count can't be divided evenly into the image width, something was messing up, so rather than try to figure out what was happening I made it so it will just shrink the image width to make it even.

You can also set keys to control tile movement. If they're not set they will default to arrows.

I don't know what else might be different from the last time i posted it...it's been a while. One thing I did forget is that I wanted to make an option to disable setting the hotkeys if you only use the mouse, since it has to reset the hot buttons every time you move a tile.

EDIT 2011-01-09: replaced Fl_Image:getTiles() with a fl_read_image() loop

Code:
#!/usr/bin/env murgaLua

-- slide puzzle for MurgaLua 0.6.4+
-- 2008-2011 mikshaw

-- window and tile size are determined by these variables
-- tile size = iw/tc (image size will be adjusted if it doesn't divide evenly)
iw=600  -- image width
tc=5  -- number of tiles in one line
fr=5 -- frame size
-- Tile movement keys default to arrows, but can be changed here
-- Note: "l" and "p" are reserved (load and preview)
--[[
up="w"
down="s"
left="a"
right="d"
--]]

-- default directory to start in. Change to nil to start in current dir
--img_dir="/home/shared/image/slide_puzzle"

if not Fl_Image.getTiles then
err="This program requires murgaLua 0.6.4 or newer.\n\n"..
"http://www.murga-projects.com/murgaLua/index.html"
if fltk then fltk.fl_alert(err) else print(err) end
os.exit(1)
end

-- check commandline options
for i,v in pairs(arg) do
if v=="-w" and type(tonumber(arg[i+1]))=="number" then iw=arg[i+1]
elseif string.find(v,"^%-w%d+$") then iw=string.gsub(v,"-w","")
elseif v=="-tc" and type(tonumber(arg[i+1]))=="number" then tc=arg[i+1]
elseif string.find(v,"^%-tc%d+$") then tc=string.gsub(v,"-tc","")
end
end

if iw/tc < 50 then
err="image size should be at least 50x the tile count"
if fltk then fltk.fl_alert(err) else print(err) end
os.exit()
end

-- fix to make iw evenly divisible by tc
if iw % tc ~= 0 then iw=tc*math.floor(iw/tc) end

function set_shortcuts()
-- set arrow key shortcuts to the tiles surrounding the hidden tile
-- If you have no use for keyboard control, this function can be safely removed as long
-- as you also remove the two lines that call it (in the functions move_tile & scramble)
  for i=0,tc*tc-1 do
    tile[i]:shortcut(nil)
      if (tile[i]:x()==tile[hidden]:x() and math.abs(tile[i]:y()-tile[hidden]:y()) == ts) then
        if tile[i]:y() < tile[hidden]:y() then tile[i]:shortcut(mv_Down) else tile[i]:shortcut(mv_Up) end
      elseif (tile[i]:y()==tile[hidden]:y() and math.abs(tile[i]:x()-tile[hidden]:x()) == ts) then
        if tile[i]:x() < tile[hidden]:x() then tile[i]:shortcut(mv_Right) else tile[i]:shortcut(mv_Left) end
      end
  end
end

function load_callback(object)
-- a stew of pieces from John Murga's functions
fileName = fltk.fl_file_chooser("Choose an RGB image", "Image Files (*.{jpg,png,bmp,xbm,xpm,gif})", img_dir, nil)
if fileName then
  w:make_current()
  img_dir=nil -- use previously selected dir from now on
  if image1 then image1:uncache() end -- don't know if this is needed
  image1 = Fl_Shared_Image.get(fileName,iw,iw)
  start=1 -- prevents gameplay checks during scramble
  w:label(fltk.fl_filename_name(fileName))
  preview:image(image1); preview:redraw(); preview:show() -- load the preview
  Fl:check() -- seems to keep fl_read_image from grabbing the file chooser
  imageString=fltk.fl_read_image(fr,fr,iw,iw) -- grab the preview image
  image2 = fltk:Fl_RGB_Image(imageString,iw,iw,3) -- create RGB image for tiling
  for i,_ in pairs(tile) do -- create an image for each tile
    tileString = fltk.fl_read_image(pos[i].col, pos[i].row, ts, ts)
    tile[i]:image(fltk:Fl_RGB_Image(tileString, ts, ts, 3))
    -- make sure all tile locations are reset correctly
    -- fixes a bug if image is changed while tiles are scrambled
    tile[i]:position(pos[i].col,pos[i].row)
  end
  scramble()
  scrambutt:label("&load an image")
end
end

function move_tile(t)
if image2 then
  local my_x,my_y,movex,movey=t:x(),t:y()
  -- tile must be adjacent to the missing piece
  if (my_x == tile[hidden]:x() and math.abs(my_y-tile[hidden]:y()) == ts)
  or (my_y == tile[hidden]:y() and math.abs(my_x-tile[hidden]:x()) == ts)
  then
    -- swap selected tile with the hidden one
    if start==0 then num_moves=num_moves+1 end
    movex=tile[hidden]:x()
    movey=tile[hidden]:y()
    tile[hidden]:position(my_x,my_y)
    t:position(movex,movey)
    w:redraw()
  end
  -- check to see if puzzle is solved
  -- "ok" is incremented each time a tile is found in its proper place
  if start==0 then -- don't check puzzle during scramble
  set_shortcuts() -- you can remove this if you use mouse only
  local ok=0
  for i=0,tc^2-1 do
    if tile[i]:x()==pos[i].col and tile[i]:y()==pos[i].row then
      ok=ok+1
    if ok==tc^2 then -- if ok == total number of tiles
      fltk.fl_beep()
      if num_moves       elseif num_moves       elseif num_moves       elseif num_moves       else plize=insult end
      scrambutt:label(plize[math.random(1,table.getn(plize))].."\n"..num_moves.." moves")
      preview:show()
      start=1
      break
    end
    end
  end
  end
end
end

function scramble()
-- this picks a random tile to attempt to move and
-- repeats the process many times. Simply placing
-- tiles in random locations could potentially make
-- the puzzle impossible to solve
preview:hide()
if hidden then -- reset hidden tile
  tile[hidden]:box(fltk.FL_UP_BOX)
  tile[hidden]:labeltype(fltk.FL_NORMAL_LABEL)
end
-- turn a random tile into the missing piece
hidden=math.random(0,tc^2-1)
tile[hidden]:labeltype(fltk.FL_NO_LABEL)
tile[hidden]:box(fltk.FL_DOWN_BOX)
local scram=0
while scram < 10000*tc do
  move_tile(tile[math.random(0,tc^2-1)])
  scram=scram+1
end
start=0
set_shortcuts() -- you can remove this if you use mouse only
num_moves=0
w:redraw()
end

firstplize={"GODLIKE!", "OWNAGE!", "TEH WINRAR!"}
secondplize={"Great Job!","Hooray for You!","WIN!",
       "CONGRATULATE YOU!","Super!","Flawless Victory!",
       "You rock!","Crazygonuts!"}
thirdplize={"Not bad at all!","Yay!"}
fourthplize={"You're not terrible!","Petty good."}
insult={"You're kinda bad at this.","Is that your best?","Ho-hum.","a mediocre performance."}

Fl:get_system_colors()
fltk.fl_register_images()
math.randomseed(os.time())
Fl:visible_focus(0) -- get rid of the ants
Fl:set_boxtype(fltk.FL_UP_BOX,fltk.FL_THIN_UP_BOX) -- looks a little more like tiles
Fl:set_boxtype(fltk.FL_DOWN_BOX,fltk.FL_THIN_DOWN_BOX)
mv_Up=up or fltk.FL_Up
mv_Down=down or fltk.FL_Down
mv_Left=left or fltk.FL_Left
mv_Right=right or fltk.FL_Right
ts=iw/tc -- set tile size
--w=fltk:Fl_Double_Window(iw+fr*2,ts*(tc+0.5)+fr*3,"slide puzzle")
w=fltk:Fl_Double_Window(iw+fr*2,iw+ts/2+fr*3,"slide puzzle")

scrambutt=fltk:Fl_Button(fr,iw+fr*2,iw,ts/2,"&load an image")
scrambutt:callback(load_callback)
scrambutt:shortcut("l")

-- array of tiles, top left to right, then move down
tile={}; pos={}
-- allow space for the frame
row=fr; col=fr
-- subtract one is used because the number of tiles starts at one
-- but the table starts at zero (easier to position them from zero)
for i=0,tc^2-1 do
  tile[i]=fltk:Fl_Button(col,row,ts,ts)
  tile[i]:align(80)
  tile[i]:callback(move_tile)
  pos[i]={col=col,row=row}
  -- next piece is ts pixels to the right
  col=col+ts
  -- start the next row
  if col == iw+fr then col=fr;row=row+ts end
end

-- image preview (cheat)
preview=fltk:Fl_Button(fr,fr,iw,iw)
preview:callback(function()
if start==1 then load_callback()
else preview:hide() end
end)
tog_prev=fltk:Fl_Button(-10,-10,0,0)
tog_prev:shortcut("p")
tog_prev:callback(function()
if preview:visible()==1 then preview:hide() else preview:show() end
end)

w:callback(function()
  -- Esc/close hides the preview if it's visible
  if preview:visible()==1 and start==0 then preview:hide()
  else os.exit() end -- otherwise exit as normal
end)

start=1
w:show()
Fl:run()

socket.http bug or aminotdoinitrite?

Mon, 27 Dec 2010 19:14:52 -0700

In the LuaSocket docs:

Code:
-- tries to connect to server "wrong.host" to retrieve "/"
-- and fails because the host does not exist.
r, e = http.request("http://wrong.host/")
-- r is nil, and e returns with value "host not found"

When I try this it does more than fail...it takes murgaLua down with it. Wondering if this is expected behaviour, because it seems like this is a pretty harsh way to handle it.

Code:
/home/deb/bin/murgaLua: No route to host
stack traceback:
        [C]: in function 'request'
        /home/deb/bin/media.lua:28: in main chunk
        [C]: ?

Transcribe.lua

Mon, 27 Dec 2010 17:55:25 -0700

Well, another thing I'm working on: a transcription application for murgaLua.

Recently I've had the task to transcribe interviews (on audio file) to text, and I took it as an opportunity to toy around a little more with murgaLua.

While I initially tried to use the proteAudio library that comes with murgaLua, it couldn't cope with the requirements (pause, seek, slow audio, ...) so I interfaced my app to vlc via it's RC interface. In 2 ways even: via LuaSocket, and via io.popen and mkfifo (because it initially seemed that the socket solution was too slow). Any way, it's trivial to extend this to whatever audio application with whatever interface, as you'll see in the sources.

It's not yet finished, but it's usable.

Things on my wishlist for now:
some easy to switch highlighting for talkers, events, signs, pauses, ...
hotkeys for inserting timestamps, events, ...
Word autocompletion (like in Openoffice)
timestamps
exporting to html (to later import in openoffice)

Any comments, suggestions, critics, ... are welcome!

Greetings,

Jan-Pieter

PS: Given the complexity (and in lesser degree the differences with the C++ version) of the FLTK bindings, I think it would be good to have some sort of a "best practices" guide for programming an interface, also taking into account pollution of the global namespace, the neat tricks we can pull off using tables and metatables in Lua, ... Maybe we should make an attempt at this at the Wiki?

Edit:
Right I forgot about the keybindings (though they are easily extracted from the sources):

Ctrl-O open file
Ctrl-Shift-O open audio file
Ctrl-Space toggle audio pause
Ctlr-L 10 seconds back
Ctrl-M 10 seconds forward

Listing availiable storage devices

Sun, 26 Dec 2010 11:59:46 -0700

Hi all. It's been quite a while since I've been on here, but I'm back at it. I'm trying to build a list of all availiable internal and external drives that are mounted. It needs to work in Windows and Linux. In Windows it is kind of clumsy but I do have it working with this code.

Code:
--check for windows
CheckForWindows = "C:/"

windows = false

--Define the drive table.
drive = {}

if lfs.attributes (CheckForWindows) ~= nil then

       windows = true

       --Check for all the Windows drives.
       if lfs.attributes ("A:/") ~= nil then
                drive["a"] = "A:"
       end

   -- Use the above code to check for each drive letter from A to Z.

end

In linux, my first thought was to just check the /mnt directory. However I found that some types of Linux don't use this directory. For instance my computer running PCLinuxOS has all removable media listed in the "/Media" directory and the "/mnt" directory is empty. I can see this could end up being really messy. Is there an easier way to do this?

Thanks,
Dan