| Code Sample |
| #!/bin/murgaLua -- xjig.flua -- GUI frontend for xjig -- mikshaw 2006 -- IMPORTANT: This script needs the bash wrapper for some variables. -- It will still work, but only with gif images and only -- if xjig is in your $PATH -- -- Changelog, yyyy/mm/dd -- 2008/02/01: Code cleanup -- 2006/09/21: Port to MurgaLua -- 2006/03/29: Added a symlink check to the bash wrapper -- 2006/02/24: first release -- -- TODO: Incorporate bash wrapper commands into this script -- DEFAULTS convert=os.getenv("CONVERT") img_dir=os.getenv("IMG_DIR") xjig=os.getenv("XJIG") -- fallback in case the script is run without the wrapper if not convert then convert = "no" end if not img_dir then img_dir = os.getenv("HOME") end if not xjig then xjig = "xjig" end xjig_options = "" temp_img = "/tmp/xjig_image.gif" -- used for non-gif images if convert is found bh = 20 -- button height ww = 345 -- window width wh = bh*8 -- window height col2 = ww/2+2 fltk.fl_register_images() -- MAIN WINDOW w = fltk:Fl_Double_Window(ww,wh, "xjig"); -- initial list of image files files = fltk:Fl_Select_Browser(2,2,ww/2-4,wh-bh-4) function files_cb() if files:value() > 0 then filename = img_dir.."/"..files:text(files:value()) filename_display:value(files:text(files:value())) end end files:callback(files_cb); -- name of chosen image filename_display = fltk:Fl_Output(col2,wh-bh*2-4,ww/2-4,bh) -- look for other images b_browse = fltk:Fl_Button(2,wh-bh-2,ww/2-4,bh,"Browse...") function b_browse_cb() if filename then old_filename = filename end filename = fltk.fl_file_chooser("Open a File","*.gif",img_dir.."/") if not filename or filename == "" then -- fall back to original filename if chooser is cancelled filename = old_filename else filename_display:value(filename) end end b_browse:callback(b_browse_cb) b_start = fltk:Fl_Button(col2,wh-bh-2,ww/2-14,bh,"PLAY") function b_start_cb() if filename then -- check to see if we can convert other image types to gif if convert ~= "no" and not string.find(string.lower(filename),".gif",-4) then execute(convert.." "..filename.." "..temp_img) filename = temp_img end if filename and string.find(string.lower(filename),".gif",-4) then -- build the execute string and run it if nocrop:value() == 1 then xjig_options = "-no_crop " end if shapes:value() == 1 then xjig_options = xjig_options.."-shapes " end if noanim:value() == 1 then xjig_options = xjig_options.."-no_anim " end if noflip:value() == 1 then xjig_options = xjig_options.."-side 0 " end w:iconize() os.execute(xjig.." -ts "..ts:value().." "..xjig_options.." -file "..filename.." &>/dev/null") w:show() os.remove(temp_img) end end end b_start:callback(b_start_cb); controls_help = fltk:Fl_Button(ww-12,wh-bh-2,10,bh,"?") controls_help:callback(function() controls:show() end ) -- command options nocrop = fltk:Fl_Round_Button(col2,2,ww/2-4,bh,"don't crop") shapes = fltk:Fl_Round_Button(col2,bh+2,ww/2-4,bh,"no background") noanim = fltk:Fl_Round_Button(col2,bh*2+2,ww/2-4,bh,"no animation") noflip = fltk:Fl_Round_Button(col2,bh*3+2,ww/2-4,bh,"no flipped pieces") nocrop:tooltip("The image is usually automatically cropped, since many images are surrounded by frames or textual comments. If this is not desired you should disable this feature.") shapes:tooltip("If the SHAPE-extension is supported by your display, you can use this option to let each puzzle tile appear in its own shaped window. It may be very slow to pan and zoom.") noanim:tooltip("Turns off animation of rotation and flipping, in case the machine isn't fast enough to make it look nice.") noflip:tooltip("Normally puzzle pieces are initially displayed with a random side up, so you have to figure out whether each piece needs to be flipped.") ts = fltk:Fl_Value_Slider(col2,bh*4+4,ww/3-4,bh,"tile size")--; ts:value(32); ts:step(8); ts:minimum(16); ts:maximum(128); ts:type(fltk.FL_HORIZONTAL); ts:align(fltk.FL_ALIGN_RIGHT); fltk:Fl_End(); controls = fltk:Fl_Window(ww,wh*1.5,"xjig controls") con_text = fltk:Fl_Box(2,2,0,wh*1.5-4, "click left: rotate 90 degrees left\n".. "click right: rotate 90 degrees right\n".. "click middle: flip tile to backside\n".. "drag left: rotator drag\n".. " +middle: pause rotator drag for straight drag\n".. "drag middle: straight drag\n".. " +left: pause drag for a static rotation\n".. " +click left: rotate 90 degrees left during drag\n".. " +click right: rotate 90 degrees right during drag\n".. "drag right: same as drag middle\n".. "CTRL+click left: same as click middle\n\n".. "Cursor Keys: Pan View\n".. "Page-Up or Add: Zoom in\n".. "Page-Down or Sub: Zoom out\n".. "Home: Reset to original size\n".. "End: Set maximum zooming to view all tiles")--; con_text:align(fltk.FL_ALIGN_RIGHT) fltk:Fl_End(); tempfile = os.tmpname() if convert == "no" then b_browse:label("Browse (*.gif only)") b_browse:redraw() img_types = "*.{gif,GIF}" else -- these are some common image types...you can use the chooser to find others img_types = "*.{gif,GIF,jpg,JPG,jpeg,JPEG,png,PNG,bmp,BMP,pict,PICT,p?m,P?M,xwd,XWD}" end -- build the initial list of files os.execute("cd "..img_dir.." && ls "..img_types.." 2>/dev/null >"..tempfile) files:load(tempfile) if files:text(files.size) == "" then files:remove(files.size) end os.remove(tempfile) w:show() Fl:run(); |