aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
Download patch file Download diff file Expand all files Collapse all files

38
Task/Pentagram/Red/pentagram.red
View file

@ -1,7 +1,7 @@
Red [
Source: https://github.com/vazub/rosetta-red
Tabs: 4
Needs: 'View
Source: https://github.com/vazub/rosetta-red
Tabs: 4
Needs: 'View
]
canvas: 500x500
@ -9,23 +9,23 @@ center: as-pair canvas/x / 2 canvas/y / 2
radius: 200
points: collect [
repeat vertex 10 [
angle: vertex * 36 + 18 ;-- +18 is required for pentagram rotation
either vertex // 2 = 1 [
keep as-pair (cosine angle) * radius + center/x (sine angle) * radius + center/y
][
keep as-pair (cosine angle) * radius * 0.382 + center/x (sine angle) * radius * 0.382 + center/y
]
]
repeat vertex 10 [
angle: vertex * 36 + 18 ;-- +18 is required for pentagram rotation
either vertex // 2 = 1 [
keep as-pair (cosine angle) * radius + center/x (sine angle) * radius + center/y
][
keep as-pair (cosine angle) * radius * 0.382 + center/x (sine angle) * radius * 0.382 + center/y
]
]
]
view [
title "Pentagram"
base canvas white
draw compose/deep [
fill-pen mint
polygon (points)
line-width 3
line (points/1) (points/5) (points/9) (points/3) (points/7) (points/1)
]
title "Pentagram"
base canvas white
draw compose/deep [
fill-pen mint
polygon (points)
line-width 3
line (points/1) (points/5) (points/9) (points/3) (points/7) (points/1)
]
]