Pentagram: Difference between revisions
Content added Content deleted
m (→{{header|Red}}) |
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
||
Line 174: | Line 174: | ||
ExitApp |
ExitApp |
||
Return</lang> |
Return</lang> |
||
=={{header|C}}== |
=={{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. |
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. |
||
Line 685: | Line 686: | ||
close $fh;</lang> |
close $fh;</lang> |
||
[https://github.com/SqrtNegInf/Rosettacode-Perl5-Smoke/blob/master/ref/pentagram.svg Pentagram] (offsite image) |
[https://github.com/SqrtNegInf/Rosettacode-Perl5-Smoke/blob/master/ref/pentagram.svg Pentagram] (offsite image) |
||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
=={{header|Phix}}== |
=={{header|Phix}}== |
||
Line 979: | Line 952: | ||
(star-polygon 100 5 2 "outline" (make-pen "blue" 4 "solid" "round" "round")) |
(star-polygon 100 5 2 "outline" (make-pen "blue" 4 "solid" "round" "round")) |
||
(star-polygon 100 5 2 "solid" "cyan"))</lang> |
(star-polygon 100 5 2 "solid" "cyan"))</lang> |
||
⚫ | |||
(formerly Perl 6) |
|||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
=={{header|Red}}== |
=={{header|Red}}== |
||
Line 1,310: | Line 1,312: | ||
}</lang> |
}</lang> |
||
=={{header|Sidef}}== |
=={{header|Sidef}}== |
||
{{trans|Perl 6}} |
{{trans|Perl 6}} |
||
Line 1,408: | Line 1,411: | ||
End With |
End With |
||
End Sub</lang> |
End Sub</lang> |
||
=={{header|zkl}}== |
=={{header|zkl}}== |
||
{{trans|Perl 6}} |
{{trans|Perl 6}} |