Revision as of 14:44, 19 November 2023 (view source) imported>Thebeez (→‎{{header\|uBasic/4tH}}) ← Older edit		Revision as of 21:48, 19 November 2023 (view source) imported>Thebeez m (→‎{{header\|uBasic/4tH}}) Newer edit →
Line 1,185: EndIf ' draw a line Proc _Line (a, b, Set (a, a + (((-1 * FUNC(_COS(r)))a@)/10000)), Set (b, b + ((FUNC(_SIN(r))a@)/10000))) Return Line 1,253: _Canvas ' set up a canvas x wide and y high Param (2) Write @o(0), "<svg width=\q";a@;"\q height=\q";b@;"\q viewBox=\q0 0 ";a@;" ";b@; Write @o(0), "\q xmlns=\qhttp://www.w3.org/2000/svg\q "; Line 1,278 ⟶ 1,279: IF A@ THEN PUSH -POP() RETURN ' return COS(x*10K), scaled by 10K _COS PARAM(1) : PUSH ABS(A@%62832) : IF TOS()>31416 THEN PUSH 62832-POP()

Dragon curve: Difference between revisions

Dragon curve (view source)