home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Canadian Multi-Median 3
/
cmm3.zip
/
BTRFLY1.BAS
(
.txt
)
next >
Wrap
QuickBASIC Tokenized Source
|
1995-01-09
|
1KB
|
10 lines
constry
theta
coTAN
nu2d2r2u2l2
bf1p1
(iterations = pi * ?/2; coarseness = STEP .?)S
r * -COS(theta) - 2 makes butterfly face left
y * ? controls tightness of butterfly wings;
smaller ?, tighter wings