Pentagram: Difference between revisions

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

{{libheader|Action! Tool Kit}}

 

DEFINE REALPTR="CARD"

DO UNTIL CH#$FF OD

CH=$FF

{{out}}

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

=={{header|Ada}}==

{{libheader|SDLAda}}

 

with SDL.Video.Windows.Makers;

Window.Finalize;

SDL.Finalise;

 

=={{header|AutoHotkey}}==

[[File:Pentagram Java.png|300px|thumb|right]]

#Include Gdip.ahk ; https://autohotkey.com/boards/viewtopic.php?f=6&t=6517

Width :=A_ScreenWidth, Height := A_ScreenHeight

Gdip_Shutdown(pToken)

ExitApp

 

=={{header|C}}==

Interactive program which takes the side lengths of the pentagram's core, it's arms and the colours for filling the background, drawing the figure and then filling it in. Requires the [http://www.cs.colorado.edu/~main/bgi/cs1300/ WinBGIm] library.

 

#include<stdio.h>

#include<math.h>

closegraph();

}

=={{header|Delphi}}==

{{libheader| Winapi.Windows}}

{{libheader| Vcl.Forms}}

{{libheader| System.Math}}

unit Main;

 

end;

 

form code:

object Form1: TForm1

OnCreate = FormCreate

OnPaint = FormPaint

end

 

 

=={{header|EasyLang}}==

 

linewidth 2

move xp yp

.

color 900

 

=={{header|Go}}==

{{libheader|Go Graphics}}

 

import (

dc.Stroke()

dc.SavePNG("pentagram.png")

 

{{out}}

</pre>

creates a 400x400 SVG file.

-- from one to the next forms a pentagram. Set the line's thickness and its

-- colour, as well as the fill and background colours. Make the background a

# bgFrame 0.2 bisque

 

 

=={{header|J}}==

Probably the simplest approach is:

 

 

This will give a pentagram with a blue border and a white interior.

[[File:Pentagram Java.png|300px|thumb|right]]

{{works with|Java|8}}

import java.awt.geom.Path2D;

import javax.swing.*;

});

}

 

=={{header|jq}}==

Notice that the size of an appropriate SVG viewBox is computed.

 

def svg:

# viewBox = <min-x> <min-y> <width> <height>

 

pentagram(200)

{{out}}

<pre>

=={{header|Julia}}==

 

 

function drawpentagram(path::AbstractString, w::Integer=1000, h::Integer=1000)

end

 

 

=={{header|Kotlin}}==

{{trans|Java}}

 

import java.awt.*

}

}

 

=={{header|Lua}}==

Using the Bitmap class [[Bitmap#Lua|here]], with an ASCII pixel representation, then extending with <code>line()</code> as [[Bitmap/Bresenham%27s_line_algorithm#Lua|here]], then extending with <code>floodfill()</code> as [[Bitmap/Flood_fill#Lua|here]], then extending further..

 

function Bitmap:render()

bitmap:clear(".")

bitmap:pentagram(20, 22, 20, -pi/2, "@", '+')

{{out}}

<pre style="font-size:50%">................................................................................

 

=={{header|Maple}}==

RegularStarPolygon(middle, 5/2, point(c, 0, 0), 1):

v := [seq(coordinates(i), i in DefinedAs(middle))]:

pentagram := plottools[rotate](plottools[polygon](v), Pi/2):

{{out}}

Note: Plot shown below is generated using interface(plotdevice = char);

 

=={{header|Mathematica}}/{{header|Wolfram Language}}==

EdgeForm[Directive[Thickness[0.01], RGBColor[0, 0, 1]]],(*Edge coloring*)

RGBColor[0.5, 0.5, .50], (*Fill coloring*)

Polygon[AnglePath[Table[6 Pi/5, 5]]]}

 

=={{header|Nim}}==

{{works with|nim|1.4.4}}

{{libheader|nim-libgd}}

import libgd

from math import sin, cos, degToRad

 

main()

 

=={{header|ooRexx}}==

* Create a BMP file showing a pentagram

**********************************************************************/

end

Return

 

=={{header|Perl}}==

 

my $tau = 2 * 4*atan2(1, 1);

open $fh, '>', 'pentagram.svg';

print $fh $svg->xmlify(-namespace=>'svg');

[https://github.com/SqrtNegInf/Rosettacode-Perl5-Smoke/blob/master/ref/pentagram.svg Pentagram] (offsite image)

 

{{libheader|Phix/online}}

You can run this online [http://phix.x10.mx/p2js/Pentagram.htm here].

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

-- demo\rosetta\Pentagram.exw

<span style="color: #000000;">main</span><span style="color: #0000FF;">()</span>

 

And a quick svg version, output identical to sidef

{{trans|Sidef}}

<span style="color: #008080;">without</span> <span style="color: #008080;">js</span>

<span style="color: #008080;">constant</span> <span style="color: #000000;">HDR</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">"""

<span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">pentagram</span><span style="color: #0000FF;">())</span>

 

=={{header|PostScript}}==

%%BoundingBox: 0 0 200 600

s 170 t p s 2 setlinewidth stroke r g fill r % non-zero, but hide inner strokes

 

 

The following isn't exactly what the task asks for, but it's kind of fun if you have a PS interpreter that progressively updates. The program draws a lot of stars, so it's extremely likely that some of them are pentagrams...

%%BoundingBox: 0 0 400 400

 

 

0 setlinewidth 2000 {star} repeat showpage

 

=={{header|Processing}}==

//Aamrun, 29th June 2022

 

}

endShape(CLOSE);

 

=={{header|Python}}==

{{works with|Python|3.4.1}}

 

 

turtle.bgcolor("green")

t.forward(200)

t.right(144)

 

=={{header|Quackery}}==

 

[ [ 1 1

-1 10 turn

200 1 phi v* phi v* pentagram

 

{{output}}

 

 

=={{header|R}}==

Very simple approach,

y = c(0, 1, 0,0.6, 0.6,0))

plot(p)

 

==={{header|Using circle equation}}===

each point on the circumference is 72 degrees apart,

5 points on the circles circumference are calculated and than plotted and line drawn in-between to produce pentagram

#x = r*cos(angle) + centre_x

#y = r*sin(angle) + centre_y

col = "#1b98e0",

border = "red",

 

=={{header|Racket}}==

 

(require 2htdp/image)

 

(overlay

(star-polygon 100 5 2 "outline" (make-pen "blue" 4 "solid" "round" "round"))

 

=={{header|Raku}}==

{{works with|rakudo|2018.08}}

Generate an SVG file to STDOUT. Redirect to a file to capture and display it.

 

constant $dim = 200;

],

],

See [https://github.com/thundergnat/rc/blob/master/img/pentagram-perl6.svg Pentagram] (offsite svg image)

 

 

=={{header|Red}}==

Source: https://github.com/vazub/rosetta-red

Tabs: 4

]

]

 

=={{header|REXX}}==

{{trans|ooRexx}}

* Create a BMP file showing a pentagram

**********************************************************************/

End

Numeric Digits prec

 

=={{header|Ring}}==

# Project : Pentagram

 

label1 { setpicture(p1) show() }

return

Output:

 

=={{header|Scala}}==

===Java Swing Interoperability===

import java.awt.geom.Path2D

 

)

 

 

=={{header|Sidef}}==

{{trans|Raku}}

Generates a SVG image to STDOUT.

var pentagram = <<-EOT

<?xml version="1.0" standalone="no" ?>

<rect height="100%" width="100%" style="fill:black;" />

EOT

 

func pline(q) {

<<-EOT

style="fill:blue; stroke:white; stroke-width:3;"

transform="translate(#{dim}, #{dim}) rotate(-18)" />

}

 

pentagram += pline([v[range(0, v.end, 2)], v[range(1, v.end, 2)]].map{.reals})

pentagram += '</svg>'

}

 

{{out}}

<pre><?xml version="1.0" standalone="no" ?>

 

=={{header|SPL}}==

xc = mx/2

yc = my/2

#.drawcolor(1,1,0)

#.drawsize(1)

 

=={{header|Tcl}}==

This implementation draws a simple pentagram on a [http://wiki.tcl.tk/1415 Canvas] widget.

{{works with|Tcl|8.6}}

package require Tk 8.6 ;# lmap is new in Tcl/Tk 8.6

 

;# a fun reader exercise is to make the shape respond to mouse events,

;# or animate it!

 

=={{header|Wren}}==

{{trans|Go}}

{{libheader|DOME}}

import "dome" for Window

 

}

}

 

=={{header|XPL0}}==

int X, Y, \starting coordinate for flood fill algorithm

C0, C; \initial color, and color to replace it with

];

FillArea(0, 0, $F, 1); \replace white (F) with blue (1)

 

=={{header|zkl}}==

{{trans|Raku}}

Generate an SVG file to STDOUT. Redirect to a file to capture and display it.

vs:=[0.0..360-A,A].apply("toRad"); // angles of vertices

#<<<

);

}

{{out}}

<pre>