%--------------------------------------%
%                                      %
%   Título:   Half Heart Flag          %
%   Título:   Bandeira à Meio Coração  %
%   Autor :   Daniel Landi             %
%   Data  :   Junho  2018              %
%                                      %
%--------------------------------------%
 
\define \my_color { 							% LINE 10 I like to number the lines at the beginning ate steps because It help to locate 
        60, 85, 60							% lines when erros occurs
}

\diagram_header { 
  \designer("Daniel Landi");
  \title("Half-Heart Flag");
  \diagrammer("Daniel Landi");
  \diagram_date(8,23,2018);
  \comment("Level : Low Intermediate");
  \comment("Paper : Rectangular of size 21 cm x 8,7 cm.(It is the leftover rectangle after an A4 paper is squared)");
  \comment("Also know as 1 x (1+ Sqrt(2) paper size");
  \color_front(100,0,0);
  \color_back(white);
   \left_margin(20);
   \right_margin(20);
   \vertical_space(10);

}

\step {		%1     							           LINHA 26
                      	
        \horizontal_rectangle(LU,RU,RD,LD,241);				
	HL=\middle(LU,LD);
	HR=\middle(RU,RD);
	HU=\middle(LU,RU);
	HD=\middle(LD,RD);
        \valley_fold(HL,HR);
	\simple_arrow(LU, LD, none, valley, left);
	\caption("White side up");
	\caption("Valley fold in half");
	
}

\step {        %2 								     LINHA 40
	
	\cut([LU,LD],HL);
	\cut([RU,RD],HR);
	\hide([HL,LU]);	
	\hide([HR,RU]);
	\hide(LU,RU);
	\border(HL,HR);
	\fill(front,HL,HR,RD,LD);
	HCenter=\middle(HL,HR);
        \valley_fold(HCenter,HD);
	\simple_arrow(LD,RD,valley, valley, left);
	\caption("Fold and unfold");
	\caption("marking paper center");

}

\step {     %3 									      LINHA 57

	QuarterRU=\middle(HU,RU);
	QuarterRD=\middle(HD,RD);
	QuarterRC=\middle(QuarterRU,QuarterRD);	
	\valley_fold(QuarterRC,QuarterRD);
	\simple_arrow(HD,RD,valley,valley,left);
	\caption("Fold and unfold");
	\caption("marking paper quarter");
}


\step {     %4 									      LINHA 69

	\caption("Turn over horizontally");
	\caption("so the open paper is now up.");

}

\turn_over_horizontal;

\step {     %5 									      LINHA 78

	a=RD;
	\shift(RD,-1,-1);
	\border(a,HR);
	\border(LD,a);
	\caption("Just to make that");
	\caption("everyone is on track ;-D.");
	\caption("");
	\caption("Returning to 2D view");
}

\step {     %6									      LINHA 90

	\unshift;
	BissectRQuarterUP=\line_to_line(QuarterRC,HR,QuarterRD,[QuarterRD,RD]);
	BissectLQuarterUP=\line_to_line(QuarterRC,HCenter,QuarterRD,[QuarterRD,HD]);
	\valley_fold(QuarterRC,BissectRQuarterUP);
	\valley_fold(QuarterRC,BissectLQuarterUP);
	\text(QuarterRC,"a");
	\text(QuarterRD,"c");
	\simple_arrow(HR,QuarterRD,valley,valley,right);
	\simple_arrow(HCenter,QuarterRD,valley,valley,left);
	\caption("Now fold and unfold lower right edge");
	\caption("up to the quarter vertical edge,");
	\caption("or, to edge 'a-c'.");
	\caption("Repeat at the left side of");
	\caption("the quarter vertical edge. ");

}

\step {	   %7									      LINHA 109

	\mountain_fold(QuarterRC,BissectRQuarterUP);
	\push_arrow(HR,-45,1);
	\caption("Inside reverse fold.");

} 


\step {	   %8									      LINHA 118

	\unfill(LD,RD,HR,HL);
	BissectRQuarterDW=\perpendicular([QuarterRD,RD],BissectRQuarterUP,[QuarterRC,HR]);
	BissectLQuarterDW=\perpendicular([QuarterRD,HD],BissectLQuarterUP,[QuarterRC,HCenter]);	
	\fold(BissectRQuarterDW,BissectRQuarterUP);
	\fold(BissectLQuarterDW,BissectLQuarterUP);
	\hide(BissectRQuarterDW,BissectRQuarterUP);
	\hide(BissectLQuarterDW,BissectLQuarterUP);
	BissectRQuarterUP_Ext=\fraction(BissectRQuarterDW,BissectRQuarterUP,5,4);
	QuarterRD_Ext=\fraction(QuarterRC,QuarterRD,5,4);
	QuarterRD_Ext2=\fraction(QuarterRC,QuarterRD,13,4);
	\border(QuarterRD,QuarterRD_Ext);	
	\border(QuarterRD_Ext,BissectRQuarterUP_Ext);
	\hide(LD,RD);
	\border(LD,BissectRQuarterUP);
	\hide(HL,HR);
	\border(HL,QuarterRC);
	\border(QuarterRC,BissectRQuarterUP);
	\border(LD,HL);
	\border(BissectRQuarterUP,BissectRQuarterUP_Ext);
	\fill(front,LD,BissectRQuarterUP,QuarterRC,HL);
	\mountain_fold(QuarterRC,BissectLQuarterUP);
	\push_arrow(HCenter,-90,1);
	\caption("Repeat inside reverse fold at left side.");

} 

\step {    %9										LINHA 146

	\scale(115);
	BissectLQuarterUP_Ext1=\fraction(BissectLQuarterDW,BissectLQuarterUP,5,4);
	BissectLQuarterUP_Ext1_2=\fraction(BissectLQuarterDW,BissectLQuarterUP,6,4); % Questao de visualizacao do passo centralizado
	BissectLQuarterUP_Ext2=\fraction(BissectLQuarterDW,BissectLQuarterUP,13,4);

	BissectLQuarterDW_Ext2=\fraction(BissectLQuarterUP,BissectLQuarterDW,-8,-4);
	QuarterRC_Ext2=\fraction(QuarterRD,QuarterRC,-8,-4);
	\hide(BissectLQuarterUP,QuarterRD);
	\visible_area_center(QuarterRD);	
	\border(BissectLQuarterUP,BissectLQuarterUP_Ext2);
	\border(QuarterRC,BissectLQuarterUP);
	\border(QuarterRD,QuarterRD_Ext2);
	\border(BissectLQuarterUP_Ext2,QuarterRD_Ext2);
	\unfill(LD,BissectRQuarterUP,QuarterRC,HL);
	\hide(HL,QuarterRC);
	\hide(LD,RD);
	\hide(HCenter,HD);
	\border(QuarterRD,BissectRQuarterUP);
	\border(QuarterRC,BissectLQuarterUP);
	\border(QuarterRC,BissectRQuarterUP);
	\fill(front,QuarterRC,BissectLQuarterUP,BissectRQuarterUP);
	\fold(QuarterRC,QuarterRD);
	\push_arrow(QuarterRD_Ext2,45,1);
	\push_arrow(QuarterRD,45,1);
	\mountain_fold(BissectLQuarterUP,QuarterRD);
	\caption("Inside reverse fold again,");
	\caption("opening the left side.");

}

\step {   %10										LINHA 178					

	\scale(115);
	\visible_area_center(QuarterRC);
	\border(BissectLQuarterDW_Ext2,QuarterRC_Ext2);
	\hide(BissectLQuarterUP,BissectLQuarterUP_Ext2);
	\hide(QuarterRD,QuarterRD_Ext2);
	\border(BissectLQuarterUP,BissectLQuarterDW_Ext2);
	\border(QuarterRC_Ext2,QuarterRC);
	\border(BissectLQuarterUP,QuarterRD);
	\border(BissectLQuarterUP,QuarterRC);
	\fold(QuarterRC,QuarterRD);
	\border(BissectLQuarterUP,BissectRQuarterUP);
	\border(QuarterRD,QuarterRD_Ext);
	\simple_arrow(BissectRQuarterUP_Ext,QuarterRD_Ext, valley, valley, left);
	\simple_arrow(BissectLQuarterUP,QuarterRD, valley, valley, right);
	HalfHeartPinchUP=\middle(BissectRQuarterUP_Ext,QuarterRD_Ext);
	HalfPolePinchUP=\middle(BissectLQuarterUP_Ext1,QuarterRD_Ext);
	HalfHeartPinchDW=\middle(BissectRQuarterUP,QuarterRD);
	HalfPolePinchDW=\middle(BissectLQuarterUP,QuarterRD);
	\valley_fold(HalfHeartPinchUP,HalfHeartPinchDW,0,30);
	\valley_fold(HalfPolePinchUP,HalfPolePinchDW,-30,0);
	\repeat_arrow(HalfHeartPinchUP,1,90,100);
	\repeat_arrow(HalfPolePinchDW,1,90,4);
	\fill(front,BissectLQuarterUP,BissectLQuarterDW_Ext2,QuarterRC_Ext2,QuarterRC);
	\caption("Pich mark paper half at right");
	\caption("and left sides of the model.");
	\caption("Do this on both layers of ");
	\caption("the paper, front and back.");

}

\step {    %11										LINHA 210

	\fold(HalfHeartPinchUP,HalfHeartPinchDW,0,70);
	\visible_area_center(BissectRQuarterUP);
	\scale(185);
	\clip(75,55);
	QuarterHeartUP=\middle(HalfHeartPinchUP,BissectRQuarterUP_Ext);
	QuarterHeartDW=\middle(HalfHeartPinchDW,BissectRQuarterUP);
	\valley_fold(QuarterHeartUP,QuarterHeartDW);
	\simple_arrow(BissectRQuarterUP_Ext,HalfHeartPinchUP, valley, valley, left);
	\caption("Zoomed view.");
	\caption("Top right of the model.");
	\caption("Fold and unfold paper quarter.");
	\caption("Do this on the front paper layer.");
	\caption("Turn the model over and repeat");
	\caption("on the layer behind");
}

\step {    %12										LINHA 228

	\visible_area_center(BissectRQuarterUP);
	\scale(185);
	\clip(75,55);
	\mountain_fold(QuarterHeartUP,QuarterHeartDW);
	\return_arrow([QuarterHeartUP,QuarterHeartDW],[BissectRQuarterUP_Ext, BissectRQuarterUP], none, mountain, left);
	\caption("Mountain fold behind.");
	\caption("Do this on the front paper layer.");

}

\step {   %13										LINHA 240

	\visible_area_center(BissectRQuarterUP);
	\scale(185);
	\clip(75,55);
	\hide(QuarterHeartDW,BissectRQuarterUP);
	QuarterHeartDW_Ext=\perpendicular([QuarterRD_Ext, BissectRQuarterUP_Ext],QuarterHeartDW,[QuarterRC,BissectRQuarterUP]);
	\border(QuarterHeartUP,QuarterHeartDW_Ext);
	\fill(front,QuarterHeartDW,QuarterHeartUP,BissectRQuarterUP_Ext,BissectRQuarterUP);
	\border(QuarterRC,BissectRQuarterUP);
	\border(BissectRQuarterUP,BissectRQuarterUP_Ext);
	\border(QuarterRD,QuarterHeartDW);
	\simple_arrow(BissectRQuarterUP_Ext,HalfHeartPinchUP, none, valley, right);
	\caption("Fold the back paper layer");
	\caption("INSIDE THE MODEL,");
	\caption("to match the front layer.");

}

\step {   %14 										LINHA 259

	\visible_area_center(BissectRQuarterUP);
	\scale(185);
	\clip(75,55);
	\fold(HalfHeartPinchUP,HalfHeartPinchDW,0,70);
	\unfill;
	\fill(front,QuarterRC,QuarterRD,QuarterHeartDW,QuarterHeartDW_Ext);
	\hide(QuarterHeartDW_Ext,QuarterHeartUP,BissectRQuarterUP_Ext,BissectRQuarterUP,QuarterHeartDW_Ext);
	\border(QuarterRC,QuarterHeartDW_Ext);
	\border(QuarterHeartDW_Ext,QuarterHeartDW);
	\border(QuarterHeartDW,QuarterHeartUP);
	\border(QuarterHeartUP,QuarterRD_Ext);

	Fraction_HeartR=\fraction(HalfHeartPinchUP,QuarterHeartUP,10,100);
	\mountain_fold(Fraction_HeartR,QuarterHeartDW);
	\return_arrow([Fraction_HeartR,QuarterHeartDW],[QuarterHeartDW,QuarterHeartUP], mountain, mountain, left);
	
	QuarterHeart_L_UP=\middle(QuarterRD_Ext,HalfHeartPinchUP);
	QuarterHeart_L_DW=\middle(QuarterRD,HalfHeartPinchDW);
	Fraction_HeartL=\fraction(QuarterHeart_L_UP,QuarterRD_Ext,10,100);
	\valley_fold(QuarterRD,Fraction_HeartL);
	\simple_arrow(QuarterRD_Ext,QuarterHeart_L_DW, valley, valley, left);


	\caption("At right,mountain fold behind and unfold.");
	\caption("Do this on the front paper layer.");
	\caption("");
	\caption("At left,valley fold and unfold.");
	\caption("This will affect both paper layers.");

}

\step {    %15 										LINHA 292

	\visible_area_center(BissectRQuarterUP);
	\scale(185);
	\clip(84,55);
	\mountain_fold(Fraction_HeartR,QuarterHeartDW);
	\mountain_fold(QuarterRD,Fraction_HeartL);
	\push_arrow(QuarterRD_Ext,135,1);
	\push_arrow(QuarterHeartUP,45,1);

	\caption("At right,inside reverse fold");
	\caption("on front paper layer only.");
	\caption("This creates a 'pocket'.");
	\caption("");
	\caption("At left,inside reverse fold");
	\caption("This affect both paper layers.");

}

\step {    %16 										LINHA 311

	\visible_area_center(BissectRQuarterUP);
	\scale(185);
	\clip(75,55);

	\fold(HalfHeartPinchUP,HalfHeartPinchDW,0,100);	
	\hide(QuarterRD_Ext,Fraction_HeartR);	
	\border(Fraction_HeartL,QuarterHeartUP);
	\border(QuarterRD,Fraction_HeartL);
	\border(Fraction_HeartR,QuarterHeartDW);
	\simple_arrow(QuarterHeartUP,HalfHeartPinchDW,none, valley, left);

	\caption("Fold top right corner down,");
	\caption("INSIDE THE MODEL,");
	\caption("and insert it at the 'pocket'");
	\caption("created last step.");
	
}

\step {   %17  										LINHA 331

	\scale(140);
	\visible_area_center(QuarterRC);
	HalfPolePinchDW_Ext2=\middle(BissectLQuarterDW_Ext2,QuarterRC_Ext2);
	\mountain_fold(HalfPolePinchDW,HalfPolePinchDW_Ext2);
	\hide(Fraction_HeartR,QuarterHeartUP);	
	\border(BissectLQuarterUP,QuarterRD);
	\border(Fraction_HeartL,Fraction_HeartR);
	\border(Fraction_HeartR,QuarterHeartDW);
	\fill(front,BissectLQuarterUP,BissectLQuarterDW_Ext2,QuarterRC_Ext2,QuarterRD);
%	\simple_arrow(BissectLQuarterUP,QuarterRD,valley,valley,right);
	\return_arrow([QuarterRD,QuarterRC],[BissectLQuarterUP,BissectLQuarterDW_Ext2], mountain, mountain, left);
	\repeat_arrow(HalfPolePinchDW,1,90,2);
	\caption("Zomm out.Now we work in the pole.");
	\caption("Mountain fold,and unfold,left side");
	\caption("of model in half(INSIDE THE MODEL),");
	\caption("repeat at paper layer behind.");
}

\step {  %18				         					LINHA 350
	
	\scale(140);
	\visible_area_center(QuarterRC);
	\border(BissectLQuarterUP,BissectLQuarterDW_Ext2);
	\border(BissectLQuarterUP,QuarterRD);
	\hide(HalfPolePinchUP,HalfPolePinchDW_Ext2);
	\fold(HalfPolePinchDW,HalfPolePinchDW_Ext2);	
	\open_arrow([BissectLQuarterUP,BissectLQuarterDW_Ext2],right);

	\caption("Open the model from the left");
	\caption("and bring the front paper layer");
	\caption("all the way to the right.");
}

\step {  %19 										LINHA 366

	\scale(140);
	\visible_area_center(QuarterRC);
	BissectRQuarterDW_Ext2=\fraction(BissectRQuarterUP,BissectRQuarterDW,-8,-4);
	HalfHeartPinchDW_Ext2=\middle(BissectRQuarterDW_Ext2,QuarterRC_Ext2);
	\border(BissectRQuarterDW_Ext2,QuarterRC_Ext2);
	\border(BissectRQuarterDW_Ext2,BissectRQuarterUP);
	\border(BissectRQuarterUP,QuarterHeartDW);
	\unfill;
	\hide(BissectLQuarterDW,QuarterRC);
	\hide(QuarterHeartDW,QuarterHeartDW_Ext);
	\border(Fraction_HeartR,QuarterHeartDW);
	\fold(QuarterRD,QuarterRC_Ext2);
	\border(QuarterRD,BissectRQuarterUP);
	\valley_fold(HalfHeartPinchDW,HalfHeartPinchDW_Ext2);
	\valley_fold(HalfPolePinchDW,HalfPolePinchDW_Ext2);
	\simple_arrow(BissectLQuarterUP,QuarterRD,none,valley,left);
	\simple_arrow(BissectRQuarterUP,QuarterRD,none,valley,left);

	\caption("Fold both sides to center");

}

\step {  %20 										LINHA 390

	\scale(140);
	\visible_area_center(QuarterRC);
	\border(HalfHeartPinchDW,HalfHeartPinchDW_Ext2);
	\hide(BissectRQuarterUP,QuarterHeartDW_Ext);
	\hide(BissectLQuarterUP,BissectLQuarterDW_Ext2);
	\hide(BissectLQuarterDW_Ext2,BissectRQuarterDW_Ext2);
	\border(HalfPolePinchDW_Ext2,HalfHeartPinchDW_Ext2);
	\border(HalfPolePinchDW,QuarterHeartDW);
	\border(HalfPolePinchDW_Ext2,HalfPolePinchDW);
	\border(QuarterHeartDW,QuarterHeartDW_Ext);
	IntersectionR=\intersection([QuarterHeartDW_Ext,QuarterRC],[HalfHeartPinchDW_Ext2,HalfHeartPinchDW]);
	\border(QuarterHeartDW_Ext,IntersectionR);
	\fill(front,HalfPolePinchDW,QuarterHeartDW,QuarterHeartDW_Ext,IntersectionR,HalfHeartPinchDW_Ext2,HalfPolePinchDW_Ext2);
	\border(IntersectionR,QuarterRD);
	\border(QuarterRD,QuarterRC_Ext2);
	IntersectionL=\intersection([BissectLQuarterUP,QuarterRC],[HalfPolePinchDW_Ext2,HalfPolePinchDW]);
	\border(IntersectionL,QuarterRD);
	QuarterRightUP=\middle(HalfHeartPinchDW,QuarterRD);
	QuarterLeftUP=\middle(HalfPolePinchDW,QuarterRD);
	QuarterRightDW_Ext2=\middle(HalfHeartPinchDW_Ext2,QuarterRC_Ext2);
	QuarterLeftDW_Ext2=\middle(HalfPolePinchDW_Ext2,QuarterRC_Ext2);
	\valley_fold(QuarterRightUP,QuarterRightDW_Ext2);
	\valley_fold(QuarterLeftUP,QuarterLeftDW_Ext2);
	\simple_arrow(HalfPolePinchDW,QuarterRD,none,valley,left);
	\simple_arrow(HalfHeartPinchDW,QuarterRD,valley,valley,left);
	\caption("Fold left side to center");
	\caption("Fold right side to center and unfold");

}

\step {  %21										LINHA 390

	
	\scale(140);
	\visible_area_center(QuarterRC);
	\unfill;
	\hide(HalfPolePinchDW,HalfPolePinchDW_Ext2);
	\hide(IntersectionL,QuarterRD);
	\border(QuarterLeftUP,QuarterHeartDW);
	\border(QuarterLeftUP,QuarterLeftDW_Ext2);
	\border(QuarterLeftDW_Ext2,HalfHeartPinchDW_Ext2);
	\border(QuarterRD,Fraction_HeartL);
	\fill(front,QuarterLeftUP,QuarterHeartDW,QuarterHeartDW_Ext,IntersectionR,HalfHeartPinchDW_Ext2,QuarterLeftDW_Ext2);
	\border(IntersectionL,IntersectionR);
	\hide(IntersectionL,IntersectionR);
	\border(IntersectionR,QuarterRD);
	\border(IntersectionR,QuarterHeartDW_Ext);
	AbaLeft1UP=\intersection([IntersectionL,IntersectionR],[QuarterRD,QuarterRC_Ext2]);
	AbaLeft1DW=\perpendicular([QuarterRD,QuarterRC_Ext2],QuarterRC,[QuarterLeftUP,QuarterLeftDW_Ext2]);
	AbaLeft1DW_2=\fraction(QuarterLeftDW_Ext2,AbaLeft1DW,9,8);
	\border(AbaLeft1UP,AbaLeft1DW_2);
	\simple_arrow(QuarterLeftUP,QuarterRightUP,none,valley,right);
	\valley_fold(QuarterRD,QuarterRC_Ext2);
	\caption("Fold left edge to the right and");
	\caption("insert it inside the 'pocket'.");

}

\step {   %22

	\scale(140);
	\visible_area_center(QuarterRC);
	\unfill;
	\hide(QuarterLeftUP,QuarterLeftDW_Ext2);
	\hide(AbaLeft1UP,AbaLeft1DW_2);
	\border(QuarterRD,QuarterHeartDW);
	\border(QuarterRC_Ext2,HalfHeartPinchDW_Ext2);
	AbaRightEsconde=\intersection([QuarterRightUP,QuarterRightDW_Ext2],[IntersectionR,QuarterRD]);
	\hide(QuarterRightUP,QuarterRightDW_Ext2);
	\border(AbaRightEsconde,QuarterRightDW_Ext2);
	\border(QuarterRD,QuarterRC_Ext2);
	\fill(front,QuarterRD,QuarterHeartDW,QuarterHeartDW_Ext,IntersectionR,HalfHeartPinchDW_Ext2,QuarterRC_Ext2);
	AbaLeft2UP=\intersection([QuarterHeartDW_Ext,QuarterRC],[QuarterRightUP,QuarterRightDW_Ext2]);
	\border(AbaLeft2UP,QuarterRC);
	\caption("Lovely, is not it?");	
}

\step {   %23
	
	\scale(140);
	\visible_area_center(QuarterRC);
	\hide(QuarterRightUP,QuarterRightDW_Ext2);
	\simple_arrow(HalfHeartPinchDW,QuarterRD,none,valley,right);
	\valley_fold(QuarterRightUP,QuarterRightDW_Ext2);
	\caption("Fold over to the left.");
}

\step {

	\scale(140);
	\visible_area_center(QuarterRC);
	\unfill;
	\hide(IntersectionR,QuarterRD);
	\hide(HalfHeartPinchDW,HalfHeartPinchDW_Ext2);
	\hide(AbaLeft2UP,QuarterRC);
	\border(AbaLeft2UP,QuarterHeartDW_Ext);
	\border(QuarterRC_Ext2,QuarterRightDW_Ext2);
	\border(QuarterRightUP,QuarterRightDW_Ext2);
	\border(QuarterRD,QuarterRC_Ext2);
	\border(QuarterRD,QuarterHeartDW);
	\border(QuarterRD,Fraction_HeartL);
	\fill(front,QuarterRD,QuarterHeartDW,QuarterHeartDW_Ext,AbaLeft2UP,QuarterRightDW_Ext2,QuarterRC_Ext2);
	\border(AbaLeft2UP,AbaLeft1UP);
	\simple_arrow(QuarterRightUP,QuarterLeftUP,none,valley,right);
	\caption("Swing pole to the left and uncover your.......");
}

\step {

	\scale(140);
	\visible_area_center(QuarterRC);
	\unfill;
	\hide(QuarterRightUP,QuarterRightDW_Ext2);
	\hide(AbaLeft2UP,AbaLeft1UP);
	\border(QuarterRC,QuarterHeartDW_Ext);
	\hide(QuarterRD,QuarterRC_Ext2);
	\border(QuarterLeftUP,QuarterHeartDW);
	\border(QuarterLeftUP,QuarterLeftDW_Ext2);
	\fold(QuarterRD,QuarterRC);
	\border(QuarterRC,QuarterRC_Ext2);
	\border(QuarterLeftDW_Ext2,QuarterRC_Ext2);
	\border(QuarterRD,Fraction_HeartL);
	\fill(front,QuarterLeftUP,QuarterHeartDW,QuarterHeartDW_Ext,QuarterRC,QuarterRC_Ext2,QuarterLeftDW_Ext2);
	\border(QuarterRD,Fraction_HeartL);
	\border(QuarterRC,AbaLeft1DW_2);
	\caption("Half-Heart Flag!");
}