initi color fg line color us fulli init color color outlin fig fig poli fg outlin fig add point outlin fig add point width dogear outlin fig add point width dogear outlin fig add point width height outlin fig add point height outlin fig add point outlin fig set fill outlin fig set line width line width ur corner fig poli fg ur corner add point width dogear ur corner add point width dogear ur corner add point width dogear dogear ur corner add point width dogear ur corner set fill color col outlin fig color ur corner set color col darker ur corner set line width line width set big port fig rect width height big port set fill big port set line width add fig fig node order add fig big port add fig outlin fig add fig ur corner add fig stereotyp fig add fig bodi text fig col outlin fig color ur corner set color col darker set blink port make port invis unless mous enter rectangl bound set bound width height updat edg readi edit mark newli creat round problem creat fig load comment stereotyp save dimens includ stereotyp pretend stereotyp visibl add height time render comment complet fudg realli ought address comment object stereotyp save hard work newli creat 