Skip to content

Instantly share code, notes, and snippets.

@kalakay
kalakay / kaldik2020
Last active June 23, 2019 15:19
Kalender Pendidikan 2019/2020 dalam Bentuk Memanjang
\documentclass[10pt]{article}
\usepackage[a4paper,hmargin=1cm,vmargin=2cm,landscape]{geometry}
\usepackage[dvipsnames]{xcolor}
\definecolor{hijau}{rgb}{0,0.65,0.2} % warna, sesuai selera
\usepackage[indonesian]{babel}
\usepackage[rm,medium]{roboto} % jenis huruf, sesuai selera
\usepackage{tikz}
\usetikzlibrary{calendar}
%--------------------------------------
\usepackage{translator}
\makeatletter
\tikzset{
@arc through/.style 2 args={
to path={
\pgfextra
\pgfextract@process\pgf@tostart{\tikz@scan@one@point\pgfutil@firstofone(\tikztostart)\relax}%
\pgfextract@process\pgf@tothrough{\tikz@scan@one@point\pgfutil@firstofone#1}%
\pgfextract@process\pgf@totarget{\tikz@scan@one@point\pgfutil@firstofone(\tikztotarget)\relax}%
\pgfextract@process\pgf@topointMidA{\pgfpointlineattime{.5}{\pgf@tostart}{\pgf@tothrough}}%
\pgfextract@process\pgf@topointMidB{\pgfpointlineattime{.5}{\pgf@totarget}{\pgf@tothrough}}%
\foreach \p in {O,A,B,C,D,E,F,G,H,K,L}
\node[right] at (\p) {\$\p\$};
\foreach \p in {O,A,B,C,D,E,F,G,H,K,L}
\draw[fill] (\p) circle[radius=1pt];
\draw[Orange2] (\$(E)!-1cm!(H)\$)--(\$(H)!-1.2cm!(E)\$);
\draw[Orange2] (\$(F)!-1cm!(K)\$)--(\$(K)!-1cm!(F)\$);
\draw[name path=L6,PaleVioletRed1,dashed]
let
\p1=(\$(C)-(B)\$), %jari-jari
\n1={veclen(\x1,\y1)} %panjang jari-jari
in
(F) circle (\n1);
\path [name intersections={of = L6 and L2, by={K,L}}];
\draw[name path=L5,PaleVioletRed1,dashed]
let
\p1=(\$(C)-(B)\$), %jari-jari
\n1={veclen(\x1,\y1)} %panjang jari-jari
in
(E) circle (\n1);
\path [name intersections={of = L5 and L2, by={G,H}}];
\draw[name path=g1,PaleVioletRed1,dashed] (A)--(C);
\draw[name path=g2,PaleVioletRed1,dashed] (A)--(D);
\path [name intersections={of = L1 and g1, by={E}}];
\path [name intersections={of = L1 and g2, by={F}}];
\draw[name path=L4,PaleVioletRed1,dashed] (A) circle (3cm);
\path [name intersections={of = L3 and L4, by={C,D}}];
\clip (-1.2,-2.6) rectangle (8,2.6);%membatasi cakupan bidang gambar
\draw[thick,name path=L1,PineGreen] (A) circle (1cm);
\draw[thick,name path=L2,PineGreen] (B) circle (2cm);
\draw[name path=L3,PaleVioletRed1,dashed]
let
\p1=(\$(O)-(A)\$), %jari-jari
\n1={veclen(\x1,\y1)} %panjang jari-jari
in
(O) circle (\n1);