드래곤 커브 2-JS 튜토리얼-php.cn

드래곤 커브 2

WBOY

풀어 주다： 2024-08-08 16:30:22

원래의

809명이 탐색했습니다.

5개 언어 솔루션으로 드래곤 커브를 보여주고 싶습니다.

파스칼
파이썬
거북이
델파이
자바 스크립트

드래곤 곡선은 자기유사 프랙탈 곡선 계열의 구성원으로, Pascal의 절차와 같이 Lindenmayer 시스템과 같은 재귀적 방법으로 근사화할 수 있습니다.

procedure Dragon(n,a,t:Integer; d,x,y: Double; var b: TBitmap);
  var a1, a2: integer;
begin
 if n <= 1 then begin
   with b.Canvas do begin
     Pen.Color:= random(p);
     MoveTo(Trunc(x + 0.5), Trunc(y + 0.5));
     LineTo(Trunc(x + d *_cos[a]+0.5),Trunc(y+d *_sin[a]+0.5));
     exit;
   end;
 end;
 d:= d * s;
 a1:= (a - t) and 7;
 a2:= (a + t) and 7;
 dragon(n - 1, a1, 1, d, x, y, b);
 dragon(n - 1, a2, -1, d, x + d *_cos[a1], y + d *_sin[a1], b);
end;

로그인 후 복사

재귀적으로 오른쪽 컬링 드래곤은 90도 각도에서 오른쪽 드래곤 다음에 왼쪽 드래곤이 뒤따르는 것입니다. 그리고 왼쪽 용은 왼쪽 뒤에 오른쪽이 있습니다. maXbox의 Python 및 Turtle에서도 마찬가지입니다.

Const DRAGFUNC =
  'def dragon(level=4, size=200, direction=45):   '+LF+
  '  if level:                                     '+LF+
  '      right(direction)                          '+LF+
  '      dragon(level-1, size/1.41421356237, 45)   '+LF+
  '      left(direction * 2)                       '+LF+
  '      dragon(level-1, size/1.41421356237, -45)  '+LF+
  '      right(direction)                          '+LF+
  '  else:                                         '+LF+
  '      forward(size)                             ';

function PyCodeDragonTurtle(imgpath, aAPIKey: string): string;
begin
  with TPythonEngine.Create(Nil) do begin
  //pythonhome:= 'C:\Users\User\AppData\Local\Programs\Python\Python312\';
  try
    loadDLL;
    autofinalize:= false;
    ExecString('from turtle import right,left,forward,speed, exitonclick,hideturtle');
    ExecStr(DRAGFUNC); 
    ExecStr('speed(0)');  
    //ExecStr('hideturtle()'); 
    ExecStr('dragon(6)');
    ExecStr('exitonclick()');
    //result:= (EvalStr('r.json()')); *)
  except
    raiseError;        
  finally      
    Free;
  end; 
 end;
end;

로그인 후 복사

용의 곡선은 아마도 종이를 반으로 반복해서 접어서 만든 모양으로 가장 흔히 생각될 것입니다.

Dragon Curve 2
Dragon as Pen.Color:= (p);

얻을 수 있는 스크립트:
다국어 스크립트

https://sourceforge.net/projects/maxbox/files/Examples/13_General/1320_dragon_curve_51_py.txt/download

Dragon Curve 2
깊이 = 9

Dragon Curve 2

Dragon Curve 2
펜.폭:= 2; Pen.Color := clime;

거북이 소리

Dragon Curve 2
각도를 진폭으로, 단계를 톤으로 하여 거북이 소리를 들어보세요.

procedure DrawDragon2(step, adir: integer; len:real);
begin
  //myturtle:= TJvTurtle.create(self);
  with myturtle do begin
    if (step >-1) and (len >1) then begin
      len:= len /sqrt(2);
      Turn(45*adir);
        DrawDragon2(step-1, +1, len);
      Turn(-90*adir);
        DrawDragon2(step-1, -1, len);
      Turn(45*adir);
    end else      //*)
      moveforward(len )
  end;  
end;

로그인 후 복사

Dragon Curve 2

자바스크립트 내장

Microsoft Edge WebView2 컨트롤을 사용하면 기본 앱에 웹 기술(HTML, CSS 및 JavaScript)을 포함할 수 있습니다. WebView2 컨트롤은 Microsoft Edge를 렌더링 엔진으로 사용하여 기본 앱에 웹 콘텐츠를 표시합니다.

Dragon Curve 2

<!-- DragonCurve.html -->
<html>
<head>
<script type='text/javascript'>
function pDragon(cId) {
  // Plotting Dragon curves. 2/25/17 aev
  var n=document.getElementById('ord').value;
  var sc=document.getElementById('sci').value;
  var hsh=document.getElementById('hshi').value;
  var vsh=document.getElementById('vshi').value;
  var clr=document.getElementById('cli').value;
  var c=c1=c2=c2x=c2y=x=y=0, d=1, n=1<<n;
  var cvs=document.getElementById(cId);
  var ctx=cvs.getContext("2d");
  hsh=Number(hsh); vsh=Number(vsh);
  x=y=cvs.width/2;
  // Cleaning canvas, init plotting
  ctx.fillStyle="white"; ctx.fillRect(0,0,cvs.width,cvs.height);
  ctx.beginPath();
  for(i=0; i<=n;) {
    ctx.lineTo((x+hsh)*sc,(y+vsh)*sc);
    c1=c&1; c2=c&2;
    c2x=1*d; if(c2>0) {c2x=(-1)*d}; c2y=(-1)*c2x;
    if(c1>0) {y+=c2y} else {x+=c2x}
    i++; c+=i/(i&-i);
  }
  ctx.strokeStyle = clr;  ctx.stroke();
}
</script>
</head>
<body>
<p><b>Please input order, scale, x-shift, y-shift, color:</></p>
<input id=ord value=11 type="number" min="7" max="25" size="2">
<input id=sci value=7.0 type="number" min="0.001" max="10" size="5">
<input id=hshi value=-265 type="number" min="-50000" max="50000" size="6">
<input id=vshi value=-260 type="number" min="-50000" max="50000" size="6">
<input id=cli value="red" type="text" size="14">
<button onclick="pDragon('canvId')">Plot it!</button>
<h3>Dragon curve</h3>
<canvas id="canvId" width=640 height=640 style="border: 2px inset;"></canvas>
</body>
</html>

로그인 후 복사

Dragon Curve 2
maXbox5의 EdgeView에서 수정 및 탐색
다음에서 찾을 수 있는 스크립트: