// output of ./demo/bits/dragon-r7-texpic-demo.cc:
// Description:
//% TeX picture of the R7-dragon curve.
//% Cf. OEIS sequence A176405.

arg 1: 50 == n  [Number of moves (fxtbook uses n=2401)]  default=50
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(49,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(50,-86){0.125}}
\put(0.875,1.516){\line(-49,-86){0.25}}
\put(0.625,1.083){\line(50,-86){0.125}}
\put(0.75,0.866){\line(99,0){0.5}}
\put(1.25,0.866){\line(49,86){0.125}}
\put(1.375,1.083){\line(-50,86){0.25}}
\put(1.125,1.516){\line(50,86){0.125}}
\put(1.25,1.732){\line(99,0){0.5}}
\put(1.75,1.732){\line(50,-86){0.125}}
\put(1.875,1.516){\line(-49,-86){0.25}}
\put(1.625,1.083){\line(50,-86){0.125}}
\put(1.75,0.866){\line(99,0){0.5}}
\put(2.25,0.866){\line(49,86){0.125}}
\put(2.375,1.083){\line(-50,86){0.25}}
\put(2.125,1.516){\line(50,86){0.125}}
\put(2.25,1.732){\line(99,0){0.5}}
\put(2.75,1.732){\line(49,86){0.125}}
\put(2.875,1.949){\line(-50,86){0.25}}
\put(2.625,2.382){\line(-99,0){0.25}}
\put(2.375,2.382){\line(-49,-86){0.25}}
\put(2.125,1.949){\line(-99,0){0.25}}
\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(50,-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(-99,0){0.25}}
\put(0.875,1.949){\line(-50,86){0.25}}
\put(0.625,2.382){\line(-99,0){0.25}}
\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(49,86){0.125}}
\put(-0.25,2.598){\line(99,0){0.5}}
\put(0.25,2.598){\line(49,86){0.125}}
\put(0.375,2.815){\line(-50,86){0.25}}
\put(0.125,3.248){\line(-99,0){0.25}}
\put(-0.125,3.248){\line(-49,-86){0.25}}
\put(-0.375,2.815){\line(-99,0){0.25}}
\put(-0.625,2.815){\line(-50,86){0.25}}
\put(-0.875,3.248){\line(49,86){0.125}}
\put(-0.75,3.464){\line(99,0){0.5}}
\put(-0.25,3.464){\line(49,86){0.125}}
\put(-0.125,3.681){\line(-50,86){0.25}}
\put(-0.375,4.114){\line(49,86){0.125}}
\put(-0.25,4.33){\line(99,0){0.5}}
\put(0.25,4.33){\line(50,-86){0.125}}
\put(0.375,4.114){\line(-49,-86){0.25}}
\put(0.125,3.681){\line(50,-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(49,86){0.125}}
\put(0.75,4.33){\line(99,0){0.5}}
\put(1.25,4.33){\line(50,-86){0.125}}
\put(1.375,4.114){\line(-49,-86){0.25}}
\put(1.125,3.681){\line(50,-86){0.125}}
\put(1.25,3.464){\line(99,0){0.5}}
\put(1.75,3.464){\line(49,86){0.125}}
\put(1.875,3.681){\line(-50,86){0.25}}
\put(1.625,4.114){\line(50,86){0.125}}
\put(1.75,4.33){\line(99,0){0.5}}
\put(2.25,4.33){\line(49,86){0.125}}
\put(2.375,4.547){\line(-50,86){0.25}}
\put(2.125,4.98){\line(-99,0){0.25}}
\put(1.875,4.98){\line(-49,-86){0.25}}
\put(1.625,4.547){\line(-99,0){0.25}}
\put(1.375,4.547){\line(-50,86){0.25}}
\put(1.125,4.98){\line(50,86){0.125}}
\put(1.25,5.196){\line(99,0){0.5}}
\put(1.75,5.196){\line(49,86){0.125}}
\put(1.875,5.413){\line(-50,86){0.25}}
\put(1.625,5.846){\line(49,86){0.125}}
\put(1.75,6.062){\line(99,0){0.5}}
\put(2.25,6.062){\line(50,-86){0.125}}
\put(2.375,5.846){\line(-49,-86){0.25}}
\put(2.125,5.413){\line(50,-86){0.125}}
%% Put next line (un-commented) on top of pic:
%\begin{picture}(5,7.062)(-1.5,-0.5)
