static status initialiseText(TextObj t, CharArray string, Name format, FontObj font) { if ( isDefault(string) ) string = CtoCharArray(""); initialiseGraphical(t, ZERO, ZERO, ZERO, ZERO); if ( notDefault(format) ) assign(t, format, format); if ( notDefault(font) ) assign(t, font, font); assign(t, underline, OFF); assign(t, string, string); assign(t, margin, toInt(100)); assign(t, wrap, NAME_extend); assign(t, position, newObject(ClassPoint, EAV)); assign(t, caret, getSizeCharArray(string)); assign(t, show_caret, OFF); assign(t, background, NIL); assign(t, x_offset, ZERO); assign(t, x_caret, ZERO); assign(t, y_caret, ZERO); assign(t, selection, NIL); return recomputeText(t, NAME_position); }
static status initialiseCircle(Circle c, Int w) { initialiseGraphical(c, ZERO, ZERO, w, w); assign(c, fill_pattern, NIL); succeed; }
status initialiseJoint(Joint jt, Int x, Int y, Int w, Int h, Name arrows) { initialiseGraphical(jt, x, y, w, h); if ( notDefault(arrows) ) arrowsJoint(jt, arrows); succeed; }
static status initialiseTextMargin(TextMargin m, Editor e, Int w, Int h) { initialiseGraphical(m, ZERO, ZERO, w, h); assign(m, editor, e); assign(m, background, getClassVariableValueObject(m, NAME_background)); assign(m, gap, newObject(ClassSize, EAV)); copySize(m->gap, getClassVariableValueObject(m, NAME_gap)); succeed; }
static status initialiseBezier(Bezier b, Point start, Point end, Point c1, Point c2) { initialiseGraphical(b, ZERO, ZERO, ZERO, ZERO); if ( isDefault(c2) ) c2 = NIL; assign(b, start, start); assign(b, end, end); assign(b, control1, c1); assign(b, control2, c2); return requestComputeGraphical(b, DEFAULT); }