드래곤 커브 2

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

1. 파스칼
2. 파이썬
3. 거북이
4. 델파이
5. 자바 스크립트

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

procedure Dragon(n,a,t:Integer; d,x,y: Double; var b: TBitmap);
  var a1, a2: integer;
begin
 if n 



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

<pre class="brush:php;toolbar:false">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 as Pen.Color:= (p);

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

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

깊이 = 9

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

거북이 소리

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

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;

자바스크립트 내장

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

<!-- DragonCurve.html -->


<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>


<p><b>Please input order, scale, x-shift, y-shift, color:></b></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 id="Dragon-curve">Dragon curve</h3>
<canvas id="canvId" width="640" height="640" style="border: 2px inset;"></canvas>

 

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

전체 5개 언어 스크립트

위 내용은 드래곤 커브 2의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!