analoga skalor

?% -*- TeX:EN -*-
\PassOptionsToPackage{xetex}{graphicx}
\documentclass[swedish,a4paper,10pt,twoside,onecolumn,openany,final,xetex]{memoir}
\XeTeXinputencoding utf-8 %
%\usepackage[latin1]{inputenc}
%\usepackage{xunicode}
\usepackage{fontspec}
\defaultfontfeatures{Ligatures={TeX}}
\usepackage[detect-all,output-decimal-marker={.},group-digits=integer,group-separator={\,}]{siunitx}
\usepackage{endnotes}

\usepackage{pdfpages}
\usepackage{babel}
\usepackage{url}
\usepackage{tikz}

\usetikzlibrary{%
  arrows,%
  automata,%
  shapes.misc,% wg. rounded rectangle
  shapes.arrows,%
  shapes.symbols,%
  shapes.gates.logic.US,%
  backgrounds,%
  calc,%
  chains,%
  fit,%
  matrix,%
  patterns,%
  positioning,% wg. " of "
  scopes,%
%  decorations.pathmorphing,% /pgf/decoration/random steps
  shadows%
}

\setlrmarginsandblock{20mm}{10mm}{*}
\setulmarginsandblock{15mm}{25mm}{*}
\setheadfoot{\onelineskip}{5\onelineskip}
\setheaderspaces{*}{2\onelineskip}{*}
\setlength{\footnotesep}{\onelineskip}
\checkandfixthelayout
\abnormalparskip{\onelineskip}
\setlength{\parindent}{0pt}

\newcommand{\pmyarray}[1]{\pgfmathparse{\myarray[#1]}\pgfmathresult}
% scaletics{inner radius}{length}{count}{labels}{tic spec}{format spec}
\newcommand{\scaletics}[6]{%
  \def\myarray{#4}
  \foreach \tic [count=\cnt,evaluate=\cnt as \c using \cnt-1,evaluate=\tic as \ang using 135-\tic*90/#3,evaluate=\ang as \tang using \ang-90] in {0, 1,..., #3}
  {
    \draw[#5] ($(pivot)+(\ang:#1)$) -- ++(\ang:#2) node[rotate=\tang,anchor=south] {#6\pmyarray{\c}};
  }
}

% scalemtics{inner radius}{length}{count}{tic spec}{format spec}
\newcommand{\scalemtics}[4]{%
  \foreach \tic [count=\cnt,evaluate=\cnt as \c using \cnt-1,evaluate=\tic as \ang using 135-\tic*90/#3,evaluate=\ang as \tang using \ang-90] in {0, 1,..., #3}
  {
    \draw[#4] ($(pivot)+(\ang:#1)$) -- ++(\ang:#2);
  }
}

\newcommand{\scymkfivetwo}{%
    \draw [black,very thin] (-28.5,0) rectangle (28.5,57);
    \draw [black,very thin] (-12,0) -- (-12,15.5) arc (152.73:27.27:13.5) -- (12,0);
    \draw [black,very thin] (-18,19) circle (1);
    \draw [black,very thin] (+18,19) circle (1);
    \path (0,15.5) coordinate (pivot);
    \path (-25,25) node [anchor=south west, inner sep=0pt] {\footnotesize\sffamily YMK-52};
}

\newcommand{\sckmsixsix}{%
    \draw [black,very thin] (-30.5,0) rectangle (30.5,55);
    \draw [black,very thin] (-8.5,0) -- (-8.5,15) arc (0:90:3.5) arc (163.7:16.3:12.5) arc (90:180:3.5) -- (8.5,0);
    \draw [black,very thin] (-12,15) circle (1);
    \draw [black,very thin] (+12,15) circle (1);
    \path (0,15) coordinate (pivot);
    \path (-22,27) node [anchor=south west, inner sep=0pt] {\footnotesize\sffamily KM-66};
}

\pagestyle{empty}
\begin{document}

  \begin{tikzpicture}[x=1mm,y=1mm]
    \scymkfivetwo
    \scaletics{28}{4}{10}{{"0","1","2","3","4","5","6","7","8","9","10",}}{thick}{}
    \scalemtics{28}{2}{100}{very thin}
  \end{tikzpicture}
%
  \begin{tikzpicture}[x=1mm,y=1mm]
    \scymkfivetwo
    \scaletics{28}{4}{3}{{"0","1","2","3",}}{thick}{}
    \scalemtics{28}{2}{30}{very thin}
    \scalemtics{28}{4}{6}{thick}
    \path (0,34) node [anchor=center,text width=30mm,align=center] {\Large\bfseries{\sffamily Emission}\\[1ex]\si{\milli\ampere}};
  \end{tikzpicture}
%
  \begin{tikzpicture}[x=1mm,y=1mm]
    \scymkfivetwo
    \scaletics{28}{4}{3}{{"0","0.5","1","1.5",}}{thick}{}
    \scalemtics{28}{2}{15}{very thin}
%    \scalemtics{28}{4}{6}{thick}
    \path (0,34) node [anchor=center,text width=30mm,align=center] {\Large\bfseries{\sffamily Emission}\\[1ex]\si{\milli\ampere}};
  \end{tikzpicture}


  \begin{tikzpicture}[x=1mm,y=1mm]
    \scymkfivetwo
    \scaletics{28}{4}{6}{{"0","1","2","3","4","5","6",}}{thick}{}
    \scalemtics{28}{2}{24}{very thin}
    \scalemtics{28}{4}{12}{thick}
    \path (0,34) node [anchor=center,text width=30mm,align=center] {\Large\bfseries{\sffamily Filament}\\[1ex]\si{\ampere}};
  \end{tikzpicture}

  \begin{tikzpicture}[x=1mm,y=1mm]
    \scymkfivetwo
    \scaletics{28}{4}{12}{{"0","1","2","3","4","5","6","7","8","9","10","11","12",}}{thick}{\small}
    \scalemtics{28}{2}{24}{very thin}
    \path (0,34) node [anchor=center,text width=30mm,align=center] {\Large\bfseries{\sffamily Hours}};
  \end{tikzpicture}
%
  \begin{tikzpicture}[x=1mm,y=1mm]
    \scymkfivetwo
    \scaletics{28}{4}{12}{{"0","2","4","6","8","10","12","14","16","18","20","22","24",}}{thick}{\small}
    \scalemtics{28}{2}{24}{very thin}
    \path (0,34) node [anchor=center,text width=30mm,align=center] {\Large\bfseries{\sffamily Hours}};
  \end{tikzpicture}
%
  \begin{tikzpicture}[x=1mm,y=1mm]
    \scymkfivetwo
    \scaletics{28}{4}{6}{{"0","10","20","30","40","50","60",}}{thick}{}
    \scalemtics{28}{2}{60}{very thin}
    \scalemtics{28}{3}{12}{thick}
    \path (0,34) node [anchor=center,text width=30mm,align=center] {\Large\bfseries{\sffamily Minutes}};
  \end{tikzpicture}


  \begin{tikzpicture}[x=1mm,y=1mm]
    \scymkfivetwo
    \scaletics{28}{4}{12}{{"0","5","10","15","20","25","30","35","40","45","50","55","60",}}{thick}{\small}
    \scalemtics{28}{2}{60}{very thin}
    \path (0,34) node [anchor=center,text width=30mm,align=center] {\Large\bfseries{\sffamily Minutes}};
  \end{tikzpicture}
%
  \begin{tikzpicture}[x=1mm,y=1mm]
    \scymkfivetwo
    \scaletics{28}{4}{12}{{"0","5","10","15","20","25","30","35","40","45","50","55","60",}}{thick}{\small}
    \scalemtics{28}{2}{60}{very thin}
    \path (0,34) node [anchor=center,text width=30mm,align=center] {\Large\bfseries{\sffamily Seconds}};
  \end{tikzpicture}
%
  \begin{tikzpicture}[x=1mm,y=1mm]
    \scymkfivetwo
    \scaletics{28}{4}{6}{{"0","10","20","30","40","50","60",}}{thick}{}
    \scalemtics{28}{2}{60}{very thin}
    \scalemtics{28}{3}{12}{thick}
    \path (0,34) node [anchor=center,text width=30mm,align=center] {\Large\bfseries{\sffamily Seconds}};
  \end{tikzpicture}
\clearpage

  \begin{tikzpicture}[x=1mm,y=1mm]
    \sckmsixsix
    \scaletics{28}{4}{10}{{"0","1","2","3","4","5","6","7","8","9","10",}}{thick}{}
    \scalemtics{28}{2}{100}{very thin}
  \end{tikzpicture}
%
  \begin{tikzpicture}[x=1mm,y=1mm]
    \sckmsixsix
    \scaletics{28}{4}{3}{{"0","1","2","3",}}{thick}{}
    \scalemtics{28}{2}{30}{very thin}
    \scalemtics{28}{4}{6}{thick}
    \path (0,34) node [anchor=center,text width=30mm,align=center] {\Large\bfseries{\sffamily Emission}\\[.5ex]\si{\milli\ampere}};
  \end{tikzpicture}
%
  \begin{tikzpicture}[x=1mm,y=1mm]
    \sckmsixsix
    \scaletics{28}{4}{3}{{"0","0.5","1","1.5",}}{thick}{}
    \scalemtics{28}{2}{15}{very thin}
%    \scalemtics{28}{4}{6}{thick}
    \path (0,34) node [anchor=center,text width=30mm,align=center] {\Large\bfseries{\sffamily Emission}\\[.5ex]\si{\milli\ampere}};
  \end{tikzpicture}


  \begin{tikzpicture}[x=1mm,y=1mm]
    \sckmsixsix
    \scaletics{28}{4}{6}{{"0","1","2","3","4","5","6",}}{thick}{}
    \scalemtics{28}{2}{24}{very thin}
    \scalemtics{28}{4}{12}{thick}
    \path (0,34) node [anchor=center,text width=30mm,align=center] {\Large\bfseries{\sffamily Filament}\\[.5ex]\si{\ampere}};
  \end{tikzpicture}

  \begin{tikzpicture}[x=1mm,y=1mm]
    \sckmsixsix
    \scaletics{28}{4}{12}{{"0","1","2","3","4","5","6","7","8","9","10","11","12",}}{thick}{\small}
    \scalemtics{28}{2}{24}{very thin}
    \path (0,34) node [anchor=center,text width=30mm,align=center] {\Large\bfseries{\sffamily Hours}};
  \end{tikzpicture}
%
  \begin{tikzpicture}[x=1mm,y=1mm]
    \sckmsixsix
    \scaletics{28}{4}{12}{{"0","2","4","6","8","10","12","14","16","18","20","22","24",}}{thick}{\small}
    \scalemtics{28}{2}{24}{very thin}
    \path (0,34) node [anchor=center,text width=30mm,align=center] {\Large\bfseries{\sffamily Hours}};
  \end{tikzpicture}
%
  \begin{tikzpicture}[x=1mm,y=1mm]
    \sckmsixsix
    \scaletics{28}{4}{6}{{"0","10","20","30","40","50","60",}}{thick}{}
    \scalemtics{28}{2}{60}{very thin}
    \scalemtics{28}{3}{12}{thick}
    \path (0,34) node [anchor=center,text width=30mm,align=center] {\Large\bfseries{\sffamily Minutes}};
  \end{tikzpicture}


  \begin{tikzpicture}[x=1mm,y=1mm]
    \sckmsixsix
    \scaletics{28}{4}{12}{{"0","5","10","15","20","25","30","35","40","45","50","55","60",}}{thick}{\small}
    \scalemtics{28}{2}{60}{very thin}
    \path (0,34) node [anchor=center,text width=30mm,align=center] {\Large\bfseries{\sffamily Minutes}};
  \end{tikzpicture}
%
  \begin{tikzpicture}[x=1mm,y=1mm]
    \sckmsixsix
    \scaletics{28}{4}{12}{{"0","5","10","15","20","25","30","35","40","45","50","55","60",}}{thick}{\small}
    \scalemtics{28}{2}{60}{very thin}
    \path (0,34) node [anchor=center,text width=30mm,align=center] {\Large\bfseries{\sffamily Seconds}};
  \end{tikzpicture}
%
  \begin{tikzpicture}[x=1mm,y=1mm]
    \sckmsixsix
    \scaletics{28}{4}{6}{{"0","10","20","30","40","50","60",}}{thick}{}
    \scalemtics{28}{2}{60}{very thin}
    \scalemtics{28}{3}{12}{thick}
    \path (0,34) node [anchor=center,text width=30mm,align=center] {\Large\bfseries{\sffamily Seconds}};
  \end{tikzpicture}
\end{document}