forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)
-   2D-программирование (http://forum.boolean.name/forumdisplay.php?f=13)
-   -   Сохранение 2D картинки (http://forum.boolean.name/showthread.php?t=5710)

Fant 09.02.2008 09:39
Сохранение 2D картинки
 
Код:
; Пример SaveImage

; Установим графический режим
Graphics3D 800,600,16
SetBuffer BackBuffer()
; Загрузим рисунок (Ваш путь к файлу может быть другим)
grass_tex=CreateTexture( 32,32 )
        SetBuffer TextureBuffer(grass_tex)
                ClsColor 255,255,255
                        Cls

For a=0 To 32
For b=0 To 32
    Color Rand(0,16),Rand(64,128),Rand(0,4)
  Plot a,b
Next
Next

  Flip
        ScaleTexture grass_tex,10,10
                PositionTexture grass_tex,.5,.5
        SetBuffer BackBuffer()

; Сохраним рисунок на диск C...
ok=SaveImage (grass_tex,"d:\ewball.bmp")

; Выведем результат сохранения
If ok=1 Then
Print "Запись выполнена успешно!"
Else
Print "There was an error saving!"
End If

; Ждем нажатия клавиши ESC
While Not KeyHit(1)
Wend
Вот стандартный семпл, но почему-то никак не хочет сохранять картинку, кто-нить знает как можно сохранить на диск процедурно сделанную текстурку?

H@NON 09.02.2008 10:57
Ответ: Сохранение 2D картинки
 
возможно у тебя отсутсвует диск d? попробуй смени путь. Еще вариант сделать скриншот с экрана SaveBuffer ( GraphicsBuffer(), "d:\image.bmp" ).

Diplomat 09.02.2008 13:24
Ответ: Сохранение 2D картинки
 
Цитата:
SaveImage (image,bmpfile$[,frame] )
Parameters
image = variable handle to the image to save
bmpfile$ = string with full path and filename to save to
frame = optional; which frame of the image to save
Создаешь текстуру, а сохранять пытаешься имейдж.

H@NON 09.02.2008 13:38
Ответ: Сохранение 2D картинки
 
Ивправду, чет я не заметил. Тогда все просто:
img = Createimage( 32, ,32)
setbuffer imagebuffer(img)
for n = 1 to 32
for m = 1 to 32
color Rand(0, 255), Rand(0, 255), Rand(0, 255)
plot m, n
next
next
setbuffer backbuffer

Saveimage( img, "d:\img1.bmp" )

Diplomat 09.02.2008 14:29
Ответ: Сохранение 2D картинки
 
2 H@NON :
Буду краток: "WTF?"
Что ж ты пишешь. Просто вредные советы получаются.
Постарайся изучить вопрос подробнее, прежде, чем советовать.
Надеюсь на понимание.

Ты видишь, у него пример изначально в 3Д и работает он с текстурой? Наверное не зря так. Наверное человек модель своего кода проекда сделал. Какой же ва такой ситуации, туды его, СейвИмейдж. ))

Код:
SaveBuffer(TextureBuffer(grass_tex),"d:\ewball.bmp")
- и всего делов. Заменить полстроки текста вместо переписывания всего кода.

P.S. Кстати, в камменте указан диск С:, а изображение сохраняется на диск D: - об этом следует помнить. 0_о

Fant 09.02.2008 17:50
Ответ: Сохранение 2D картинки
 
2H@NON
Да, спасибо! Так мне и нужно было!

2Diplomat
А что есть WTF?

"P.S. Кстати, в камменте указан диск С:, а изображение сохраняется на диск D: - об этом следует помнить. 0_о" - к чему? Это же я из семпла брал, вот коммент и остался

H@NON 09.02.2008 19:55
Ответ: Сохранение 2D картинки
 
Diplomat, с утра мысли не шли, но помочь человеку надо было, вот выкручиваюсь как могу :-) , и именно твой №2 пост направил меня в другое русло. Зато терь человек знает как сохранить и текстуру, и рисунок.

moka 10.02.2008 09:10
Ответ: Сохранение 2D картинки
 
WTF - "What The Fuck?"

Fant 10.02.2008 09:29
Ответ: Сохранение 2D картинки
 
Цитата:
Сообщение от MoKa (Сообщение 76862)
WTF - "What The Fuck?"
Спс))

2Diplomat
Ну что ты сразу выругался)?
Как бы я своим умом дошел до КОМАНДЫ createImage думая, что есть только createTexture?

Diplomat 10.02.2008 12:00
Ответ: Сохранение 2D картинки
 
Ну, во-первых, это я не в тебя, а во-вторых, вообще, как оказалось, зря и ни за что. Так что сорри, камрады. ))

Fant 10.02.2008 15:59
Ответ: Сохранение 2D картинки
 
Цитата:
Сообщение от Diplomat (Сообщение 76872)
Ну, во-первых, это я не в тебя, а во-вторых, вообще, как оказалось, зря и ни за что. Так что сорри, камрады. ))
да все ок! Спасибо, что принял участие в моем топике!


Часовой пояс GMT +4, время: 08:38.

vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot