Valentine heart


[PDF] [TEX]
% !TEX TS-program = pdflatex
\documentclass[border=2mm]{standalone}
\usepackage[usenames,dvipsnames]{xcolor} 
\usepackage{tkz-euclide}
\begin{document} 
\begin{tikzpicture}
\tkzDefPoints{00/0/A,12/0/B,6/12*sind(60)/C}
\foreach \density in {20,30,...,240}{%
   \tkzDrawPolygon[fill=MidnightBlue!\density](A,B,C)
   \pgfnodealias{X}{A}
   \tkzDefPointWith[linear,K=.15](A,B) \tkzGetPoint{A}
   \tkzDefPointWith[linear,K=.15](B,C) \tkzGetPoint{B}
   \tkzDefPointWith[linear,K=.15](C,X) \tkzGetPoint{C}}
\end{tikzpicture}%
\end{document}