purebasic.info

PureBasic forum
Текущее время: Сб июл 21, 2018 8:25 pm

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ 1 сообщение ] 
Автор Сообщение
 Заголовок сообщения: Пиксильная эпопея
СообщениеДобавлено: Ср дек 26, 2007 11:31 pm 
Не в сети
GameC@Soft
Аватар пользователя

Зарегистрирован: Сб сен 22, 2007 12:45 pm
Сообщений: 1085
Откуда: Я из лесу вышел, и сразу зашел, в босоножках дырявых и взлядом ночным.
Благодарил (а): 1 раз.
Поблагодарили: 2 раз.
Пункты репутации: 0
Эм.... Как сказал Администратор это изогнутая поверхность из точек


Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
InitSprite()
InitKeyboard()
InitMouse()
 
OpenScreen(1024,768,32,"")
 
Structure pixel
x.f
y.f
sx.f
sy.f
EndStructure
Global NewList pixel.pixel()
Procedure addpixel(x.f,y.f)
AddElement(pixel())
pixel()\x=x
pixel()\y=y
pixel()\sx
pixel()\sy
EndProcedure
 
CreateSprite(0,1,1)
StartDrawing(SpriteOutput(0))
Plot(0,0,RGB(255,255,255))
StopDrawing()
 
Repeat
FlipBuffers()
ClearScreen(0)
ExamineKeyboard()
ExamineMouse()
 
If CountList(pixel())<1000
addpixel(512,368)
EndIf
 
a.f+1000
 
If a>1000000
mode=1
EndIf
If a>2000000
mode=2
EndIf
If a>3000000
mode=3
EndIf
If a>4000000
mode=4
EndIf
If mode=0
ResetList(pixel())
While NextElement(pixel())
DisplaySprite(0,pixel()\x,pixel()\y)
pixel()\sx+Cos(a/360)
pixel()\sy+Sin(a/360)
pixel()\x+pixel()\sx
pixel()\y+pixel()\sy
Wend
EndIf
 
If mode=1
ResetList(pixel())
While NextElement(pixel())
DisplaySprite(0,pixel()\x,pixel()\y)
pixel()\sy+Cos(a/360)
pixel()\y-pixel()\sy
Wend
EndIf
 
If mode=2
ResetList(pixel())
While NextElement(pixel())
DisplaySprite(0,pixel()\x,pixel()\y)
pixel()\sx+Cos(a/360)
pixel()\x-pixel()\sx
Wend
EndIf
 
If mode=3
ResetList(pixel())
While NextElement(pixel())
DisplaySprite(0,pixel()\x,pixel()\y)
pixel()\sx+Cos(a/360)
pixel()\x+pixel()\sx
pixel()\sy+Cos(a/360)
pixel()\y-pixel()\sy
Wend
EndIf
If mode=3
ResetList(pixel())
While NextElement(pixel())
DisplaySprite(0,pixel()\x,pixel()\y)
pixel()\x=512
pixel()\y=368
Wend
mode=0
a.f=0
EndIf
 
 
 
Until KeyboardPushed(#PB_Key_Escape)
End


_________________
"Самый большой глюк в PureBasic - это твоя голова...." (с) Артем
Мой сайт: http://feelzone.org.ua/


Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ 1 сообщение ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group (блог о phpBB)
Сборка создана CMSart Studio
Русская поддержка phpBB