by revega (5 Submissions)
Category: Graphics
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Originally Published: Wed 5th June 2002
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Shade a form with gradient color using circles that move in a sinewave shape. No API, functions with all VB's. Pure code... cool :]
VBcoders
'** Shade a form with gradient color
'** using shapes that flow in a sinewave.
'**
'**
'** From: revega May 06, 2002
'------------------------------------------
'
' Put this inside a command button or menu
freq = .01 'circle circumference
amp = .6 'sinewave shape
z% = 0 'pattern height [where to start drawing]
s% = 400 'sinewave shape
pi = 3.1415926
For x = 1 To 40
For a% = 0 To (60000 * freq) Step 2
form1.ForeColor = a%
Circle (a% / freq, -(Sin(a% / 2) * amp * s%) + z%), a%
Next a%
z% = z% + 200
'uncomment one for nice FX ;]
'freq=freq + .001
'freq = freq + .0001
For a% = 0 To (60000 * freq) Step 2
form1.ForeColor = a%
Circle (a% / freq, -(Sin(a% / 2) * amp * s%) + z%), a%
Next a%
Next x
'#$::::::::::__::::::__:::/¯¯\::::/\::$#
'::::' '::::\ \::::/ /::/ /\_\::/ \:::
':::/___ ) / __/\::/\__ \\ \ __/ /\ \::
'::/ < / __/\ \/ /\__ \\ \_\ \ \/ \:
':/__/__)/___/::\ /::\___\\____ \ \ /:
'::::::::::::::::\/:::::::::::::\_\ /::
'$:::::::::::::::::::::::::::::::::\/::$
'$$$$ underground facilities $$$$
'5$$$$$$$$$$$$$$$$$$00$$$$$$$$$$$$$$$$$8
No comments have been posted about Shade a form with gradient color using circles that move in a sinewave shape. No API, functions wit. Why not be the first to post a comment about Shade a form with gradient color using circles that move in a sinewave shape. No API, functions wit.