Давненько видел эту программу, набрал код и не получил рисунка.
Поиски подсказали, что это такое:
https://www.mitchr.me/SS/barrymartin/index.html
Набрал программу, тоже не рисуется. В чем же проблема?
Barry Martin fractal
Страница: 1
Сообщений 1 страница 2 из 2
Поделиться130.03.2026 19:08:47
- Активный участник
- Зарегистрирован: 26.07.2021
- Приглашений: 0
- Сообщений: 267
- Уважение: [+1/-0]
- Позитив: [+0/-2]
- Возраст: 50 [1975-07-05]
- Провел на форуме:
1 день 9 часов - Последний визит:
Вчера 20:05:26
Поделиться231.03.2026 09:31:59
- Активный участник
- Зарегистрирован: 26.07.2021
- Приглашений: 0
- Сообщений: 267
- Уважение: [+1/-0]
- Позитив: [+0/-2]
- Возраст: 50 [1975-07-05]
- Провел на форуме:
1 день 9 часов - Последний визит:
Вчера 20:05:26
Получилось. Всего лишь сменил константу #PI на 3.14
Код:
If OpenWindow(0, 0, 0, 640, 480, "Barry Martin fractal", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
CanvasGadget(0, 0, 0, 640, 480)
CreateImage(0,640,480)
StartDrawing(CanvasOutput(0))
Box(0,0,640,480,0)
StopDrawing()
x.f=0
y.f=0
StartDrawing(CanvasOutput(0))
Repeat
Event = WindowEvent()
; StartDrawing(CanvasOutput(0))
t.f=x
x=y-Sin(x)
y=3.14-t
Box(2*x+320,2*y+240,1,1,255)
; StopDrawing()
Until Event = #PB_Event_CloseWindow
StopDrawing()
hbmp=GetGadgetAttribute(0,#PB_Canvas_Image)
StartDrawing(ImageOutput(0))
DrawImage(hbmp,0,0)
StopDrawing()
SaveImage(0,"martin.bmp")
EndIf
Страница: 1