%---------------------------------------------------------------%
%                                                               %
%   Título:   Simple @ Heart.(In loving memory of Francis Ow)   %
%   Título:   Simples De Coração.(Em memória de Francis Ow)     %
%   Autor :   Daniel Landi                                      %
%   Data  :   Junho  2018                                       %
%                                                               %
%---------------------------------------------------------------%
 
\define \my_color { 
        60, 85, 60
}

\diagram_header { 
  \designer("Daniel Landi");
  \title("Simple @ Heart (In loving memory of Francis Ow)");
  \diagrammer("Daniel Landi");
  \diagram_date(8,23,2018);
  \comment("I proudly present my first origami model.");
  \comment("Level : Simple");
  \comment("Paper : Rectangular of size 21 cm x 8,7 cm.(It is the leftover rectangle after an A4 paper is squared)");
  \color_front(100,0,0);
  \color_back(white);

}

\step {		%1     
                      							% LINHA 27
        \horizontal_rectangle(a,b,c,d,241);
        [meio_ab,meio_cd] = \line_to_line([a,d],[b,c],[a,b],[c,d]);
        \valley_fold(meio_ab,meio_cd);
	\simple_arrow(d, c, valley, valley, left);
	\caption("White side up");
	\caption("Fold in half and unfold");
	
}

\step {        %2							% LINHA 38
                                  										
	vab1=\fraction(a,meio_ab,15,100);	
	vcd1=\fraction(d,meio_cd,15,100);
	\valley_fold(vab1,meio_cd);
	meio_ab2=\middle(a,meio_ab);
	meio_cd2=\middle(d,meio_cd);
	\simple_arrow(meio_cd2,meio_ab,none,valley,left);
	\caption("Fold the lower left edge and align");
	\caption("it with the center of the paper");

}


\step {         %3 %LINHA 52

	meio_ab_extended=\fraction(meio_cd,meio_ab,5,4);
	\border(meio_cd,meio_ab_extended);
	vab1_vcd1_extended=\fraction(vcd1,vab1,5,4);
	\border(vab1,vab1_vcd1_extended);
	\border(meio_cd,vab1);
	\border(vab1_vcd1_extended,meio_ab_extended);

	\cut([c,d],meio_cd);
	\hide([d,meio_cd]);	
	\cut([a,b],meio_ab);
	\hide([a,meio_ab]);

	\hide(d,a);

%	\fill(front,vab1,vab1_vcd1_extended,meio_ab_extended,meio_ab);
	\fill(front,vab1,vab1_vcd1_extended,meio_ab_extended,meio_cd);
        vab2=\fraction(b,meio_ab,15,100);	
	\valley_fold(vab2,meio_cd);
	meio_cd3=\middle(c,meio_cd);
	\simple_arrow(meio_cd3,meio_ab,none,valley,right);


	\caption("Repeat at the right side of the model");

}



\step {         %4                                                                    % LINHA 78

	vcd2=\fraction(c,meio_cd,15,100);
	vab2_vcd2_extended=\fraction(vcd2,vab2,5,4);
	\border(vab2,vab2_vcd2_extended);
	\border(meio_cd,vab2);
	\border(vab2_vcd2_extended,meio_ab_extended);


	\hide([c,meio_cd]);	

	\hide(c,b);

	\fill(front,vab2,vab2_vcd2_extended,meio_ab_extended,meio_cd);
	
	\caption("Turn over the model");
	
	
}



\step {		%5                                                                      % LINHA  102
	
	\border(vab1,meio_ab);
	\border(meio_ab,vab2);
	\unfill(vab2,vab2_vcd2_extended,meio_ab_extended,meio_cd);
	\fill(front,vab2,meio_ab,meio_cd);
	\unfill(vab1,vab1_vcd1_extended,meio_ab_extended,meio_cd);
	\fill(front,vab1,meio_ab,meio_cd);
	[pinch_left1,pinch_left2]=\line_to_line([vab1_vcd1_extended,vab1],[meio_ab_extended,meio_ab],[vab1_vcd1_extended,meio_ab_extended],[vab1,meio_ab]);
	\simple_arrow(vab1_vcd1_extended,meio_ab_extended,valley,valley,right);
	\valley_fold(pinch_left1,pinch_left2,0,50);
	\caption("Fold the left edge to the center");
	\caption("of the model and make a pinch");
	\caption("halfway the uper left edge.");
	\hide(meio_cd,meio_ab);
	\border(meio_cd,vab2);
	\border(meio_cd,vab1);
	\border(vab1,vab2);	
	\border(meio_ab,meio_ab_extended);

}


\step {		%6                                                                      % LINHA  120
	
		
	\simple_arrow(vab1_vcd1_extended,pinch_left1,none,valley,right);
	\valley_fold(pinch_left1,pinch_left2,0,50);
	\caption("Fold the left edge to the");
	\caption("pinch marked on step 5");
	
}


\step {		%7									%LINHA 137

	[half_pinch_left1,half_pinch_left2]=\line_to_line([vab1_vcd1_extended,vab1],[pinch_left1,pinch_left2],[vab1_vcd1_extended,pinch_left1],[vab1,pinch_left2]);
	half_pinch_left2_extended=\fraction(half_pinch_left1,half_pinch_left2,8,4);
	\border(half_pinch_left2,meio_ab);
	\border(half_pinch_left1,half_pinch_left2_extended);
	\border(pinch_left1,pinch_left2);
	\border(half_pinch_left2_extended,pinch_left2);
	\unfill(vab1,meio_ab,meio_cd);
	\fill(front,half_pinch_left2,meio_ab,meio_cd,half_pinch_left2_extended);
	\fill(front,half_pinch_left2,half_pinch_left1,pinch_left1,pinch_left2);
	\hide(vab1,vab1_vcd1_extended,vab1);
	\border(half_pinch_left1,meio_ab_extended);
	\border(half_pinch_left2_extended,meio_cd);
	\caption("Repeat steps 5 and 6 at");
	\caption("right side of the model");
	\border(meio_ab,vab2);

}

\step {        %8									% LINHA 155

	[pinch_right1,pinch_right2]=\line_to_line([vab2_vcd2_extended,vab2],[meio_ab_extended,meio_ab],[vab2_vcd2_extended,meio_ab_extended],[vab2,meio_ab]);
	[half_pinch_right1,half_pinch_right2]=\line_to_line([vab2_vcd2_extended,vab2],[pinch_right1,pinch_right2],[vab2_vcd2_extended,pinch_right1],[vab2,pinch_right2]);
	half_pinch_right2_extended=\fraction(half_pinch_right1,half_pinch_right2,8,4);
	\border(half_pinch_right2,meio_ab);
	\border(half_pinch_right1,half_pinch_right2_extended);
	\border(pinch_right1,pinch_right2);
	\border(half_pinch_right2_extended,pinch_right2);
	\unfill(vab2,meio_ab,meio_cd);
	\fill(front,half_pinch_right2,meio_ab,meio_cd,half_pinch_right2_extended);
	\fill(front,half_pinch_right2,half_pinch_right1,pinch_right1,pinch_right2);
	\hide(vab2,vab2_vcd2_extended,vab2);
	\border(half_pinch_right1,meio_ab_extended);
	\border(half_pinch_right2_extended,meio_cd);
	\text(half_pinch_left1,"a");
	\text(pinch_left2,"b");
	shift_left1=\fraction(pinch_left1,half_pinch_left1,10,100);
	shift_left2=\fraction(pinch_left2,half_pinch_left2,10,100);	
	shift_right1=\fraction(pinch_right1,half_pinch_right1,10,100);
	shift_right2=\fraction(pinch_right2,half_pinch_right2,10,100);	
	\border(shift_right1,shift_right2);
	\hide(shift_right1,shift_right2);
	\valley_fold(half_pinch_left2,shift_left1);	
	\simple_arrow(half_pinch_left1,pinch_left2, none, valley, left);
	\caption("Fold point a down, so the left edge aligns");
	\caption("with the edge where point b is.");
	\caption("Note that a does not lies on b");

}


\step {      %9       									% LINHA 182

	\text(half_pinch_left1,"a");
	\text(pinch_left2,"b");	
	\visible_area_center(half_pinch_left2);
	\scale(150);
	\clip(65,45);
	\valley_fold(half_pinch_left2,shift_left1);
	\simple_arrow(half_pinch_left1,pinch_left2, none, valley, left);
	\caption("Zoomed view");	

}


\step {      %10									% LINHA 196

	\unfill(half_pinch_left2,half_pinch_left1,pinch_left1,pinch_left2);
	\fill(front,half_pinch_left2,shift_left1,pinch_left1,pinch_left2);
	\hide(shift_left1,half_pinch_left1);
	\border(shift_left1,shift_left2);
	\border(shift_left1,meio_ab_extended);
	\border(half_pinch_left2,shift_left1);
	\border(half_pinch_left2,half_pinch_left2_extended);
	\caption("Repeat step 8 @ the");
	\caption("right side of the model");

}

\step  {      %11									% LINHA 211

	
	\unfill(half_pinch_right2,half_pinch_right1,pinch_right1,pinch_right2);
	\fill(front,half_pinch_right2,shift_right1,pinch_right1,pinch_right2);
	\hide(shift_right1,half_pinch_right1);
	\border(shift_right1,shift_right2);
	\border(shift_right1,meio_ab_extended);
	\border(half_pinch_right2,shift_right1);
	\border(half_pinch_right2,half_pinch_right2_extended);
	shift_center_left1=\fraction(pinch_left1,meio_ab_extended,65,100);
	shift_center_left2=\fraction(pinch_left2,meio_ab,65,100);
	\valley_fold(meio_ab,shift_center_left1);
	\simple_arrow(meio_ab_extended,shift_center_left2, none, valley, right);	
	\text(meio_ab_extended,"a");
	\caption("Fold point a down as in step 8 to");
	\caption("align top left center edge down.");	
	\caption("And so shapping your HEART");	

}


\step  {      %12									% LINHA 233

	\hide(meio_ab_extended,shift_center_left1);
	\border(shift_center_left1,shift_center_left2);
	\border(meio_ab,shift_center_left1);
	\border(meio_ab,meio_ab_extended);
%	\border(meio_cd,meio_ab);
	\border(meio_ab_extended,shift_right1);
	\border(shift_center_left1,shift_left1);
	\fill(front,meio_ab,shift_center_left1,shift_center_left2);
	\caption("Repeat step 11 @ the");
	\caption("right side of the model");	
	


}


\step  {      %13									% LINHA 250

	shift_center_right1=\fraction(pinch_right1,meio_ab_extended,65,100);
	shift_center_right2=\fraction(pinch_right2,meio_ab,65,100);	
	\border(shift_center_right1,shift_center_right2);	
	\hide(meio_ab_extended,shift_center_right1);
	\border(shift_center_right1,shift_center_right2);
	\border(meio_ab,shift_center_right1);
	\border(shift_center_right1,shift_right1);
	\fill(front,meio_ab,shift_center_right1,shift_center_right2);
	\caption("Turn the model around");

	

}

\step {      %14

	\hide(shift_center_right1,shift_center_right2);
	\hide(shift_center_left1,shift_center_left2);
	\hide(shift_right1,shift_right2);
	\hide(shift_left1,shift_left2);
	\hide(pinch_right1,pinch_right2);
	\hide(pinch_left1,pinch_left2);
	\hide(half_pinch_left2,meio_ab);
	\border(half_pinch_left2_extended,half_pinch_left2);
	\border(half_pinch_left2,shift_left1);
	\border(shift_left1,shift_center_left1);
	\border(shift_center_left1,meio_ab);
	\border(meio_cd,meio_ab);
	\fill(front,pinch_left2,pinch_left1,shift_center_left1,shift_center_left2);
	\fill(front,pinch_right2,pinch_right1,shift_center_right1,shift_center_right2);
	\border(meio_ab,shift_center_right1);
	\border(shift_center_right1,shift_right1);
	\border(shift_right1,half_pinch_right2);
	\caption("And now you have a lovely heart :-D");
	\caption("");
	\caption("Francis Ow was an Origami Master whose");
	\caption("creations were mainly heart oriented.");
	\caption("To learn more about his wonderfull");
	\caption("Origami works and to fold some of his");
	\caption("models please check the following link :");
	\caption("");
	\caption("http://owrigami.com/");
}