Vibrating rectangles: Difference between revisions
Content added Content deleted
(Created page with "Create [https://www.dropbox.com/s/08iob5u7vvbtz08/VibratingRectangles.avi?dl=0 Vibrating rectangles]") |
No edit summary |
||
Line 1:
Create [https://www.dropbox.com/s/08iob5u7vvbtz08/VibratingRectangles.avi?dl=0 Vibrating rectangles]
=={{header|Ring}}==
<lang ring>
# Project : Vibrating rectangles
# Date : 2018/07/18
# Author : Gal Zsolt (~ CalmoSoft ~), Bert Mariani, Mahmoud Fayed
# Email : <calmosoft@gmail.com>
Load "guilib.ring"
color1 = new qcolor() { setrgb( 255,0,0,255 ) }
pen1 = new qpen() { setcolor(color1) setwidth(2) }
color2 = new qcolor() { setrgb( 0,255,0,255 ) }
pen2 = new qpen() { setcolor(color2) setwidth(2) }
color3 = new qcolor() { setrgb( 0,0,255,255 ) }
pen3 = new qpen() { setcolor(color3) setwidth(2) }
penArray = [pen1, pen2, pen3]
penNbr = 1
New qapp
{
win1 = new qwidget()
{
setwindowtitle("Drawing using QPixMap")
setgeometry(100,100,500,500)
label1 = new qlabel(win1)
{
setgeometry(10,10,500,500)
settext("")
}
Canvas = new qlabel(win1)
{
MonaLisa = new qPixMap2( 500,500)
color = new qcolor(){ setrgb(255,0,0,255) }
daVinci = new qpainter()
{
begin(MonaLisa)
}
setpixmap(MonaLisa)
}
nCounter = 0
oTimer = new qTimer(win1) {
setinterval(500)
settimeoutevent("DrawCounter()")
start()
}
show()
}
exec()
}
DrawCounter()
func DrawCounter()
nCounter++
if nCounter < 15
Draw(penArray[penNbr])
elseif nCounter % 15 = 0
nCounter = 0
penNbr++
if penNbr > 3
penNbr = 1
ok
Draw(penArray[penNbr])
ok
return
Func Draw(pen1)
daVinci.setpen(penArray[penNbr])
daVinci.drawrect(50+nCounter*10, 50+nCounter*10, 300-nCounter*20, 300-nCounter*20)
Canvas.setpixmap(MonaLisa)
win1.show()
return
</lang>
Output:
[https://www.dropbox.com/s/08iob5u7vvbtz08/VibratingRectangles.avi?dl=0 Vibrating rectangles]
|
Revision as of 03:55, 18 July 2018
Create Vibrating rectangles
Ring
<lang ring>
- Project : Vibrating rectangles
- Date : 2018/07/18
- Author : Gal Zsolt (~ CalmoSoft ~), Bert Mariani, Mahmoud Fayed
- Email : <calmosoft@gmail.com>
Load "guilib.ring"
color1 = new qcolor() { setrgb( 255,0,0,255 ) } pen1 = new qpen() { setcolor(color1) setwidth(2) }
color2 = new qcolor() { setrgb( 0,255,0,255 ) } pen2 = new qpen() { setcolor(color2) setwidth(2) }
color3 = new qcolor() { setrgb( 0,0,255,255 ) } pen3 = new qpen() { setcolor(color3) setwidth(2) }
penArray = [pen1, pen2, pen3] penNbr = 1
New qapp {
win1 = new qwidget() { setwindowtitle("Drawing using QPixMap") setgeometry(100,100,500,500) label1 = new qlabel(win1) { setgeometry(10,10,500,500) settext("") } Canvas = new qlabel(win1) { MonaLisa = new qPixMap2( 500,500) color = new qcolor(){ setrgb(255,0,0,255) }
daVinci = new qpainter() { begin(MonaLisa) } setpixmap(MonaLisa) }
nCounter = 0 oTimer = new qTimer(win1) { setinterval(500) settimeoutevent("DrawCounter()") start() }
show() } exec()
} DrawCounter()
func DrawCounter()
nCounter++ if nCounter < 15 Draw(penArray[penNbr]) elseif nCounter % 15 = 0 nCounter = 0 penNbr++ if penNbr > 3 penNbr = 1 ok Draw(penArray[penNbr]) ok
return
Func Draw(pen1)
daVinci.setpen(penArray[penNbr]) daVinci.drawrect(50+nCounter*10, 50+nCounter*10, 300-nCounter*20, 300-nCounter*20) Canvas.setpixmap(MonaLisa) win1.show()
return </lang> Output: