TheGameCreators - CodeBase - Function_Rotate

Return to the CodeBase listing

Category: 2D Effects

Version: 1.059

Information

Uploaded: 28th Jan 2007 21:19

Modified: 13th Feb 2007 19:06

Author: Mark Garrett

Summary

Rotates your image on the screen

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

REM Project: Rotate_Image_

REM Created: 28.1.2007 18:47:22

` By Mark Garrett   bubbb@verizon.net

`make image:

ink rgb(0,255,255),0

set cursor 50,75: print "Hello World!"

` get the image:

GET IMAGE 99,  50, 75, 150,  95,1

`stretch image and spin it:_

for angle = 1 to 360 step 3

`                 (ImageNumber, Xpos, Ypos, Angle#,ScaleX, ScaleY,HandleX, HandleY, Backsave, Transparency)

Draw_Rotated_Image(    99,       350,  250, angle,  350,    550,    50,       10,      1,           0     )

wait  1

next angle

text 200,10, "To exit press the left mouse button"

wait mouse

if mouseclick() = 2

get image 1,0,0,640,480,1: save image "Rotate_Image.jpg",1 :wait 5000

endif

end

`&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&n  function  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

Function Draw_Rotated_Image(ImageNumber, Xpos, Ypos, Angle#,ScaleX, ScaleY,HandleX, HandleY, Backsave, Transparency)

Sprite 300000, Xpos, Ypos, ImageNumber  ` initiate sprite

HIDE SPRITE 300000

SET SPRITE 300000, Backsave, Transparency

OFFSET SPRITE 300000, HandleX, HandleY

stretch SPRITE  300000, ScaleX, ScaleY

rotate sprite 300000, Angle#

paste Sprite 300000, Xpos, Ypos

endfunction

`&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

`Parameters:

`    ImageNumber = The identifier of this image

`    Xpos = The X coord to draw the image at

`    Ypos = The Y coord to draw the image at

`    Angle# = The angle of the rotated image

`    ScaleX = A scaler that is applied to the width

`    ScaleY = A scaler that is applied to the height

`   HandleX = X offset for rotations axis point

`    HandleY = Y offset for rotations axis point

`    Backsave flag = Will the image erase itself each time it moves?  (1= yes,  0 = no)

`    TransparentFlag = Render the image with or without transparency (0=solid, 1=transparent)

Download

Please login to download

Comments

No comments yet.

Author Name:	Mark Garrett
CodeBase Entries:	26

CodeBase - Function_Rotate_Image