Data update

Task/Hilbert-curve/Ada/hilbert-curve.ada

@@ -1,75 +0,0 @@
-with PDF_Out;  use PDF_Out;
-
-procedure Hilbert_Curve_PDF is
-
-   Length  : constant := 500.0;
-   Corner  : constant Point := (50.0, 300.0);
-
-   type Rule_Type is (A, B, C, D);
-
-   PDF   : PDF_Out.Pdf_Out_File;
-   First : Boolean;
-
-   procedure Hilbert (Order  : in Natural;
-                      Rule   : in Rule_Type;
-                      Length : in Real;
-                      X, Y   : in Real)
-   is
-      L : constant Real := Length / 4.0;
-   begin
-      if Order = 0 then
-         if First then
-            First := False;
-            PDF.Move (Corner + (X, Y));
-         else
-            PDF.Line (Corner + (X, Y));
-         end if;
-      else
-         case Rule is
-            when A =>
-               Hilbert (Order - 1, D, 2.0 * L, X - L, Y + L);
-               Hilbert (Order - 1, A, 2.0 * L, X - L, Y - L);
-               Hilbert (Order - 1, A, 2.0 * L, X + L, Y - L);
-               Hilbert (Order - 1, B, 2.0 * L, X + L, Y + L);
-            when B =>
-               Hilbert (Order - 1, C, 2.0 * L, X + L, Y - L);
-               Hilbert (Order - 1, B, 2.0 * L, X - L, Y - L);
-               Hilbert (Order - 1, B, 2.0 * L, X - L, Y + L);
-               Hilbert (Order - 1, A, 2.0 * L, X + L, Y + L);
-            when C =>
-               Hilbert (Order - 1, B, 2.0 * L, X + L, Y - L);
-               Hilbert (Order - 1, C, 2.0 * L, X + L, Y + L);
-               Hilbert (Order - 1, C, 2.0 * L, X - L, Y + L);
-               Hilbert (Order - 1, D, 2.0 * L, X - L, Y - L);
-            when D =>
-               Hilbert (Order - 1, A, 2.0 * L, X - L, Y + L);
-               Hilbert (Order - 1, D, 2.0 * L, X + L, Y + L);
-               Hilbert (Order - 1, D, 2.0 * L, X + L, Y - L);
-               Hilbert (Order - 1, C, 2.0 * L, X - L, Y - L);
-         end case;
-      end if;
-   end Hilbert;
-
-   procedure Hilbert (Order : Natural; Color : Color_Type) is
-   begin
-      First := True;
-      PDF.Stroking_Color (Color);
-      Hilbert (Order, A, Length, Length / 2.0, Length / 2.0);
-      PDF.Finish_Path (Close_Path => False,
-                       Rendering  => Stroke,
-                       Rule       => Nonzero_Winding_Number);
-   end Hilbert;
-
-begin
-   PDF.Create ("hilbert.pdf");
-   PDF.Page_Setup (A4_Portrait);
-   PDF.Line_Width (2.0);
-
-   PDF.Color (Black);
-   PDF.Draw (Corner + (0.0, 0.0, Length, Length), Fill);
-
-   Hilbert (6, Color => (0.9, 0.1, 0.8));
-   Hilbert (5, Color => (0.0, 0.9, 0.0));
-
-   PDF.Close;
-end Hilbert_Curve_PDF;

Task/Hilbert-curve/VBScript/hilbert-curve.vb

@@ -1,101 +0,0 @@
-option explicit
-'outputs turtle graphics to svg file and opens it
-
-const pi180= 0.01745329251994329576923690768489 ' pi/180
-const pi=3.1415926535897932384626433832795 'pi
-class turtle
-
-   dim fso
-   dim fn
-   dim svg
-
-   dim iang  'radians
-   dim ori   'radians
-   dim incr
-   dim pdown
-   dim clr
-   dim x
-   dim y
-
-   public property let orient(n):ori = n*pi180 :end property
-   public property let iangle(n):iang= n*pi180 :end property
-   public sub pd() : pdown=true: end sub
-   public sub pu()  :pdown=FALSE :end sub
-
-   public sub rt(i)
-     ori=ori - i*iang:
-     if ori<0 then ori = ori+pi*2
-   end sub
-   public sub lt(i):
-     ori=(ori + i*iang)
-     if ori>(pi*2) then ori=ori-pi*2
-   end sub
-
-   public sub bw(l)
-      x= x+ cos(ori+pi)*l*incr
-      y= y+ sin(ori+pi)*l*incr
-   end sub
-
-   public sub fw(l)
-      dim x1,y1
-      x1=x + cos(ori)*l*incr
-      y1=y + sin(ori)*l*incr
-      if pdown then line x,y,x1,y1
-      x=x1:y=y1
-   end sub
-
-   Private Sub Class_Initialize()
-      setlocale "us"
-      initsvg
-      pdown=true
-   end sub
-
-   Private Sub Class_Terminate()
-      disply
-   end sub
-
-   private sub line (x,y,x1,y1)
-      svg.WriteLine "<line x1=""" & x & """ y1= """& y & """ x2=""" & x1& """ y2=""" & y1 & """/>"
-   end sub
-
-   private sub disply()
-       dim shell
-       svg.WriteLine "</svg></body></html>"
-       svg.close
-       Set shell = CreateObject("Shell.Application")
-       shell.ShellExecute fn,1,False
-   end sub
-
-   private sub initsvg()
-     dim scriptpath
-     Set fso = CreateObject ("Scripting.Filesystemobject")
-     ScriptPath= Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\"))
-     fn=Scriptpath & "SIERP.HTML"
-     Set svg = fso.CreateTextFile(fn,True)
-     if SVG IS nothing then wscript.echo "Can't create svg file" :vscript.quit
-     svg.WriteLine "<!DOCTYPE html>" &vbcrlf & "<html>" &vbcrlf & "<head>"
-     svg.writeline "<style>" & vbcrlf & "line {stroke:rgb(255,0,0);stroke-width:.5}" &vbcrlf &"</style>"
-     svg.writeline "</head>"&vbcrlf & "<body>"
-     svg.WriteLine "<svg xmlns=""http://www.w3.org/2000/svg"" width=""800"" height=""800"" viewBox=""0 0 800 800"">"
-   end sub
-end class
-
-sub hilb (n,a)
-if n=0 then exit sub
-x.rt a
-hilb n-1,-a: x.fw 1:x.lt a: Hilb n - 1,a
-x.fw 1
-hilb n-1,a : x.lt a: x.fw 1: Hilb n - 1,-a
-x.rt a
-end sub
-
-
-dim x
-set x=new turtle
-x.iangle=90
-x.orient=0
-x.incr=5
-x.x=100:x.y=700
-'star5
-hilb 7,1
-set x=nothing