add binfolder path relative filters, fix gbrp color model, vwdw timebar tweaks, title...
[goodguy/history.git] / cinelerra-5.1 / plugins / titler / titler.C
index 9056bc19a9ec8fa333392729ba3f389d883b0ef2..5086fea00d029d6101dae87de2b60ae5229449ed 100644 (file)
@@ -51,7 +51,7 @@
 #include "titlerwindow.h"
 #include "transportque.h"
 #include "vrender.h"
-
+#include "workarounds.h"
 
 #include <errno.h>
 #include <stdint.h>
@@ -78,6 +78,10 @@ REGISTER_PLUGIN(TitleMain)
 #endif
 #define DEFAULT_TIMECODEFORMAT TIME_HMS
 
+static inline int kw_strcmp(const char *ap, const char *bp) {
+       return !strcmp(ap, bp) ? 0 : strcmp(ap,_(bp));
+}
+
 TitleConfig::TitleConfig()
 {
        strcpy(font, "fixed");
@@ -286,7 +290,7 @@ GlyphUnit::GlyphUnit(TitleMain *plugin, GlyphEngine *server)
 GlyphUnit::~GlyphUnit()
 {
        if( freetype_library )
-               FT_Done_FreeType(freetype_library);
+               ft_Done_FreeType(freetype_library);
 }
 
 static inline void to_mono(VFrame *data)
@@ -316,11 +320,11 @@ void GlyphUnit::process_package(LoadPackage *package)
                result = 1;
        }
        if( !result ) {
-               int gindex = FT_Get_Char_Index(freetype_face, glyph->char_code);
+               int gindex = ft_Get_Char_Index(freetype_face, glyph->char_code);
                if( !gindex && !freetype_face->charmap && // if no default charmap
                    freetype_face->charmaps && freetype_face->charmaps[0] &&
-                   !FT_Select_Charmap(freetype_face, freetype_face->charmaps[0]->encoding) ) {
-                       gindex = FT_Get_Char_Index(freetype_face, glyph->char_code);
+                   !ft_Select_Charmap(freetype_face, freetype_face->charmaps[0]->encoding) ) {
+                       gindex = ft_Get_Char_Index(freetype_face, glyph->char_code);
                }
                if( gindex == 0 ) {
 printf("GlyphUnit::process_package 1 glyph not found (%s) %04x, '%c'\n",
@@ -329,10 +333,10 @@ printf("GlyphUnit::process_package 1 glyph not found (%s) %04x, '%c'\n",
                        if( resources->find_font_by_char(glyph->char_code, new_path, freetype_face) ) {
                                plugin->load_freetype_face(freetype_library,
                                        freetype_face, new_path);
-                               gindex = FT_Get_Char_Index(freetype_face, glyph->char_code);
+                               gindex = ft_Get_Char_Index(freetype_face, glyph->char_code);
                        }
                }
-               FT_Set_Pixel_Sizes(freetype_face, glyph->size, 0);
+               ft_Set_Pixel_Sizes(freetype_face, glyph->size, 0);
 
                if( gindex == 0 ) {
 // carrige return
@@ -362,9 +366,9 @@ printf("GlyphUnit::process_package 1 glyph not found (%s) %04x, '%c'\n",
                        FT_Glyph glyph_image;
                        FT_BBox bbox;
                        FT_Bitmap bm;
-                       FT_Load_Glyph(freetype_face, gindex, FT_LOAD_DEFAULT);
-                       FT_Get_Glyph(freetype_face->glyph, &glyph_image);
-                       FT_Outline_Get_BBox(&((FT_OutlineGlyph) glyph_image)->outline, &bbox);
+                       ft_Load_Glyph(freetype_face, gindex, FT_LOAD_DEFAULT);
+                       ft_Get_Glyph(freetype_face->glyph, &glyph_image);
+                       ft_Outline_Get_BBox(&((FT_OutlineGlyph) glyph_image)->outline, &bbox);
 //                     printf("Stroke: Xmin: %ld, Xmax: %ld, Ymin: %ld, yMax: %ld\n",
 //                                     bbox.xMin,bbox.xMax, bbox.yMin, bbox.yMax);
 
@@ -385,12 +389,12 @@ printf("GlyphUnit::process_package 1 glyph not found (%s) %04x, '%c'\n",
                        glyph->data = new VFrame(glyph->width, glyph->height, BC_A8, glyph->pitch);
                        glyph->data->clear_frame();
                        bm.buffer = glyph->data->get_data();
-                       FT_Outline_Translate(&((FT_OutlineGlyph) glyph_image)->outline,
+                       ft_Outline_Translate(&((FT_OutlineGlyph) glyph_image)->outline,
                                - bbox.xMin, - bbox.yMin);
-                       FT_Outline_Get_Bitmap( freetype_library,
+                       ft_Outline_Get_Bitmap( freetype_library,
                                &((FT_OutlineGlyph) glyph_image)->outline,
                                &bm);
-                       FT_Done_Glyph(glyph_image);
+                       ft_Done_Glyph(glyph_image);
                }
                else {
 // Outline desired and glyph found
@@ -401,14 +405,14 @@ printf("GlyphUnit::process_package 1 glyph not found (%s) %04x, '%c'\n",
                        FT_BBox bbox;
                        FT_UInt npoints, ncontours;
 
-                       FT_Load_Glyph(freetype_face, gindex, FT_LOAD_DEFAULT);
-                       FT_Get_Glyph(freetype_face->glyph, &glyph_image);
+                       ft_Load_Glyph(freetype_face, gindex, FT_LOAD_DEFAULT);
+                       ft_Get_Glyph(freetype_face->glyph, &glyph_image);
 
 // check if the outline is ok (non-empty);
-                       FT_Outline_Get_BBox(&((FT_OutlineGlyph) glyph_image)->outline, &bbox);
+                       ft_Outline_Get_BBox(&((FT_OutlineGlyph) glyph_image)->outline, &bbox);
                        if( bbox.xMin == 0 && bbox.xMax == 0 &&
                            bbox.yMin == 0 && bbox.yMax == 0 ) {
-                               FT_Done_Glyph(glyph_image);
+                               ft_Done_Glyph(glyph_image);
                                glyph->width = 0;   glyph->height = 0;
                                glyph->left = 0;    glyph->top = 0;
                                glyph->right = 0;   glyph->bottom = 0;
@@ -422,18 +426,18 @@ printf("GlyphUnit::process_package 1 glyph not found (%s) %04x, '%c'\n",
                                return;
                        }
 #if FREETYPE_MAJOR > 2 || (FREETYPE_MAJOR == 2 && FREETYPE_MINOR >= 2)
-                       FT_Stroker_New(freetype_library, &stroker);
+                       ft_Stroker_New(freetype_library, &stroker);
 #else
-                       FT_Stroker_New(((FT_LibraryRec *)freetype_library)->memory, &stroker);
+                       ft_Stroker_New(((FT_LibraryRec *)freetype_library)->memory, &stroker);
 #endif
-                       FT_Stroker_Set(stroker, (int)(plugin->config.stroke_width * 64),
+                       ft_Stroker_Set(stroker, (int)(plugin->config.stroke_width * 64),
                                FT_STROKER_LINECAP_ROUND, FT_STROKER_LINEJOIN_ROUND, 0);
-                       FT_Stroker_ParseOutline(stroker, &((FT_OutlineGlyph) glyph_image)->outline,1);
-                       FT_Stroker_GetCounts(stroker,&npoints, &ncontours);
+                       ft_Stroker_ParseOutline(stroker, &((FT_OutlineGlyph) glyph_image)->outline,1);
+                       ft_Stroker_GetCounts(stroker,&npoints, &ncontours);
                        if( npoints == 0 && ncontours == 0 ) {
 // this never happens, but FreeType has a bug regarding Linotype's Palatino font
-                               FT_Stroker_Done(stroker);
-                               FT_Done_Glyph(glyph_image);
+                               ft_Stroker_Done(stroker);
+                               ft_Done_Glyph(glyph_image);
                                glyph->width = 0;   glyph->height = 0;
                                glyph->left = 0;    glyph->top = 0;
                                glyph->right = 0;   glyph->bottom = 0;
@@ -447,13 +451,13 @@ printf("GlyphUnit::process_package 1 glyph not found (%s) %04x, '%c'\n",
                                return;
                        };
 
-                       FT_Outline_New(freetype_library, npoints, ncontours, &outline);
+                       ft_Outline_New(freetype_library, npoints, ncontours, &outline);
                        outline.n_points=0;
                        outline.n_contours=0;
-                       FT_Stroker_Export (stroker, &outline);
-                       FT_Outline_Get_BBox(&outline, &bbox);
-                       FT_Outline_Translate(&outline, - bbox.xMin, - bbox.yMin);
-                       FT_Outline_Translate(&((FT_OutlineGlyph) glyph_image)->outline,
+                       ft_Stroker_Export(stroker, &outline);
+                       ft_Outline_Get_BBox(&outline, &bbox);
+                       ft_Outline_Translate(&outline, - bbox.xMin, - bbox.yMin);
+                       ft_Outline_Translate(&((FT_OutlineGlyph) glyph_image)->outline,
                                        - bbox.xMin,
                                        - bbox.yMin + (int)(plugin->config.stroke_width*32));
 //                     printf("Stroke: Xmin: %ld, Xmax: %ld, Ymin: %ld, yMax: %ld\n"
@@ -489,16 +493,16 @@ printf("GlyphUnit::process_package 1 glyph not found (%s) %04x, '%c'\n",
                        glyph->data_stroke->clear_frame();
 // for debugging       memset( glyph->data_stroke->get_data(), 60, glyph->pitch * glyph->height);
                        bm.buffer=glyph->data->get_data();
-                       FT_Outline_Get_Bitmap( freetype_library,
+                       ft_Outline_Get_Bitmap( freetype_library,
                                &((FT_OutlineGlyph) glyph_image)->outline,
                                &bm);
                        bm.buffer=glyph->data_stroke->get_data();
-                       FT_Outline_Get_Bitmap( freetype_library,
+                       ft_Outline_Get_Bitmap( freetype_library,
                        &outline,
                                &bm);
-                       FT_Outline_Done(freetype_library,&outline);
-                       FT_Stroker_Done(stroker);
-                       FT_Done_Glyph(glyph_image);
+                       ft_Outline_Done(freetype_library,&outline);
+                       ft_Stroker_Done(stroker);
+                       ft_Done_Glyph(glyph_image);
 
 //printf("GlyphUnit::process_package 2\n");
                }
@@ -938,9 +942,9 @@ TitleMain::~TitleMain()
        delete glyph_engine;
        delete title_engine;
        if( freetype_face )
-               FT_Done_Face(freetype_face);
+               ft_Done_Face(freetype_face);
        if( freetype_library )
-               FT_Done_FreeType(freetype_library);
+               ft_Done_FreeType(freetype_library);
        delete translate;
        delete outline_engine;
 }
@@ -1025,8 +1029,8 @@ void TitleMain::build_previews(TitleWindow *gui)
 //                                     (char *)new_path);
                                strcpy(new_path, font->path);
                                if( load_freetype_face(freetype_library, freetype_face, new_path)) continue;
-                               FT_Set_Pixel_Sizes(freetype_face, text_height, 0);
-                               if( FT_Load_Char(freetype_face, c, FT_LOAD_RENDER) ) continue;
+                               ft_Set_Pixel_Sizes(freetype_face, text_height, 0);
+                               if( ft_Load_Char(freetype_face, c, FT_LOAD_RENDER) ) continue;
                                int glyph_w = freetype_face->glyph->bitmap.width;
                                int glyph_h = freetype_face->glyph->bitmap.rows;
                                if( glyph_h > max_height ) glyph_h = max_height;
@@ -1070,7 +1074,7 @@ void TitleMain::build_previews(TitleWindow *gui)
                }
        }
 
-       if( freetype_library ) FT_Done_FreeType(freetype_library);
+       if( freetype_library ) ft_Done_FreeType(freetype_library);
 }
 
 
@@ -1086,20 +1090,20 @@ int TitleMain::check_char_code_path(FT_Library &freetype_library,
        FcConfig *config;
        FcPattern *font;
 
-       FcInit();
-       config = FcConfigGetCurrent();
-       FcConfigSetRescanInterval(config, 0);
+       fcInit();
+       config = fcConfigGetCurrent();
+       fcConfigSetRescanInterval(config, 0);
 
-       pat = FcPatternCreate();
-       os = FcObjectSetBuild ( FC_FILE, FC_FONTFORMAT, (char *) 0);
-       fs = FcFontList(config, pat, os);
+       pat = fcPatternCreate();
+       os = fcObjectSetBuild( FC_FILE, FC_FONTFORMAT, (char *) 0);
+       fs = fcFontList(config, pat, os);
        int found = 0;
        char tmpstring[BCTEXTLEN];
        int limit_to_truetype = 0; //if you want to limit search to truetype put 1
-       if( !freetype_library ) FT_Init_FreeType(&freetype_library);
-       if( !FT_New_Face(freetype_library, path_old, 0, &temp_freetype_face) ) {
-               FT_Set_Pixel_Sizes(temp_freetype_face, 128, 0);
-               int gindex = FT_Get_Char_Index(temp_freetype_face, char_code);
+       if( !freetype_library ) ft_Init_FreeType(&freetype_library);
+       if( !ft_New_Face(freetype_library, path_old, 0, &temp_freetype_face) ) {
+               ft_Set_Pixel_Sizes(temp_freetype_face, 128, 0);
+               int gindex = ft_Get_Char_Index(temp_freetype_face, char_code);
                if( gindex != 0 && char_code == 10 ) {
                        strcpy(path_new, path_old);
                        found = 1;
@@ -1109,13 +1113,13 @@ int TitleMain::check_char_code_path(FT_Library &freetype_library,
        if( !found ) {
                for( int i=0; fs && i<fs->nfont; ++i ) {
                        font = fs->fonts[i];
-                       FcPatternGetString(font, FC_FONTFORMAT, 0, &format);
+                       fcPatternGetString(font, FC_FONTFORMAT, 0, &format);
                        if( strcmp((char *)format, "TrueType") && !limit_to_truetype ) continue;
-                       if( FcPatternGetString(font, FC_FILE, 0, &file) != FcResultMatch ) continue;
+                       if( fcPatternGetString(font, FC_FILE, 0, &file) != FcResultMatch ) continue;
                        sprintf(tmpstring, "%s", file);
-                       if( !FT_New_Face(freetype_library, tmpstring, 0, &temp_freetype_face) ) continue;
-                       FT_Set_Pixel_Sizes(temp_freetype_face, 128, 0);
-                       int gindex = FT_Get_Char_Index(temp_freetype_face, char_code);
+                       if( !ft_New_Face(freetype_library, tmpstring, 0, &temp_freetype_face) ) continue;
+                       ft_Set_Pixel_Sizes(temp_freetype_face, 128, 0);
+                       int gindex = ft_Get_Char_Index(temp_freetype_face, char_code);
                        if( gindex != 0 && char_code == 10 ) {
                                sprintf(path_new, "%s", tmpstring);
                                found = 1;
@@ -1125,8 +1129,8 @@ int TitleMain::check_char_code_path(FT_Library &freetype_library,
        }
 
 done:
-       if( fs ) FcFontSetDestroy(fs);
-       if( temp_freetype_face ) FT_Done_Face(temp_freetype_face);
+       if( fs ) fcFontSetDestroy(fs);
+       if( temp_freetype_face ) ft_Done_Face(temp_freetype_face);
        temp_freetype_face = 0;
 
        if( !found ) {
@@ -1143,14 +1147,14 @@ int TitleMain::load_freetype_face(FT_Library &freetype_library,
 {
 //printf("TitleMain::load_freetype_face 1\n");
        if( !freetype_library )
-               FT_Init_FreeType(&freetype_library);
+               ft_Init_FreeType(&freetype_library);
        if( freetype_face )
-               FT_Done_Face(freetype_face);
+               ft_Done_Face(freetype_face);
        freetype_face = 0;
 //printf("TitleMain::load_freetype_face 2\n");
 
 // Use freetype's internal function for loading font
-       if( FT_New_Face(freetype_library, path, 0, &freetype_face) ) {
+       if( ft_New_Face(freetype_library, path, 0, &freetype_face) ) {
                fprintf(stderr, _("TitleMain::load_freetype_face %s failed.\n"), path);
                freetype_face = 0;
                freetype_library = 0;
@@ -1386,7 +1390,7 @@ int TitleMain::get_width(TitleGlyph *cur, TitleGlyph *nxt)
        int result = cur->advance_x;
        if( !nxt ) return result;
        FT_Vector kerning;
-       if( !FT_Get_Kerning(freetype_face,
+       if( !ft_Get_Kerning(freetype_face,
            cur->freetype_index, nxt->freetype_index,
            ft_kerning_default, &kerning) )
                result += (kerning.x >> 6);
@@ -1629,19 +1633,19 @@ int TitleCurNudge::set(const char *txt)
 
 int TitleParser::set_attributes(int ret)
 {
-        if( !strcmp(id,KW_NUDGE) )  return ret>1 ? cur_nudge.unset(text)  : cur_nudge.set(text);
-        if( !strcmp(id,KW_COLOR) )  return ret>1 ? cur_color.unset(text)  : cur_color.set(text);
-        if( !strcmp(id,KW_ALPHA) )  return ret>1 ? cur_alpha.unset(text)  : cur_alpha.set(text);
-        if( !strcmp(id,KW_FONT) )   return ret>1 ? cur_font.unset(text)   : cur_font.set(text);
-        if( !strcmp(id,KW_SIZE) )   return ret>1 ? cur_size.unset(text)   : cur_size.set(text);
-        if( !strcmp(id,KW_BOLD) )   return ret>1 ? cur_bold.unset(text)   : cur_bold.set(text);
-        if( !strcmp(id,KW_ITALIC) ) return ret>1 ? cur_italic.unset(text) : cur_italic.set(text);
-        if( !strcmp(id,KW_CAPS) )   return ret>1 ? cur_caps.unset(text)   : cur_caps.set(text);
-        if( !strcmp(id,KW_UL) )     return ret>1 ? cur_under.unset(text)  : cur_under.set(text);
-        if( !strcmp(id,KW_BLINK) )  return ret>1 ? cur_blink.unset(text)  : cur_blink.set(text);
-        if( !strcmp(id,KW_FIXED) )  return ret>1 ? cur_fixed.unset(text)  : cur_fixed.set(text);
-        if( !strcmp(id,KW_ALIAS) )  return ret>1 ? cur_alias.unset(text)  : cur_alias.set(text);
-        if( !strcmp(id,KW_SUP) )    return ret>1 ? cur_super.unset(text)  : cur_super.set(text);
+        if( !kw_strcmp(id,KW_NUDGE) )  return ret>1 ? cur_nudge.unset(text)  : cur_nudge.set(text);
+        if( !kw_strcmp(id,KW_COLOR) )  return ret>1 ? cur_color.unset(text)  : cur_color.set(text);
+        if( !kw_strcmp(id,KW_ALPHA) )  return ret>1 ? cur_alpha.unset(text)  : cur_alpha.set(text);
+        if( !kw_strcmp(id,KW_FONT) )   return ret>1 ? cur_font.unset(text)   : cur_font.set(text);
+        if( !kw_strcmp(id,KW_SIZE) )   return ret>1 ? cur_size.unset(text)   : cur_size.set(text);
+        if( !kw_strcmp(id,KW_BOLD) )   return ret>1 ? cur_bold.unset(text)   : cur_bold.set(text);
+        if( !kw_strcmp(id,KW_ITALIC) ) return ret>1 ? cur_italic.unset(text) : cur_italic.set(text);
+        if( !kw_strcmp(id,KW_CAPS) )   return ret>1 ? cur_caps.unset(text)   : cur_caps.set(text);
+        if( !kw_strcmp(id,KW_UL) )     return ret>1 ? cur_under.unset(text)  : cur_under.set(text);
+        if( !kw_strcmp(id,KW_BLINK) )  return ret>1 ? cur_blink.unset(text)  : cur_blink.set(text);
+        if( !kw_strcmp(id,KW_FIXED) )  return ret>1 ? cur_fixed.unset(text)  : cur_fixed.set(text);
+        if( !kw_strcmp(id,KW_ALIAS) )  return ret>1 ? cur_alias.unset(text)  : cur_alias.set(text);
+        if( !kw_strcmp(id,KW_SUP) )    return ret>1 ? cur_super.unset(text)  : cur_super.set(text);
        return 1;
 }
 
@@ -1658,7 +1662,7 @@ void TitleMain::load_glyphs()
                int ret = wchrs.tget(wch);
                if( ret > 0 ) {
                        if( !wchrs.set_attributes(ret) ) continue;
-                       if( !strcmp(wchrs.id,KW_PNG) && add_image(wchrs.text) ) continue;
+                       if( !kw_strcmp(wchrs.id,KW_PNG) && add_image(wchrs.text) ) continue;
                        wch = wch1;  wchrs.seek(ipos+1);
                        ret = 0;
                }
@@ -1799,7 +1803,7 @@ int TitleMain::get_text()
                if( ret > 0 ) {
                        if( !wchrs.set_attributes(ret) ) continue;
                        ret = -1;
-                       if( !strcmp(wchrs.id,KW_PNG) ) {
+                       if( !kw_strcmp(wchrs.id,KW_PNG) ) {
                                VFrame *png_image = get_image(wchrs.text);
                                if( png_image ) {
                                        chr = title_chars.add(CHAR_IMAGE, png_image);
@@ -2224,16 +2228,20 @@ TitleTranslateUnit::TitleTranslateUnit(TitleMain *plugin, TitleTranslate *server
        type **out_rows = (type**)output->get_rows(); \
        float fr = 1./(256.-max), fs = max/255.; \
        float r = max > 1 ? 0.5 : 0; \
-       for( int y=y1; y<y2; ++y ) { \
-               float fy = y+yofs;  int iy = fy; \
-               float yf1 = fy>=iy ? fy - iy : fy+1-iy; \
+       int ix1= x1, iy1 = y1, ix2= x2, iy2 = y2; \
+       float fy = y1 + yofs; \
+       for( int y=iy1; y<iy2; ++y,++fy ) { \
+               int iy = fy;  float yf1 = fy - iy; \
+               if( yf1 < 0 ) ++yf1; \
                float yf0 = 1. - yf1; \
                unsigned char *in_row0 = in_rows[iy<0 ? 0 : iy]; \
                unsigned char *in_row1 = in_rows[iy<ih1 ? iy+1 : ih1]; \
-               for( int x=x1; x<x2; ++x ) { \
+               float fx = x1 + xofs; \
+               for( int x=ix1; x<ix2; ++x,++fx ) { \
                        type *op = out_rows[y] + x*comps; \
-                       float fx = x+xofs;  int ix = fx; \
-                       float xf1 = fx - ix, xf0 = 1. - xf1; \
+                       int ix = fx;  float xf1 = fx - ix; \
+                       if( xf1 < 0 ) ++xf1; \
+                       float xf0 = 1. - xf1; \
                        int i0 = (ix<0 ? 0 : ix)*4, i1 = (ix<iw1 ? ix+1 : iw1)*4; \
                        uint8_t *cp00 = in_row0 + i0, *cp01 = in_row0 + i1; \
                        uint8_t *cp10 = in_row1 + i0, *cp11 = in_row1 + i1; \
@@ -2334,7 +2342,7 @@ void TitleMain::reset_render()
        title_glyphs.clear();
        title_images.clear();
        if( freetype_face ) {
-               FT_Done_Face(freetype_face);
+               ft_Done_Face(freetype_face);
                freetype_face = 0;
        }
 }
@@ -2342,52 +2350,15 @@ void TitleMain::reset_render()
 int TitleMain::init_freetype()
 {
        if( !freetype_library )
-               FT_Init_FreeType(&freetype_library);
+               ft_Init_FreeType(&freetype_library);
        return 0;
 }
 
 void TitleMain::draw_boundry()
 {
-       VFrame &out = *output;
-       int iw = output->get_w(), ih = output->get_h();
-       int mr = MIN(iw, ih)/200 + 2, rr = 2*mr;
-       int x = title_x, y = title_y, w = title_w, h = title_h;
-       int r2 = (rr+1)/2;
-       int x0 = x-r2, x1 = x+(w+1)/2, x2 = x+w+r2;
-       int y0 = y-r2, y1 = y+(h+1)/2, y2 = y+h+r2;
-       int st = 1;
-       for( int r=2; r<mr; r<<=1 ) st = r;
-       out.set_stiple(st);
-
-       for( int r=mr/2; --r>=0; ) { // bbox
-               int lft = x+r, rgt = x+w-1-r;
-               int top = y+r, bot = y+h-1-r;
-               out.draw_line(lft,top, rgt,top);
-               out.draw_line(rgt,top, rgt,bot);
-               out.draw_line(rgt,bot, lft,bot);
-               out.draw_line(lft,bot, lft,top);
-       }
-
-       for( int r=mr; r<rr; ++r ) { // center
-               out.draw_smooth(x1-r,y1, x1-r,y1+r, x1,y1+r);
-               out.draw_smooth(x1,y1+r, x1+r,y1+r, x1+r,y1);
-               out.draw_smooth(x1+r,y1, x1+r,y1-r, x1,y1-r);
-               out.draw_smooth(x1,y1-r, x1-r,y1-r, x1-r,y1);
-       }
-
-       for( int r=rr; --r>=0; ) { // edge arrows
-               out.draw_line(x1-r,y0+r, x1+r,y0+r);
-               out.draw_line(x2-r,y1-r, x2-r,y1+r);
-               out.draw_line(x1-r,y2-r, x1+r,y2-r);
-               out.draw_line(x0+r,y1+r, x0+r,y1-r);
-       }
-       x0 += r2;  y0 += r2;  x2 -= r2;  y2 -= r2;
-       for( int r=2*mr; --r>=0; ) { // corner arrows
-               out.draw_line(x0,y0+r, x0+r,y0);
-               out.draw_line(x2,y0+r, x2-r,y0);
-               out.draw_line(x2,y2-r, x2-r,y2);
-               out.draw_line(x0,y2-r, x0+r,y2);
-       }
+       if( !gui_open() ) return;
+       DragCheckBox::draw_boundary(output,
+               title_x, title_y, title_w, title_h);
 }