forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)

- 2D-программирование (http://forum.boolean.name/forumdisplay.php?f=109)

- - Zoom (http://forum.boolean.name/showthread.php?t=8926)

Atomikc

17.08.2009 05:45

Zoom

есть код:

While Not KeyHit (key_ESCAPE)
Cls
If KeyDown(Key_A) Then zoom=zoom+0.1
If KeyDown(Key_Z) Then zoom=zoom-0.1
SetScale( Zoom , Zoom )
DrawImage (Имя_картинки, x*zoom, y*zoom)
Flip
Wend
Но... но он зумут вот так:
С такого:

На такое:

А надо чтоб:

Подскажите как?
А то я и бубен сломал, и изрисовал пол тетради.. невкуриваю чтот эту простую задачку..

Tadeus

17.08.2009 10:54

Ответ: Zoom

x=(ширина_экрана-ширина_объекта)/2
y=(высота_экрана-высота_объекта)/2

h1dd3n

17.08.2009 14:06

Ответ: Zoom

мб MidHandleImage(image:TImage)
?

PHP код:


		
			
Graphics 800, 600, 0



Global sImage:TImage = LoadImage("sPictur.png")

MidHandleImage(sImage)



Global zoom:Float = 0.5

SetScale(zoom:Float, zoom:Float)



While Not KeyHit(KEY_ESCAPE)

    Cls()

        If KeyHit(KEY_UP)

            zoom:Float = zoom:Float + 0.01

        ElseIf KeyHit(KEY_DOWN)

            zoom:Float = zoom:Float - 0.01

        End If

        SetScale(zoom:Float, zoom:Float)

        DrawImage(sImage:TImage, GraphicsWidth() / 2, GraphicsHeight() / 2)

    Flip()

Wend

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