X-Git-Url: https://i11git.iti.kit.edu/anon-gitweb/?p=Misc%2Fipe.git;a=blobdiff_plain;f=ipelets%2Fdecorator%2Fdecorator.lua;h=76a05fe7b69a565953998d47df7fd2f270656fc8;hp=cffa3b515ba464815844960b450c8a6aeef96bfc;hb=f431cad417b64dd02d7f4f9682fe66ff97599322;hpb=1cf3b8269c0fe8d0b8d700b3a79f4b65b0ff9685 diff --git a/ipelets/decorator/decorator.lua b/ipelets/decorator/decorator.lua index cffa3b5..76a05fe 100644 --- a/ipelets/decorator/decorator.lua +++ b/ipelets/decorator/decorator.lua @@ -1,15 +1,11 @@ --- return a table of names associated with decorator symbols -function decorator_names(model) - local sheets = model.doc:sheets() - local symbols = sheets:allNames("symbol") - local res = {} - for _, name in pairs(symbols) do - if name:find("deco/") == 1 then - res[#res + 1] = name - end +-- Helper for compatibility with different ipe-versions. +function mainWindow(model) + if model.ui.win == nil then + return model.ui + else + return model.ui:win() end - return res end -- Changes the transformation matrix of a path object to the identitiy @@ -78,6 +74,9 @@ function resize_shape(shape, center, bbox_source, bbox_target) transform_shape(shape, matrix_func) end +-- Bounding box of a given object that is not currently contained in +-- the page. If the object is already part of the page, simply use +-- p:bbox(obj). function bbox(obj, page) local objno = #page + 1 page:insert(objno, obj, nil, page:layers()[1]) @@ -86,16 +85,48 @@ function bbox(obj, page) return bbox end +-- The bounding box of all selected objects. +function bbox_of_selected_objects(page) + local bbox = page:bbox(page:primarySelection()) + for obj = 1, #page, 1 do + if page:select(obj) then + bbox:add(page:bbox(obj)) + end + end + return bbox +end + +-- Show a warning to the user. function report_problem(model, text) ipeui.messageBox(mainWindow(model), "warning", text, nil, nil) end -function run_fancy_decorator (model) +-- Return a table of names associated with decorator symbols. +function decorator_names(model) + local sheets = model.doc:sheets() + local symbols = sheets:allNames("symbol") + local res = {} + for _, name in pairs(symbols) do + if name:find("deco/") == 1 then + res[#res + 1] = name + end + end + return res +end + +-- Ask the user for a decorator and run the decoration. +function run_decorator (model) local p = model:page() local prim = p:primarySelection() - local bbox_target = p:bbox(prim) + if (not prim) then + report_problem(model, "You must select somethings.") + return + end + -- local bbox_target = p:bbox(prim) + local bbox_target = bbox_of_selected_objects(p) local deco_obj_group = ask_for_decorator(model) + if (not deco_obj_group) then return end if (deco_obj_group:type() ~= "group") then report_problem(model, "The decoration must be a group.") return @@ -106,7 +137,11 @@ function run_fancy_decorator (model) local bbox_source = bbox(last_obj, p) local center = ipe.Vector(bbox_source:left() + 0.5 * bbox_source:width(), bbox_source:bottom() + 0.5 * bbox_source:height()) - + + if (#objects == 0) then + report_problem(model, "The decoration must be a group of at least two elements.") + return + end for i,deco_obj in ipairs(objects) do if (deco_obj:type() ~= "path") then report_problem(model, "Each decoration object needs to be a path.") @@ -123,7 +158,7 @@ function run_fancy_decorator (model) local group = ipe.Group(objects) - model:creation("fancy decoration created", group) + model:creation("decoration created", group) end -- Asks the user for a decorator and returns the chosen decorator @@ -141,89 +176,7 @@ function ask_for_decorator(model) return symbol:clone() end --- Decorate something given by its bounding box with a given deco --- object, which needs to be a path. -function decorate(model, bbox, deco) - if (deco:type() ~= "path") then - report_problem(model, "The decoration needs to be a path.") - return - end - - local shape = deco:shape() - local m = deco:matrix() - for _,path in pairs(shape) do - for _,subpath in ipairs(path) do - -- move all points - for i,point in ipairs(subpath) do - subpath[i] = translation(bbox, m*point) * m*point - end - - -- for acs, the center must be translated separately - if (subpath["type"] == "arc") then - local arc = subpath["arc"] - local arc_pos = arc:matrix():translation() - subpath["arc"] = translation(bbox, m*arc_pos) * m * arc - end - end - end - -- update model - deco:setShape(shape) - deco:setMatrix(ipe.Matrix()) - model:creation("create", deco) -end - --- The translation matrix that should be applied to a given point when --- doing the decoration. -function translation(bbox, point) - local dx = 0 - local dy = 0 - if (point.x > 0) then - dx = dx + bbox:width() - end - if (point.y > 0) then - dy = dy + bbox:height() - end - dx = dx + bbox:left() - dy = dy + bbox:bottom() - return ipe.Translation(dx, dy) -end - -function mainWindow(model) - if model.ui.win == nil then - return model.ui - else - return model.ui:win() - end -end - -function run_decorator(model) - -- get bbox of primary selection - local p = model:page() - local prim = p:primarySelection() - if not prim then - model.ui:explain("An object must be selected.") - return - end - local bbox = p:bbox(prim) - - -- create decorator object - local dialog = ipeui.Dialog(mainWindow(model), "Select a decorator.") - local decorators = decorator_names(model) - dialog:add("deco", "combo", decorators, 1, 1, 1, 2) - dialog:add("ok", "button", { label="&Ok", action="accept" }, 2, 2) - dialog:add("cancel", "button", { label="&Cancel", action="reject" }, 2, 1) - local r = dialog:execute() - if not r then return end - local deco_name = decorators[dialog:get("deco")] - local symbol = model.doc:sheets():find("symbol", deco_name) - local deco = symbol:clone() - - -- run the decoration - decorate(model, bbox, deco) -end - label = "Decorator" methods = { - { label = "Decorate", run=run_decorator}, - { label = "Fancy decorator", run=run_fancy_decorator}, + { label = "decorate", run=run_decorator}, }