Text Only
|
Text with Attachments
QB64.org Forum
Active Forums => Programs => Topic started by: SierraKen on March 20, 2022, 08:06:58 pm
Title:
Flower
Post by:
SierraKen
on
March 20, 2022, 08:06:58 pm
I made my first rose today for the First Day of Spring. I posted the picture of it below.
Code: QB64:
[Select]
Screen
_NewImage
(
800
,
600
,
32
)
_Title
"Happy First Day Of Spring!"
_Limit
30
Paint
(
1
,
1
)
,
_RGB32
(
128
,
255
,
255
)
For
sz
=
.1
To
600
Step
.1
Circle
(
400
,
900
)
,
sz
,
_RGB32
(
127
,
255
,
127
)
Next
sz
Line
(
398
,
300
)
-
(
402
,
250
)
,
_RGB32
(
127
,
255
,
0
)
,
BF
For
sz2
=
-
5
To
5
Step
.5
Circle
(
400
-
sz2
,
150
+
sz2
)
,
sz2
+
100
,
_RGB32
(
255
,
0
,
0
)
,
_Pi
,
(
3
*
_Pi
)
/
2
Circle
(
300
+
sz2
,
250
-
sz2
)
,
sz2
+
100
,
_RGB32
(
255
,
0
,
0
)
,
(
2
*
_Pi
)
,
_Pi
/
2
Next
sz2
For
sz3
=
-
5
To
5
Step
.5
Circle
(
400
+
sz3
,
150
+
sz3
)
,
sz3
+
100
,
_RGB32
(
255
,
0
,
0
)
,
(
3
*
_Pi
)
/
2
,
2
*
_Pi
Circle
(
500
-
sz3
,
250
-
sz3
)
,
sz3
+
100
,
_RGB32
(
255
,
0
,
0
)
,
(
_Pi
/
2
)
,
_Pi
Next
sz3
Line
(
399
,
200
)
-
(
401
,
150
)
,
_RGB32
(
127
,
255
,
127
)
,
BF
For
sz4
=
.1
To
5
Step
.1
Circle
(
400
,
145
)
,
sz4
,
_RGB32
(
255
,
255
,
127
)
Next
sz4
Paint
(
375
,
225
)
,
_RGB32
(
255
,
0
,
1
)
,
_RGB32
(
255
,
0
,
0
)
Paint
(
425
,
225
)
,
_RGB32
(
255
,
0
,
1
)
,
_RGB32
(
255
,
0
,
0
)
Do
Loop
Until
InKey$
<>
""
Title:
Re: Flower
Post by:
Pete
on
March 20, 2022, 08:52:24 pm
Makes me think we need a new QB64 keyword...
_ROUNDUP
Pete :D
Title:
Re: Flower
Post by:
bplus
on
March 20, 2022, 10:01:28 pm
OK for spring!
Code: QB64:
[Select]
_Title
"May Flowers"
'b+ trans 2022-03-20
'May flowers.bas SmallBASIC 2015-05-06 B+
Const
xmax
=
800
,
ymax
=
600
Screen
_NewImage
(
xmax
,
ymax
,
32
)
_ScreenMove
200
,
100
sq
=
(
ymax
-
100
)
^
4
For
i
=
0
To
100
Line
(
0
,
i
)
-
(
xmax
,
i
)
,
_RGB32
(
0
,
0
,
155
+
i
)
Next
For
i
=
100
To
ymax
Line
(
0
,
i
)
-
(
xmax
,
i
)
,
_RGB32
(
0
,
210
-
.25
*
i
,
0
)
Next
For
i
=
1
To
125
x
=
Rnd
*
xmax: s
=
Rnd
*
8
: y
=
100
-
s: cc
=
Rnd
*
75
: col~&
=
_RGB32
(
cc
,
cc
,
cc
)
Line
(
x
,
y
)
-
Step
(
s
,
s
)
,
col~&
,
BF
Next
Do
cc
=
Int
(
Rnd
*
12
)
*
5
+
200
col~&
=
_RGB32
(
cc
,
cc
,
0
)
petals
=
(
20
*
Rnd
)
+
5
xoff
=
Rnd
*
xmax
yoff
=
ymax
-
(
Rnd
*
sq
)
^
.25
size
=
(
yoff
/
100
)
^
2
For
theta
=
0
To
2
*
3.14159
Step
0.001
r
=
Cos
(
petals
*
theta
)
For
fil
=
0
To
size
x
=
r
*
Cos
(
theta
)
*
fil
+
xoff
y
=
r
*
Sin
(
theta
)
*
fil
+
yoff
PSet
(
x
,
y
)
,
col~&
Next
fil
Next
theta
_Limit
20
Loop
Until
InKey$
=
" "
How much Roundup does Pete have?
Title:
Re: Flower
Post by:
SierraKen
on
March 20, 2022, 10:05:31 pm
LOL Thanks B+. My pollen allergies!!! LOL
Text Only
|
Text with Attachments