koch_fractales

SUBMITTED BY: Guest

DATE: March 27, 2013, 4:33 p.m.

FORMAT: Python

SIZE: 2.6 kB

Raw Download

HITS: 1432

Report
  1. def cubefrac(a,b,c,w,n,div):
  2. i=0
  3. liste=[[w/2,w/2,0], [w/2,-w/2,0], [-w/2,w/2,0], [-w/2,-w/2,0], [0,w/2,w/2], [0,w/2,-w/2], [0,-w/2,w/2], [0,-w/2,-w/2], [w/2,0,w/2], [w/2,0,-w/2], [-w/2,0,+w/2], [-w/2,0,-w/2]]
  4. if n==0:
  5. print""
  6. else:
  7. for i in range(len(liste)):
  8. x, y, z =a+liste[i][0], b+liste[i][1], c+liste[i][2]
  9. print "polyCube -w", w/div, "-h", w/div, "-d", w/div,"-sx 1 -sy 1 -sz 1 -ax 0 1 0 -cuv 4 -ch 1;"
  10. print "move -r -os -wd", x, y, z,";"
  11. cubefrac(x,y,z,w/div,n-1,div)
  13. cubefrac(0,0,0,10.0,4,2.9198)
  14. print "polyCube -w", 10, "-h", 10, "-d", 10,"-sx 1 -sy 1 -sz 1 -ax 0 1 0 -cuv 4 -ch 1;"
  17. curve -d 1 -p 0 0 0 -p 1 0 0 -k 0 -k 1 ;
  18. duplicate -rr;
  19. move -r -os -wd 1 0 0 ;
  20. rotate -r -ws 0 0 60 ;
  21. duplicate -rr;
  22. move -r -os -wd 1 0 0 ;
  23. rotate -r -ws 0 0 60 ;
  24. duplicate -rr;
  25. move -r -os -wd 1 0 0 ;
  26. rotate -r -ws 0 0 60 ;
  27. duplicate -rr;
  28. move -r -os -wd 1 0 0 ;
  29. rotate -r -ws 0 0 60 ;
  30. duplicate -rr;
  31. move -r -os -wd 1 0 0 ;
  32. rotate -r -ws 0 0 60 ;
  33. duplicate -rr;
  34. move -r -os -wd 1 0 0 ;
  35. rotate -r -ws 0 0 60 ;
  36. duplicate -rr;
  37. move -r -os -wd 1 0 0 ;
  38. rotate -r -ws 0 0 -120 ;
  39. duplicate -rr;
  40. move -r -os -wd 1 0 0 ;
  41. rotate -r -ws 0 0 60 ;
  42. duplicate -rr;
  43. move -r -os -wd 1 0 0 ;
  44. rotate -r -ws 0 0 -120 ;
  45. duplicate -rr;
  46. move -r -os -wd 1 0 0 ;
  47. rotate -r -ws 0 0 60 ;
  48. duplicate -rr;
  49. move -r -os -wd 1 0 0 ;
  50. rotate -r -ws 0 0 60 ;
  54. select -r curve1 curve2 curve3 curve4 ;
  55. group; xform -os -piv 0 0 0;
  56. duplicate -rr;
  57. move -r 3 0 0;
  58. rotate -r -ws 0 0 60 ;
  59. duplicate -rr; scale -r 1 -1 1;
  60. rotate -r -ws 0 0 60 ;
  61. move -r 3 0 0 ;
  62. duplicate -rr; scale -r 1 1 1;
  63. rotate -r -ws 0 0 60 ;
  64. move -r 3 0 0 ;
  66. select -r group1 group2 group3 group4 ;
  67. group; xform -os -piv 0 0 0;
  68. duplicate -rr;
  69. move -r 9 0 0;
  70. rotate -r -ws 0 0 60 ;
  71. duplicate -rr; scale -r 1 -1 1;
  72. rotate -r -ws 0 0 60 ;
  73. move -r 9 0 0 ;
  74. duplicate -rr; scale -r 1 1 1;
  75. rotate -r -ws 0 0 60 ;
  76. move -r 9 0 0 ;
  78. select -r group5 group6 group7 group8 ;
  79. group; xform -os -piv 0 0 0;
  80. duplicate -rr;
  81. move -r 27 0 0;
  82. rotate -r -ws 0 0 60 ;
  83. duplicate -rr; scale -r 1 -1 1;
  84. rotate -r -ws 0 0 60 ;
  85. move -r 27 0 0 ;
  86. duplicate -rr; scale -r 1 1 1;
  87. rotate -r -ws 0 0 60 ;
  88. move -r 27 0 0 ;
comments powered by Disqus