Звездная галерея
Private Sub Star1()ss = 3m = 0.25xmax = 550ymax = 400Form1.ScaleMode = 3For X = 1 To xmax Step ssFor Y = 1 To ymax Step ssxx = X * myy = Y * mrr = Atn((yy - 20) * (xx - 20)) _* Atn((yy - 40) * (xx - 110))aa = Atn((yy - 60) * (xx - 80)) _* Atn((yy - 80) * (xx - 50))col = RGB(205 * Sin((aa * rr) * 4) ^ 8, _205 * Sin((aa * rr - rr) * 4) ^ 8, _205 * Sin((aa * rr) * 5) ^ 8)If ss > 1 Then Form1.Line (X, Y)-Step(ss, ss), Col, BFIf ss = 1 Then Form1.PSet (X, Y), ColNext YNext XEnd Sub
Private Sub Star2()ss = 3m = 0.25xmax = 550ymax = 400Form1.ScaleMode = 3For X = 1 To xmax Step ssFor Y = 1 To ymax Step ssxx = X * myy = Y * mrr = Atn((yy - 20) * (xx - 20)) _* Atn((yy - 40) * (xx - 110))aa = Atn((yy - 60) * (xx - 80)) _* Atn((yy - 80) * (xx - 50))col = RGB( _205 * Sin((aa * rr / Atn(rr - aa)) * Tan(rr)) ^ 8, _205 * Sin((aa * rr) * Tan(rr)) ^ 8, _205 * Sin((aa * rr) * Tan(rr)) ^ 6)On Error Resume NextIf ss > 1 Then Form1.Line (X, Y)-Step(ss, ss), Col, BFIf ss = 1 Then Form1.PSet (X, Y), ColNext YNext XEnd Sub
Private Sub Star3()ss = 3m = 0.25xmax = 550ymax = 400Form1.ScaleMode = 3For X = 1 To xmax Step ssFor Y = 1 To ymax Step ssxx = X * myy = Y * mrr = Atn((yy - 20) * (xx - 20)) _* Atn((yy - 40) * (xx - 110))aa = Atn((yy - 60) * (xx - 80)) _* Atn((yy - 80) * (xx - 50))red = 205 * Sin((aa - rr) * 6) ^ 2green = 205 * Sin((aa - rr - rr) * 8) ^ 2blue = 205 * Sin((aa * rr) * 5) ^ 2col = RGB(red, green, blue)If ss > 1 Then Form1.Line (X, Y)-Step(ss, ss), Col, BFIf ss = 1 Then Form1.PSet (X, Y), ColNext YNext XEnd Sub
Private Sub Star4()ss = 3m = 0.25xmax = 550ymax = 400Form1.ScaleMode = 3For X = 1 To xmax Step ssFor Y = 1 To ymax Step ssxx = X * myy = Y * mrr = Atn((yy - 20) * (xx - 20)) _* Atn((yy - 40) * (xx - 110))aa = Atn((yy - 60) * (xx - 80)) _* Atn((yy - 80) * (xx - 50))col = RGB( _205 * Cos(Cos(aa * rr - rr * Sin(aa)) * 2) ^ 2, _205 * Sin(Sin(aa * rr - rr * Sin(aa)) * 2) ^ 2, _205 * Cos(Sin(aa * rr - Exp(rr * Cos(aa))) * 2) ^ 2)If ss > 1 Then Form1.Line (X, Y)-Step(ss, ss), Col, BFIf ss = 1 Then Form1.PSet (X, Y), ColNext YNext XEnd Sub
Private Sub Star5()ss = 3m = 0.25xmax = 550ymax = 400Form1.ScaleMode = 3For X = 1 To xmax Step ssFor Y = 1 To ymax Step ssxx = X * myy = Y * mrr = Atn((yy - 20) * (xx - 20)) _* Atn((yy - 40) * (xx - 100))aa = Atn((xx - 70) * (yy - 60)) _* Atn((yy - 85) * (xx - 40))Col = RGB(205 * Sin((aa * rr - rr) * 6) ^ 8, _205 * Sin((aa * rr - rr) * 8) ^ 8, _205 * Sin((aa * rr) * 8) ^ 8)If ss > 1 Then Form1.Line (X, Y)-Step(ss, ss), Col, BFIf ss = 1 Then Form1.PSet (X, Y), ColNext YNext XEnd Sub
Private Sub Star6()ss = 3m = 0.25xmax = 550ymax = 400Form1.ScaleMode = 3For X = 1 To xmax Step ssFor Y = 1 To ymax Step ssxx = X * myy = Y * mrr = Atn((yy - 20) * (xx - 20)) _* Atn((yy - 40) * (xx - 110))aa = Atn((yy - 60) * (xx - 80)) _* Atn((yy - 80) * (xx - 50))red = 205 * Sin((aa * rr) * 18) ^ 8green = 205 * Sin((aa * rr - rr) * 18) ^ 8blue = 205 * Sin((aa * rr) * 18) ^ 8col = RGB(red, green, blue)If ss > 1 Then Form1.Line (X, Y)-Step(ss, ss), Col, BFIf ss = 1 Then Form1.PSet (X, Y), ColNext YNext XEnd Sub
Приведем еще несколько примеров без картинок. Запускайте проект и смотрите сами!
Private Sub Star7()ss = 3m = 0.25xmax = 550ymax = 400Form1.ScaleMode = 3For X = 1 To xmax Step ssFor Y = 1 To ymax Step ssxx = X * myy = Y * mrr = Atn((yy - 20) * (xx - 20)) _* Atn((yy - 40) * (xx - 110))aa = Atn((yy - 60) * (xx - 80)) _* Atn((yy - 80) * (xx - 50))col = RGB(205 * Sin((aa * rr - rr * rr) * 4) ^ 8, _205 * Sin((aa * rr - rr * rr) * 4) ^ 6, _205 * Cos((aa * rr - rr * rr) * 4) ^ 4)If ss > 1 Then Form1.Line (X, Y)-Step(ss, ss), Col, BFIf ss = 1 Then Form1.PSet (X, Y), ColNext YNext XEnd Sub
Private Sub Star8()ss = 3m = 0.25xmax = 550ymax = 400Form1.ScaleMode = 3For X = 1 To xmax Step ssFor Y = 1 To ymax Step ssxx = X * myy = Y * mrr = Atn((yy - 20) * (xx - 20)) _* Atn((yy - 40) * (xx - 110))aa = Atn((yy - 60) * (xx - 80)) _* Atn((yy - 80) * (xx - 50))col = RGB( _205 * Sin((aa * rr - rr * Sin(rr)) * 4) ^ 4, _205 * Cos((aa * rr - rr * Cos(rr)) * 4) ^ 2, _205 * Sin((aa * rr - rr * Sin(rr)) * 4) ^ 4)If ss > 1 Then Form1.Line (X, Y)-Step(ss, ss), Col, BFIf ss = 1 Then Form1.PSet (X, Y), ColNext YNext XEnd Sub
Private Sub Star9()ss = 3m = 0.25xmax = 550ymax = 400Form1.ScaleMode = 3For X = 1 To xmax Step ssFor Y = 1 To ymax Step ssxx = X * myy = Y * mrr = Atn((yy - 20) * (xx - 20)) _* Atn((yy - 40) * (xx - 110))aa = Atn((yy - 60) * (xx - 80)) _* Atn((yy - 80) * (xx - 50))col = RGB(205 * Sin((aa * rr) * 5) ^ 8, _205 * Sin((aa * rr - rr) * 4) ^ 8, _205 * Sin((aa * rr) * 4) ^ 8)If ss > 1 Then Form1.Line (X, Y)-Step(ss, ss), Col, BFIf ss = 1 Then Form1.PSet (X, Y), ColNext YNext XEnd Sub
Private Sub Star10()ss = 3m = 0.25xmax = 550ymax = 400Form1.ScaleMode = 3For X = 1 To xmax Step ssFor Y = 1 To ymax Step ssxx = X * myy = Y * mrr = Atn(Tan(yy - 20) * (xx - 20)) _* Atn((yy - 40) * (xx - 110))aa = Atn((yy - 60) * (xx - 80)) _* Atn((yy - 80) * (xx - 50))col = RGB(205 * Sin((aa * rr) * 4) ^ 8, _205 * Sin((aa * rr) * 5) ^ 6, _205 * Sin((aa * rr) * 4) ^ 8)If ss > 1 Then Form1.Line (X, Y)-Step(ss, ss), Col, BFIf ss = 1 Then Form1.PSet (X, Y), ColNext YNext XEnd Sub
Private Sub Star11()ss = 3m = 0.25xmax = 550ymax = 400Form1.ScaleMode = 3For X = 1 To xmax Step ssFor Y = 1 To ymax Step ssxx = X * myy = Y * mrr = Atn((yy - 20) * (xx - 20)) _* Atn((yy - 40) * (xx - 100))aa = Atn((xx - 70) * (yy - 60)) _* Atn((yy - 85) * (xx - 40))Col = RGB(205 * Sin((aa * rr - rr) * 8) ^ 2, _205 * Sin((aa * rr) * 8) ^ 2, _205 * Sin((aa * rr) * 8) ^ 2)If ss > 1 Then Form1.Line (X, Y)-Step(ss, ss), Col, BFIf ss = 1 Then Form1.PSet (X, Y), ColNext YNext XEnd Sub
Private Sub Star12()ss = 3m = 0.25xmax = 550ymax = 400Form1.ScaleMode = 3For X = 1 To xmax Step ssFor Y = 1 To ymax Step ssxx = X * myy = Y * mrr = Atn((yy - 20) * (xx - 20)) _* Atn((yy - 40) * (xx - 110))aa = Atn((yy - 60) * (xx - 80)) _* Atn((yy - 80) * (xx - 50))col = RGB(205 * Cos((aa * rr - rr * Sin(rr)) * 2) ^ 2, _205 * Sin((aa * rr - rr * Tan(rr)) * 2) ^ 2, _205 * Cos((aa * rr - rr * Sin(rr)) * 2) ^ 2)If ss > 1 Then Form1.Line (X, Y)-Step(ss, ss), Col, BFIf ss = 1 Then Form1.PSet (X, Y), ColNext YNext XEnd Sub
Реклама