2016-07-27 04:01 AM
!Frame { textBlockXMin = frameMargin !Frame Dimensions { if frameIsTight then if mirrorText then xL = textBlockXMin - frameMargin xR = textBlockXMax + frameMargin else xL = textBlockXMin - frameMargin xR = textBlockXMax + frameMargin endif else xL = 0 xR = frameWidthReal*glob_scale endif yB = textBlockY - frameTopMargin yT = 0 !} Frame Dimensions if (yT - yB > 0.001) and (xR - xL > 0.001) then if textAlignment = 3 then add2 frameWidth - (xR - xL), 0 endif !Edges for the Frame Polygon { !Rectangle { if frameShape = 1 then put xL, yB, 1, xR, yB, 1, xR, yT, 1, xL, yT, 1 endif !} Rectangle !Rounded Corners { if frameShape = 2 then Ri = min((yT - yB)/2 - .001, (xR - xL)/2 - .001, frameMargin*sqr(2)) Ri = max(Ri, .00001) put (xL + xR)/2, yB, 1, xR - Ri, yB, 1, xR, yB + Ri, 1001, xR, yT - Ri, 1, xR - Ri, yT, 1001, xL + Ri, yT, 1, xL, yT - Ri, 1001, xL, yB + Ri, 1, xL + Ri, yB, 1001 endif !} Rounded Corners !Hexagon { if frameShape = 3 then Ri = min((yT - yB)/2, (xR - xL)/2, frameMargin) put xL + Ri, yB, 1, xR - Ri, yB, 1, xR, (yB + yT)/2, 1, xR - Ri, yT, 1, xL + Ri, yT, 1, xL, (yB + yT)/2, 1 endif !} Hexagon !Cut Corners { if frameShape = 4 then Ri = min((yT - yB)/2, (xR - xL)/2, frameMargin) put xL + Ri, yB, 1, xR - Ri, yB, 1, xR, yB + Ri, 1, xR, yT - Ri, 1, xR - Ri, yT, 1, xL + Ri, yT, 1, xL, yT - Ri, 1, xL, yB + Ri, 1 endif !} Cut Corners !Vertical Line on Arrow Side { if frameShape = 5 then if label_position[2][1] > 0 then put xL, yB, 0, xR, yB, 1, xR, yT, 0, xL, yT, 0 else put xL, yB, 0, xR, yB, 0, xR, yT, 0, xL, yT, 1 endif endif !} Vertical Line on Arrow Side !Vertical Lines { if frameShape = 6 then put xL, yB, 0, xR, yB, 1, xR, yT, 0, xL, yT, 1 endif !} Vertical Lines !No Border { if frameShape = 7 then put xL, yB, 0, xR, yB, 0, xR, yT, 0, xL, yT, 0 endif !} No Border !} Edges for the Frame Polygon !Draw the Frame Polygon { if nsp then mask = 6 if frameBorderPen > 0 then mask = mask + 1 pen frameBorderPen endif line_type frameLineType fill frameFillType poly2_b nsp/3, mask, frameFillPen, frameBkgdPen, get(nsp) endif !} Draw the Frame Polygon !Selectable Edge { hotline2 xL, yT, xR, yT hotline2 xL, yB, xR, yB hotline2 xL, yT, xL, yB hotline2 xR, yT, xR, yB !} Selectable Edge endif !} Frame end
2016-07-27 12:33 PM
2016-07-27 10:32 PM
2016-07-27 10:52 PM
PrendosJoe wrote:Sure. We can certainly work a solution for you.
Is this something that you may be able to help with?
2016-07-27 11:22 PM
2017-01-13 02:54 AM
2017-01-14 01:21 AM
PrendosJoe wrote:Glad I could help. You are welcome.
Apologies for the delay, but thank you for your help Anton!