purebasic.info

PureBasic forum
Текущее время: Вт фев 25, 2020 3:35 am

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




Начать новую тему Ответить на тему  [ Сообщений: 34 ]  На страницу Пред.  1, 2, 3  След.
Автор Сообщение
 Заголовок сообщения:
СообщениеДобавлено: Пт май 18, 2012 1:39 pm 
Не в сети
профессор

Зарегистрирован: Сб апр 16, 2011 8:59 am
Сообщений: 256
Благодарил (а): 4 раз.
Поблагодарили: 2 раз.
Пункты репутации: 0
kvitaliy писал(а):
Ну я на Qbasic кодил года 3-4, там в SCREEN 12 всего 16 цветов, так что твоя картинка в реале выглядит так


видел уже

kvitaliy писал(а):
Есть интересные фракталы, от нечего делать можно поразвлечься


сомнительное развлечение... :cry:

неясно, на что грешить, заморочился я совсем :cry:

_________________
Захотелось мартышки любви со слоном, тут она и лопнула


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: когда PB пасует перед QB
СообщениеДобавлено: Пт янв 17, 2020 11:16 am 
Не в сети
профессор

Зарегистрирован: Сб апр 16, 2011 8:59 am
Сообщений: 256
Благодарил (а): 4 раз.
Поблагодарили: 2 раз.
Пункты репутации: 0
Некрофилии пост(8 лет назад это было).
переделал старую программу на лету.


Вложения:
apollo2.zip [42.06 KiB]
Скачиваний: 31

_________________
Захотелось мартышки любви со слоном, тут она и лопнула
Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: когда PB пасует перед QB
СообщениеДобавлено: Пт янв 17, 2020 1:29 pm 
Не в сети
МОДЕРАТОР

Зарегистрирован: Вт дек 05, 2006 8:46 am
Сообщений: 6597
Благодарил (а): 32 раз.
Поблагодарили: 228 раз.
Пункты репутации: 59
egons писал(а):
переделал старую программу на лету.

Изначально покрасивее было, с меньшим набором цвета.
Лучше строчку 252 так переделать, подключить весь спектр:
Circle(xp0,yp0,Rad0,RGB(Random(255), Random(255), Random(255)))

_________________
read-only ¯\_(ツ)_/¯


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: когда PB пасует перед QB
СообщениеДобавлено: Пт янв 17, 2020 2:21 pm 
Не в сети
профессор

Зарегистрирован: Сб апр 16, 2011 8:59 am
Сообщений: 256
Благодарил (а): 4 раз.
Поблагодарили: 2 раз.
Пункты репутации: 0
Или сделать цвета, как у EGA?

_________________
Захотелось мартышки любви со слоном, тут она и лопнула


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: когда PB пасует перед QB
СообщениеДобавлено: Сб янв 18, 2020 9:40 am 
Не в сети
студент
Аватар пользователя

Зарегистрирован: Сб дек 07, 2019 4:58 pm
Сообщений: 2
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Пункты репутации: 0
Некрофилии Offtop
PB пасовать не может ни перед чем физически, как минимум только потому что он нативный и есть возможность использовать Inline Assembly, причем включая весь шикарный потенциал препроцессора FASM :)
Разве что поддержки ООП, typedef'ов и вложенных пространств имен иногда не хватает, но это не сказывается на возможностях реализации на нем чего-то.


Для таких вещей выгоднее было бы использовать напрямую DX/GL API, будет и побыстрее, и более гибко, хоть и не так просто как в случае со стандартной библиотекой PB, ИМХО.

_________________
(Олегович Артём) Stearells


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: когда PB пасует перед QB
СообщениеДобавлено: Сб янв 18, 2020 7:55 pm 
Не в сети
профессор

Зарегистрирован: Чт фев 09, 2017 10:37 am
Сообщений: 522
Благодарил (а): 36 раз.
Поблагодарили: 64 раз.
Пункты репутации: 0
Вот фракталы мне понравилось


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: когда PB пасует перед QB
СообщениеДобавлено: Сб янв 18, 2020 8:45 pm 
Не в сети
профессор

Зарегистрирован: Сб апр 16, 2011 8:59 am
Сообщений: 256
Благодарил (а): 4 раз.
Поблагодарили: 2 раз.
Пункты репутации: 0
Для PowerBasic есть неплохой набор.

_________________
Захотелось мартышки любви со слоном, тут она и лопнула


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: когда PB пасует перед QB
СообщениеДобавлено: Сб янв 18, 2020 9:21 pm 
Не в сети
док
Аватар пользователя

Зарегистрирован: Сб мар 28, 2015 11:06 pm
Сообщений: 192
Откуда: Україна
Благодарил (а): 13 раз.
Поблагодарили: 26 раз.
Пункты репутации: 9
Код:
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
Structure FractalGradient
  x.l : y.l : Size.l : MaxIteration.l
EndStructure
Procedure.d Iteration(cx.d, cy.d)
  Shared FractalGradient.FractalGradient
  Protected Iter.l, x.d, y.d, xt.d, yt.d
  While x*x + y*y <= 6 And Iter < FractalGradient\MaxIteration
    xt = x*x - y*y + cx
    yt = 2*x*y + cy
    x = xt : y = yt : Iter + 1
  Wend
  ProcedureReturn Iter/FractalGradient\MaxIteration
EndProcedure
Procedure.f FractalGradientCallback(x, y)
  Shared FractalGradient.FractalGradient
  With FractalGradient
    ProcedureReturn Iteration((x-\x)/\Size, (y-\y)/\Size)
  EndWith
EndProcedure
Procedure FractalGradient(x, y, Size, MaxIteration)
  Shared FractalGradient.FractalGradient
  With FractalGradient
    \x = x : \y = y : \Size = Size : \MaxIteration = MaxIteration
  EndWith
  CustomGradient(@FractalGradientCallback())
EndProcedure
 
Enumeration
  #Image
  #Window
  #Gadget
EndEnumeration
 
CreateImage(#Image, 384, 256)
StartDrawing(ImageOutput(0))
  DrawingMode(#PB_2DDrawing_Gradient)
  FractalGradient(256, 128, 128,63)
    GradientColor(0.00, $0000FF)
    GradientColor(0.25, $00FFFF)
    GradientColor(0.50, $00FF00)
    GradientColor(0.75, $FFFF00)
    GradientColor(1.00, $FF0000)
  Box(0,0,384,256)
StopDrawing()
 
OpenWindow(#Window, 0, 0, ImageWidth(#Image), ImageHeight(#Image), "Fractal", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
ImageGadget(#Gadget,0,0,ImageWidth(#Image), ImageHeight(#Image), ImageID(#Image))
 
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow


не моё..


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: когда PB пасует перед QB
СообщениеДобавлено: Ср янв 29, 2020 7:11 pm 
Не в сети
профессор

Зарегистрирован: Вс июл 05, 2009 5:55 pm
Сообщений: 380
Благодарил (а): 1 раз.
Поблагодарили: 17 раз.
Пункты репутации: 0
egons писал(а):
Некрофилии пост(8 лет назад это было).
переделал старую программу на лету.


может подскажешь где собака зарыта, а то я уже заковырялся в коде.
Вроде все совпадает, а мелочь мешает увидить

_________________
искатель истины


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: когда PB пасует перед QB
СообщениеДобавлено: Ср янв 29, 2020 7:32 pm 
Не в сети
профессор

Зарегистрирован: Сб апр 16, 2011 8:59 am
Сообщений: 256
Благодарил (а): 4 раз.
Поблагодарили: 2 раз.
Пункты репутации: 0
balex1978 писал(а):
egons писал(а):
Некрофилии пост(8 лет назад это было).
переделал старую программу на лету.


может подскажешь где собака зарыта, а то я уже заковырялся в коде.
Вроде все совпадает, а мелочь мешает увидить


Похоже, неверно перенес код. Взял программу и снова переписал.

_________________
Захотелось мартышки любви со слоном, тут она и лопнула


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: когда PB пасует перед QB
СообщениеДобавлено: Чт янв 30, 2020 3:05 am 
Не в сети
профессор

Зарегистрирован: Вт май 13, 2014 4:12 am
Сообщений: 920
Благодарил (а): 100 раз.
Поблагодарили: 31 раз.
Пункты репутации: 5
AZJIO писал(а):
Вот фракталы мне понравилось

то что там на фотках, это хорошо, только что с этими файлами делать? вопрос не праздный, меня картинки интересуют


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: когда PB пасует перед QB
СообщениеДобавлено: Пт янв 31, 2020 8:10 am 
Не в сети
профессор

Зарегистрирован: Чт фев 09, 2017 10:37 am
Сообщений: 522
Благодарил (а): 36 раз.
Поблагодарили: 64 раз.
Пункты репутации: 0
newJS писал(а):
то что там на фотках, это хорошо, только что с этими файлами делать? вопрос не праздный, меня картинки интересуют

Не понял вопроса. С какими файлами? Файлами картинок? Файлами кода? Код не работает? Работает но бесполезен? Картинки интересуют? С картинками ничего не делать, они просто для показа как будет выглядеть запущенный код, но там есть ещё контекстное меню.


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: когда PB пасует перед QB
СообщениеДобавлено: Сб фев 01, 2020 6:25 am 
Не в сети
профессор

Зарегистрирован: Вт май 13, 2014 4:12 am
Сообщений: 920
Благодарил (а): 100 раз.
Поблагодарили: 31 раз.
Пункты репутации: 5
ты ссылку дал
AZJIO писал(а):
Вот фракталы мне понравилось

ну и чё с этим кодом делать?


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: когда PB пасует перед QB
СообщениеДобавлено: Сб фев 01, 2020 3:18 pm 
Не в сети
профессор

Зарегистрирован: Чт фев 09, 2017 10:37 am
Сообщений: 522
Благодарил (а): 36 раз.
Поблагодарили: 64 раз.
Пункты репутации: 0
newJS писал(а):
ну и чё с этим кодом делать?

Ничего не делать, учесть что есть цветной фрактал и возможность приближения и удаления, которые показывают что эта операция бесконечна, то есть визуальное понимание фрактала. В отличии от красного рисунка-узора. При наличии AutoIt3 код запускает и показывает свои возможности, если хочешь могу скомпилировать и выложить.


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: когда PB пасует перед QB
СообщениеДобавлено: Вт фев 04, 2020 6:32 am 
Не в сети
профессор

Зарегистрирован: Вт май 13, 2014 4:12 am
Сообщений: 920
Благодарил (а): 100 раз.
Поблагодарили: 31 раз.
Пункты репутации: 5
AZJIO писал(а):
если хочешь могу скомпилировать и выложить.

если есть хотя бы задание размеров выходной картинки, то да, без нужных размеров смысла нет
а если есть и другие настройки, то совсем хорошо
у меня есть плагин к редактору, даже цвет нельзя поменять, или я до конца этот плагин понял, но кракозяблу рисует красивую


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

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


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

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


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

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