Pentagram: Difference between revisions

* [http://proofsfromthebook.com/2013/08/04/angle-sum-of-a-pentagram/ Angle sum of a pentagram]

<br><br>

 

=={{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|EasyLang}}==

 

xp = 10

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.

 

=={{header|Java}}==

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

{{works with|Java|8}}

import java.awt.geom.Path2D;

import javax.swing.*;

});

}

 

=={{header|Julia}}==

 

 

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

end

 

 

=={{header|Kotlin}}==

{{trans|Java}}

 

import java.awt.*

}

}

 

=={{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);

</pre>

 

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

 

=={{header|Phix}}==

Resizable and optionally rotating gui (desktop) version

 

=={{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|Python}}==

{{works with|Python|3.4.1}}

 

 

turtle.bgcolor("green")

t.forward(200)

t.right(144)

 

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