// output of ./demo/bits/dragon-r9-texpic-demo.cc:
// Description:
//% TeX picture of the R9-dragon curve.
//% See OEIS sequence A156595.

arg 1: 82 == n  [Number of moves (fxtbook uses n=729)]  default=82
arg 2: 2 == style  [Drawing style (fxtbook uses style=2)]  default=2
%% style=2
\put(0,0){\circle{0.5}}
\put(0,0){\circle{0.25}}
\put(0.25,0){\line(99,0){0.5}}
\put(0.75,0){\line(49,86){0.125}}
\put(0.875,0.2165){\line(-50,86){0.25}}
\put(0.625,0.6495){\line(-99,0){0.25}}
\put(0.375,0.6495){\line(-49,-86){0.25}}
\put(0.125,0.2165){\line(-99,0){0.25}}
\put(-0.125,0.2165){\line(-50,86){0.25}}
\put(-0.375,0.6495){\line(-99,0){0.25}}
\put(-0.625,0.6495){\line(-49,-86){0.25}}
\put(-0.875,0.2165){\line(-99,0){0.25}}
\put(-1.125,0.2165){\line(-50,86){0.25}}
\put(-1.375,0.6495){\line(50,86){0.125}}
\put(-1.25,0.866){\line(99,0){0.5}}
\put(-0.75,0.866){\line(49,86){0.125}}
\put(-0.625,1.083){\line(-50,86){0.25}}
\put(-0.875,1.516){\line(50,86){0.125}}
\put(-0.75,1.732){\line(99,0){0.5}}
\put(-0.25,1.732){\line(50,-86){0.125}}
\put(-0.125,1.516){\line(-49,-86){0.25}}
\put(-0.375,1.083){\line(50,-86){0.125}}
\put(-0.25,0.866){\line(99,0){0.5}}
\put(0.25,0.866){\line(49,86){0.125}}
\put(0.375,1.083){\line(-50,86){0.25}}
\put(0.125,1.516){\line(49,86){0.125}}
\put(0.25,1.732){\line(99,0){0.5}}
\put(0.75,1.732){\line(49,86){0.125}}
\put(0.875,1.949){\line(-50,86){0.25}}
\put(0.625,2.382){\line(49,86){0.125}}
\put(0.75,2.598){\line(99,0){0.5}}
\put(1.25,2.598){\line(50,-86){0.125}}
\put(1.375,2.382){\line(-49,-86){0.25}}
\put(1.125,1.949){\line(50,-86){0.125}}
\put(1.25,1.732){\line(99,0){0.5}}
\put(1.75,1.732){\line(49,86){0.125}}
\put(1.875,1.949){\line(-50,86){0.25}}
\put(1.625,2.382){\line(50,86){0.125}}
\put(1.75,2.598){\line(99,0){0.5}}
\put(2.25,2.598){\line(49,86){0.125}}
\put(2.375,2.815){\line(-50,86){0.25}}
\put(2.125,3.248){\line(-99,0){0.25}}
\put(1.875,3.248){\line(-49,-86){0.25}}
\put(1.625,2.815){\line(-99,0){0.25}}
\put(1.375,2.815){\line(-50,86){0.25}}
\put(1.125,3.248){\line(-99,0){0.25}}
\put(0.875,3.248){\line(-49,-86){0.25}}
\put(0.625,2.815){\line(-99,0){0.25}}
\put(0.375,2.815){\line(-50,86){0.25}}
\put(0.125,3.248){\line(49,86){0.125}}
\put(0.25,3.464){\line(99,0){0.5}}
\put(0.75,3.464){\line(49,86){0.125}}
\put(0.875,3.681){\line(-50,86){0.25}}
\put(0.625,4.114){\line(-99,0){0.25}}
\put(0.375,4.114){\line(-49,-86){0.25}}
\put(0.125,3.681){\line(-99,0){0.25}}
\put(-0.125,3.681){\line(-50,86){0.25}}
\put(-0.375,4.114){\line(-99,0){0.25}}
\put(-0.625,4.114){\line(-49,-86){0.25}}
\put(-0.875,3.681){\line(50,-86){0.125}}
\put(-0.75,3.464){\line(99,0){0.5}}
\put(-0.25,3.464){\line(50,-86){0.125}}
\put(-0.125,3.248){\line(-49,-86){0.25}}
\put(-0.375,2.815){\line(50,-86){0.125}}
\put(-0.25,2.598){\line(99,0){0.5}}
\put(0.25,2.598){\line(50,-86){0.125}}
\put(0.375,2.382){\line(-49,-86){0.25}}
\put(0.125,1.949){\line(-99,0){0.25}}
\put(-0.125,1.949){\line(-50,86){0.25}}
\put(-0.375,2.382){\line(-99,0){0.25}}
\put(-0.625,2.382){\line(-49,-86){0.25}}
\put(-0.875,1.949){\line(-99,0){0.25}}
\put(-1.125,1.949){\line(-50,86){0.25}}
\put(-1.375,2.382){\line(49,86){0.125}}
\put(-1.25,2.598){\line(99,0){0.5}}
\put(-0.75,2.598){\line(49,86){0.125}}
\put(-0.625,2.815){\line(-50,86){0.25}}
\put(-0.875,3.248){\line(-99,0){0.25}}
\put(-1.125,3.248){\line(-49,-86){0.25}}
\put(-1.375,2.815){\line(-99,0){0.25}}
\put(-1.625,2.815){\line(-50,86){0.25}}
\put(-1.875,3.248){\line(-99,0){0.25}}
\put(-2.125,3.248){\line(-49,-86){0.25}}
\put(-2.375,2.815){\line(-99,0){0.25}}
\put(-2.625,2.815){\line(-50,86){0.25}}
\put(-2.875,3.248){\line(50,86){0.125}}
\put(-2.75,3.464){\line(99,0){0.5}}
\put(-2.25,3.464){\line(49,86){0.125}}
\put(-2.125,3.681){\line(-50,86){0.25}}
\put(-2.375,4.114){\line(-99,0){0.25}}
\put(-2.625,4.114){\line(-49,-86){0.25}}
\put(-2.875,3.681){\line(-99,0){0.25}}
\put(-3.125,3.681){\line(-50,86){0.25}}
\put(-3.375,4.114){\line(-99,0){0.25}}
\put(-3.625,4.114){\line(-49,-86){0.25}}
\put(-3.875,3.681){\line(50,-86){0.125}}
\put(-3.75,3.464){\line(99,0){0.5}}
\put(-3.25,3.464){\line(50,-86){0.125}}
\put(-3.125,3.248){\line(-49,-86){0.25}}
\put(-3.375,2.815){\line(50,-86){0.125}}
\put(-3.25,2.598){\line(99,0){0.5}}
\put(-2.75,2.598){\line(50,-86){0.125}}
\put(-2.625,2.382){\line(-49,-86){0.25}}
\put(-2.875,1.949){\line(-99,0){0.25}}
\put(-3.125,1.949){\line(-50,86){0.25}}
\put(-3.375,2.382){\line(-99,0){0.25}}
\put(-3.625,2.382){\line(-49,-86){0.25}}
\put(-3.875,1.949){\line(-99,0){0.25}}
\put(-4.125,1.949){\line(-50,86){0.25}}
\put(-4.375,2.382){\line(50,86){0.125}}
\put(-4.25,2.598){\line(99,0){0.5}}
\put(-3.75,2.598){\line(49,86){0.125}}
\put(-3.625,2.815){\line(-50,86){0.25}}
\put(-3.875,3.248){\line(-99,0){0.25}}
\put(-4.125,3.248){\line(-49,-86){0.25}}
\put(-4.375,2.815){\line(-99,0){0.25}}
\put(-4.625,2.815){\line(-50,86){0.25}}
\put(-4.875,3.248){\line(-99,0){0.25}}
\put(-5.125,3.248){\line(-49,-86){0.25}}
\put(-5.375,2.815){\line(-99,0){0.25}}
\put(-5.625,2.815){\line(-50,86){0.25}}
\put(-5.875,3.248){\line(50,86){0.125}}
\put(-5.75,3.464){\line(99,0){0.5}}
\put(-5.25,3.464){\line(50,86){0.125}}
\put(-5.125,3.681){\line(-50,86){0.25}}
\put(-5.375,4.114){\line(50,86){0.125}}
\put(-5.25,4.33){\line(99,0){0.5}}
\put(-4.75,4.33){\line(50,-86){0.125}}
\put(-4.625,4.114){\line(-49,-86){0.25}}
\put(-4.875,3.681){\line(49,-86){0.125}}
\put(-4.75,3.464){\line(99,0){0.5}}
\put(-4.25,3.464){\line(50,86){0.125}}
\put(-4.125,3.681){\line(-50,86){0.25}}
\put(-4.375,4.114){\line(50,86){0.125}}
\put(-4.25,4.33){\line(99,0){0.5}}
\put(-3.75,4.33){\line(49,86){0.125}}
\put(-3.625,4.547){\line(-50,86){0.25}}
\put(-3.875,4.98){\line(49,86){0.125}}
\put(-3.75,5.196){\line(99,0){0.5}}
\put(-3.25,5.196){\line(50,-86){0.125}}
\put(-3.125,4.98){\line(-49,-86){0.25}}
\put(-3.375,4.547){\line(50,-86){0.125}}
\put(-3.25,4.33){\line(99,0){0.5}}
\put(-2.75,4.33){\line(49,86){0.125}}
\put(-2.625,4.547){\line(-50,86){0.25}}
\put(-2.875,4.98){\line(50,86){0.125}}
\put(-2.75,5.196){\line(99,0){0.5}}
\put(-2.25,5.196){\line(49,86){0.125}}
\put(-2.125,5.413){\line(-50,86){0.25}}
\put(-2.375,5.846){\line(-99,0){0.25}}
\put(-2.625,5.846){\line(-49,-86){0.25}}
\put(-2.875,5.413){\line(-99,0){0.25}}
\put(-3.125,5.413){\line(-50,86){0.25}}
\put(-3.375,5.846){\line(-99,0){0.25}}
\put(-3.625,5.846){\line(-49,-86){0.25}}
\put(-3.875,5.413){\line(-99,0){0.25}}
\put(-4.125,5.413){\line(-50,86){0.25}}
\put(-4.375,5.846){\line(50,86){0.125}}
\put(-4.25,6.062){\line(99,0){0.5}}
\put(-3.75,6.062){\line(49,86){0.125}}
\put(-3.625,6.279){\line(-50,86){0.25}}
\put(-3.875,6.712){\line(49,86){0.125}}
\put(-3.75,6.928){\line(99,0){0.5}}
\put(-3.25,6.928){\line(50,-86){0.125}}
\put(-3.125,6.712){\line(-49,-86){0.25}}
\put(-3.375,6.279){\line(50,-86){0.125}}
%% Put next line (un-commented) on top of pic:
%\begin{picture}(9.5,7.928)(-6.5,-0.5)