Simple turtle graphics: Difference between revisions

=={{header|Action!}}==

{{libheader|Action! Tool Kit}}

PROC Rectangle(INT w,h)

DO UNTIL CH#$FF OD

CH=$FF

{{out}}

[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Simple_turtle_graphics.png Screenshot from Atari 8-bit computer]

=={{header|Ada}}==

with Ada.Text_IO; use Ada.Text_IO;

with Ada.Characters; use Ada.Characters;

New_Line;

end main;

=={{header|J}}==

Prerequisites (requires a network connection or, for a non-networked system, significant technical savvy), and assumes user is running the a recent version of J's qtide (perhaps J 9.3):

Implementation (note that this is meant to be copied and pasted to a file which J will load, rather than being typed in line by line -- manual typing would work if no errors were made, but that would be a painstaking approach):

rotR 0 0 _90

translate 0 0 _40

forward 10

left 270

Opens a window with the indicated content. House is red, barchart is blue.

{{trans|Wren}}

Outputs a PNG file.

function house(🐢, x, y, siz)

testturtle()

=={{header|Logo}}==

{{trans|Quackery}}

repeat 2 [

forward :height

pendown

barchart [ 0.5 0.33333 2 1.3 0.5 ] 200

{{out}}

=={{header|Perl}}==

Added octangle window to house attic.

use strict; # https://rosettacode.org/wiki/Simple_turtle_graphics

pendown;

graph( 400, 2,7,4,5,1,8,6 );

=={{header|Phix}}==

You can run this online [http://phix.x10.mx/p2js/simpleturtlegraphics.htm here].<br>

I factored out some common code for the 2D and 3D versions (or started to, distributed version contains some additional diag aids)

<span style="color: #000080;font-style:italic;">-- demo\rosetta\turtle.e</span>

<span style="color: #008080;">include</span> <span style="color: #000000;">pGUI</span><span style="color: #0000FF;">.</span><span style="color: #000000;">e</span>

<span style="color: #000000;">pen_down</span> <span style="color: #0000FF;">=</span> <span style="color: #004600;">false</span>

<span style="color: #008080;">end</span> <span style="color: #008080;">procedure</span>

<span style="color: #000080;font-style:italic;">--

-- demo\rosetta\Simple_turtle_graphics.exw

<span style="color: #7060A8;">IupClose</span><span style="color: #0000FF;">()</span>

<span style="color: #008080;">end</span> <span style="color: #008080;">if</span>

=={{header|Python}}==

{{trans|Quackery}}

def rectangle(width, height):

penup()

back(10)

{{out}}

=={{header|Quackery}}==

[ behead do

10 1 fly

' [ [ 1 2 ] [ 1 3 ] [ 2 1 ] [ 13 10 ] [ 1 2 ] ] 200 1 barchart

{{output}}

{{libheader|DOME}}

{{libheader|Wren-turtle}}

import "graphics" for Canvas, Color

import "./turtle" for Turtle

}

{{out}}

=={{header|Yabasic}}==

{{trans|Python}}

// Adapted from Python to Yabasic by Galileo, 01/2022

move(10)

pen(true)