Jump to content
Main menu
Main menu
move to sidebar
hide
Social
Discord
Facebook
Twitter
Explore
Languages
Tasks
Random page
Rosetta Code
Search
Search
Create account
Log in
Personal tools
Dark mode
Create account
Log in
Pages for logged out editors
learn more
Contributions
Talk
Vibrating rectangles: Difference between revisions
Page
Discussion
English
Read
View source
View history
Tools
Tools
move to sidebar
hide
Actions
Read
View source
View history
Refresh
General
What links here
Related changes
Special pages
Page information
Get shortened URL
Help
Content added
Content deleted
Inline
Revision as of 07:13, 19 July 2018
(
view source
)
CalmoSoft
(
talk
|
contribs
)
(
→{{header|Ring}}
)
← Older edit
Revision as of 07:25, 19 July 2018
(
view source
)
CalmoSoft
(
talk
|
contribs
)
(Blanked the page)
Newer edit →
Line 1:
{{draft task}}
Create [https://1drv.ms/v/s!AqDUIunCqVnIg1MxKPi5DzwUbJEf Vibrating rectangles]
<div class="messagebox">This task has been flagged for [[Help:Task Clarity|clarification]]. Code on this page in its current state may be flagged incorrect once this task has been clarified.</div>
=={{header|Ring}}==
{{draft task}}
<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://1drv.ms/v/s!AqDUIunCqVnIg1MxKPi5DzwUbJEf Vibrating rectangles]
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information
OK
Toggle limited content width