Data update

2026-02-01 16:33:20 -08:00 · 2026-02-01 16:33:20 -08:00 · 4bb20c9b71
commit 4bb20c9b71
parent 5150844a7d
7735 changed files with 38060 additions and 199180 deletions
--- a/Task/Sierpinski-triangle-Graphical/VBScript/sierpinski-triangle-graphical.vb
+++ b/Task/Sierpinski-triangle-Graphical/VBScript/sierpinski-triangle-graphical.vb
@ -1,120 +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
-     ' ori=ori+pi '?????
-   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
-      x=400:y=400:incr=100
-      ori=90*pi180
-      iang=90*pi180
-      clr=0
-      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 sier(lev,lgth)
-   dim i
-   'wscript.echo lev,lgth
-   if lev=1 then
-     for i=1 to 3
-       x.fw lgth
-       x.lt 2
-     next
-   else
-      sier lev-1,lgth\2
-      x.fw lgth\2
-      sier lev-1,lgth\2
-      x.bw lgth\2
-      x.lt 1
-      x.fw lgth\2
-      x.rt 1
-      sier lev-1,lgth\2
-      x.lt 1
-      x.bw lgth\2
-      x.rt 1
-    end if
-end sub
-
-dim x
-set x=new turtle
-x.iangle=60
-x.orient=0
-x.incr=10
-x.x=100:x.y=100
-'star5
-sier 7,64
-set x=nothing 'outputs html file to browser