Фотографии с сайта Flickr

Date: 2015-10-07; view: 394.

Фрактал с Черепашкой

Рисунок 52 – Черепашка рисует фрактальное дерево

angle = 30

delta = 10

distance = 60

Turtle.Speed = 9

GraphicsWindow.BackgroundColor = "Black"

GraphicsWindow.PenColor = "LightGreen"

DrawTree()

Sub DrawTree

If (distance > 0) Then

Turtle.Move(distance)

Turtle.Turn(angle)

Stack.PushValue("distance", distance)

distance = distance - delta

DrawTree()

Turtle.Turn(-angle * 2)

DrawTree()

Turtle.Turn(angle)

distance = Stack.PopValue("distance")

Turtle.Move(-distance)

EndIf

EndSub

Рисунок 53 – Загрузка фотографий с Flickr

GraphicsWindow.BackgroundColor = "Black"

GraphicsWindow.MouseDown = OnMouseDown

Sub OnMouseDown

pic = Flickr.GetRandomPicture("mountains, river")

GraphicsWindow.DrawResizedImage(pic, 0, 0, 640, 480)

EndSub

(Flickr (flickr.com) –интернет-сервис, предназначенный для хранения и дальнейшего использования пользователем своих цифровых фотографий и видеороликов.)