Розы
Материалы с сайта
Программная живопись
Скачать
программу
Private Sub SpiralkaRoze()Period = 31.4: k = 8 / 5Me.Scale (-100, 100)-(100, -100)For y3 = 0 To 150 Step 0.1Me.DrawWidth = 1.5col = RGB(315 - y3, 275 - y3, 265 - y3)Me.Circle (5, 5), y3, colNext y3For I = 0 To Period * 3 Step 0.003For R = 0 To 100 Step 23Me.DrawWidth = 4: r1 = R * Sin(k * I)x = r1 * Cos(I): y = r1 * Sin(I)col = RGB(0, 64, 64)If I > Period ThenMe.DrawWidth = 1.5If r1 > 0 Then col = RGB(250, 170, 140)If r1 < 0 Then col = RGB(250, 140, 160)End IfIf I > Period * 2 ThenMe.DrawWidth = 1: col = RGB(245, 205, 225)End IfMe.PSet (x, y), colNext RDoEventsNext IMsgBox "Готово!"End Sub
Private Sub SpiralkaRoze2()Period = 12.6: k = 7 / 2Me.Scale (-100, 100)-(100, -100)For y3 = 0 To 150 Step 0.1Me.DrawWidth = 1.5col = RGB(275 - y3, 285 - y3, 305 - y3)Me.Circle (5, 5), y3, colNext y3For I = 0 To Period * 3 Step 0.003For R = 0 To 100 Step 23Me.DrawWidth = 4: r1 = R * Sin(k * I)x = r1 * Cos(I): y = r1 * Sin(I)col = RGB(0, 0, 160)If I > Period ThenMe.DrawWidth = 1.5If r1 > 0 Then col = RGB(0, 128, 255)If r1 < 0 Then col = RGB(255, 128, 192)End IfIf I > Period * 2 ThenMe.DrawWidth = 1: col = RGB(225, 225, 192)End IfMe.PSet (x, y), colNext RDoEventsNext IMsgBox "Готово!"End Sub
Private Sub SpiralkaRoze3()Period = 15.7: k = 3 / 5Me.Scale (-100, 100)-(100, -100)For y3 = 0 To 150 Step 0.1Me.DrawWidth = 1.5col = RGB(285 - y3, 305 - y3, 285 - y3)Me.Circle (5, 5), y3, colNext y3For I = 0 To Period * 3 Step 0.003For R = 0 To 100 Step 23Me.DrawWidth = 4: r1 = R * Sin(k * I)x = r1 * Cos(I): y = r1 * Sin(I)col = RGB(0, 64, 64)If I > Period ThenMe.DrawWidth = 1.5If r1 > 0 Then col = RGB(200, 230, 140)If r1 < 0 Then col = RGB(200, 230, 160)End IfIf I > Period * 2 ThenMe.DrawWidth = 1: col = RGB(245, 205, 225)End IfMe.PSet (x, y), colNext RDoEventsNext IEnd Sub
Приведем еще несколько примеров без картинок. Запускайте проект и смотрите сами!
Private Sub SpiralkaRoze4()Period = 25.2: k = 5 / 4Me.Scale (-100, 100)-(100, -100)For y3 = 0 To 150 Step 0.1Me.DrawWidth = 1.5col = RGB(275 - y3, 315 - y3, 265 - y3)Me.Circle (5, 5), y3, colNext y3For I = 0 To Period * 3 Step 0.003For R = 0 To 100 Step 23Me.DrawWidth = 4: r1 = R * Sin(k * I)x = r1 * Cos(I): y = r1 * Sin(I)col = RGB(0, 64, 64)If I > Period ThenMe.DrawWidth = 1.5If r1 > 0 Then col = RGB(250, 170, 140)If r1 < 0 Then col = RGB(250, 140, 160)End IfIf I > Period * 2 ThenMe.DrawWidth = 1: col = RGB(245, 205, 225)End IfMe.PSet (x, y), colNext RDoEventsNext IEnd Sub
Private Sub SpiralkaRoze5()Period = 18.9: k = 2 / 3Me.Scale (-100, 100)-(100, -100)For y3 = 0 To 150 Step 0.1Me.DrawWidth = 1.5col = RGB(315 - y3, 285 - y3, 315 - y3)Me.Circle (5, 5), y3, colNext y3For I = 0 To Period * 3 Step 0.003For R = 0 To 100 Step 23Me.DrawWidth = 4: r1 = R * Sin(k * I)x = r1 * Cos(I): y = r1 * Sin(I)col = RGB(0, 64, 64)If I > Period ThenMe.DrawWidth = 1.5If r1 > 0 Then col = RGB(160, 240, 100)If r1 < 0 Then col = RGB(120, 250, 180)End IfIf I > Period * 2 ThenMe.DrawWidth = 1: col = RGB(245, 205, 225)End IfMe.PSet (x, y), colNext RDoEventsNext IEnd Sub
Private Sub SpiralkaRoze6()Period = 12.6: k = 5 / 2Me.Scale (-100, 100)-(100, -100)For y3 = 0 To 150 Step 0.1Me.DrawWidth = 1.5col = RGB(275 - y3, 285 - y3, 305 - y3)Me.Circle (5, 5), y3, colNext y3For I = 0 To Period * 3 Step 0.003For R = 0 To 100 Step 23Me.DrawWidth = 4: r1 = R * Sin(k * I)x = r1 * Cos(I): y = r1 * Sin(I)col = RGB(0, 64, 64)If I > Period ThenMe.DrawWidth = 1.5If r1 > 0 Then col = RGB(250, 170, 140)If r1 < 0 Then col = RGB(250, 140, 160)End IfIf I > Period * 2 ThenMe.DrawWidth = 1: col = RGB(245, 205, 225)End IfMe.PSet (x, y), colNext RDoEventsNext IEnd Sub
Private Sub SpiralkaRoze7()Period = 31.4: k = 2 / 5Me.Scale (-100, 100)-(100, -100)For y3 = 0 To 150 Step 0.1Me.DrawWidth = 1.5col = RGB(275 - y3, 315 - y3, 265 - y3)Me.Circle (5, 5), y3, colNext y3For I = 0 To Period * 3 Step 0.003For R = 0 To 100 Step 23Me.DrawWidth = 4: r1 = R * Sin(k * I)x = r1 * Cos(I): y = r1 * Sin(I)col = RGB(0, 64, 64)If I > Period ThenMe.DrawWidth = 1.5If r1 > 0 Then col = RGB(250, 240, 180)If r1 < 0 Then col = RGB(180, 250, 250)End IfIf I > Period * 2 ThenMe.DrawWidth = 1: col = RGB(245, 235, 225)End IfMe.PSet (x, y), colNext RDoEventsNext IEnd Sub
Реклама