Pentagram: Difference between revisions
no edit summary
No edit summary |
|||
Line 742:
Numeric Digits prec
Return r+0</lang>
=={{header|Ring}}==
<lang ring>
# Project : Pentagram
# Date : 2018/01/21
# Author : Gal Zsolt [~ CalmoSoft ~]
# Email : <calmosoft@gmail.com>
load "guilib.ring"
paint = null
new qapp
{
win1 = new qwidget() {
setwindowtitle("Pentagram")
setgeometry(100,100,500,600)
label1 = new qlabel(win1) {
setgeometry(10,10,400,400)
settext("")
}
new qpushbutton(win1) {
setgeometry(150,500,100,30)
settext("draw")
setclickevent("draw()")
}
show()
}
exec()
}
func draw
p1 = new qpicture()
color = new qcolor() {
setrgb(0,0,255,255)
}
pen = new qpen() {
setcolor(color)
setwidth(5)
}
paint = new qpainter() {
begin(p1)
setpen(pen)
nn = 165
cx = 800
cy = 600
phi = 54
color = new qcolor()
color.setrgb(0, 0, 255,255)
mybrush = new qbrush() {setstyle(1) setcolor(color)}
setbrush(mybrush)
for n = 1 to 5
theta = fabs(180-144-phi)
p1x = floor(cx + nn * cos(phi * 0.01745329252))
p1y = floor(cy + nn * sin(phi * 0.01745329252))
p2x = floor(cx - nn * cos(theta * 0.01745329252))
p2y = floor(cy - nn * sin(theta * 0.01745329252))
phi+= 72
drawpolygon([[p1x,p1y],[cx,cy],[p2x,p2y]],0)
next
endpaint()
}
label1 { setpicture(p1) show() }
return
</lang>
Output:
https://www.dropbox.com/s/znbcsoatlc00n4w/Pentagram.jpg?dl=0
=={{header|Sidef}}==
| |||