tikzdraw/graphics/comet.tex

106 lines
4.6 KiB
TeX

\documentclass{standalone}
%
\usepackage{tikz}
\usetikzlibrary{backgrounds}
\usepackage{tkz-euclide}
%
\usepackage{xcolor}
%
\definecolor{space}{HTML}{1F2C4E}
\definecolor{moon}{HTML}{AFAFAF}
\definecolor{craterm}{HTML}{616060}
\definecolor{linem}{HTML}{DBDBDB}
\definecolor{earth}{HTML}{0089FA}
%
\title{A comet}
\begin{document}
\tikzset{
partial ellipse/.style args = {#1:#2:#3}{insert path={+ (#1:#3) arc (#1:#2:#3)}},
}
\begin{tikzpicture}[background rectangle/.style={fill=space},show background rectangle]
%
\begin{scope}[rotate around={-45:(0,0)}]
\tkzDefPoint(15,-0.2){L}
\tkzDefPoint(6.2,0){L1}
\tkzDefPoint(15,8.8){L2}
\tkzDefShiftPoint[L1](0:17.6){La1}
\tkzDefShiftPoint[L1](0:17.55){La2}
%
\draw [color=earth!50!white, fill=earth!50!white] (13.4,12) [partial ellipse=180:360:1.3 and 1] -- (15,0) -- (12,0) -- (12.1,12);
\draw [color=earth!50!white, fill=earth!50!white] (11,10) [partial ellipse=180:360:0.9 and 1] -- (12,0) -- (10,0) -- (10.1,10);
\draw [color=earth!50!white, fill=earth!50!white] (16.5,13) [partial ellipse=180:360:1.3 and 1] -- (18,0) -- (15,0) -- (15.2,13);
\draw [color=earth!50!white, fill=earth!50!white] (19,11) [partial ellipse=180:360:0.9 and 1] -- (20,0) -- (18,0) -- (18.1,11);
\draw [line width=8mm, color=earth!50!white] (L) -- (15,20);
\draw [color=earth!50!white, fill=earth!50!white] (15,20) circle (4mm);
\draw [line width=6mm, color=earth!50!white] (12,0) -- (12,18);
\draw [color=earth!50!white, fill=earth!50!white] (12,18) circle (3mm);
\draw [color=earth!50!white, fill=earth!50!white] (12,19) circle (1.5mm);
\draw [line width=6mm, color=earth!50!white] (10,0) -- (10,15);
\draw [color=earth!50!white, fill=earth!50!white] (10,15) circle (3mm);
\draw [line width=6mm, color=earth!50!white] (20,0) -- (20,12);
\draw [color=earth!50!white, fill=earth!50!white] (20,12) circle (3mm);
\draw [color=earth!50!white, fill=earth!50!white] (20,13) circle (1.5mm);
\draw [color=earth!50!white, fill=earth!50!white] (18,16) circle (3mm);
\draw [line width=6mm, color=earth!50!white] (18,0) -- (18,16);
\draw [color=earth!50!white, fill=earth!50!white] (9,7) circle (1.5mm);
%
\draw [color=earth!50!white, fill=earth!50!white] (7,-4.4) circle (3mm);
\draw [color=earth!50!white, fill=earth!50!white] (14,-9.2) circle (3mm);
\draw [color=earth!50!white, fill=earth!50!white] (20,-7.7) circle (3mm);
\tkzDrawCircle[color=earth!50!white,fill=earth!50!white,ultra thick](L,L2)
\tkzDrawCircle[color=moon,fill=moon,ultra thick](L,L1)
\tkzDrawArc[ultra thick, color=craterm, rotate](L,La1)(-170)
\tkzDrawArc[ultra thick, color=craterm, rotate](L,La1)(-10)
\tkzDrawArc[ultra thick, color=craterm, rotate](L,La2)(-168)
\tkzDrawArc[ultra thick, color=craterm, rotate](L,La2)(-8)
%
\tkzDefPoint(7.4,-3.6){M1}
\tkzDefShiftPoint[M1](0:0.15){Mr1}
\tkzDefShiftPoint[Mr1](0:-0.05){Ma1}
\begin{scope}[rotate around={30:(M1)},yscale=1.8]
\tkzDrawCircle[color=craterm,fill=craterm](M1,Mr1)
\tkzDrawArc[rotate around={220:(M1)},thick,color=linem,rotate](M1,Ma1)(40)
\end{scope}
%
\tkzDefPoint(20.8,4.7){M2}
\tkzDefShiftPoint[M2](0:0.7){Mr2}
\tkzDefShiftPoint[Mr2](0:-0.1){Ma2}
\begin{scope}[rotate around={40:(M2)},yscale=1.9]
\tkzDrawCircle[color=craterm,fill=craterm](M2,Mr2)
\tkzDrawArc[rotate around={-10:(M2)},thick,color=linem,rotate](M2,Ma2)(40)
\end{scope}
%
\tkzDefPoint(15.8,6.5){M3}
\tkzDefShiftPoint[M3](0:1.5){Mr3}
\tkzDefShiftPoint[Mr3](0:-0.1){Ma3}
\begin{scope}[yscale=0.8]
\tkzDrawCircle[color=craterm,fill=craterm](M3,Mr3)
\tkzDrawArc[rotate around={30:(M3)},thick,color=linem,rotate](M3,Ma3)(40)
\end{scope}
%
\tkzDefPoint(21.1,-2.8){M4}
\tkzDefShiftPoint[M4](0:1.5){Mr4}
\tkzDefShiftPoint[Mr4](0:-0.1){Ma4}
\begin{scope}[rotate around={20:(M4)},yscale=0.9]
\tkzDrawCircle[color=craterm,fill=craterm](M4,Mr4)
\tkzDrawArc[rotate around={-20:(M4)},thick,color=linem,rotate](M4,Ma4)(-90)
\end{scope}
%
\tkzDefPoint(11.8,-5){M6}
\tkzDefShiftPoint[M6](0:3){Mr6}
\tkzDefShiftPoint[Mr6](0:-0.1){Ma6}
\begin{scope}[yscale=0.9]
\tkzDrawCircle[color=craterm,fill=craterm](M6,Mr6)
\tkzDrawArc[rotate around={-160:(M6)},thick,color=linem,rotate](M6,Ma6)(40)
\end{scope}
%
\tkzDefPoint(10.5,3.4){M7}
\tkzDefShiftPoint[M7](0:2){Mr7}
\tkzDefShiftPoint[Mr7](0:-0.1){Ma7}
\begin{scope}[rotate around={-20:(M7)},yscale=1.3]
\tkzDrawCircle[color=craterm,fill=craterm](M7,Mr7)
\tkzDrawArc[rotate around={110:(M7)},thick,color=linem,rotate](M7,Ma7)(40)
\end{scope}
\end{scope}
\end{tikzpicture}
\end{document}