TheGameCreators - CodeBase - Warp Animation Creator

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 22nd Jan 2005 13:05

Modified: 1st Jan 1970 01:00

Author: Trek

Summary

A Application To Create A Warp Effect

Full Description

Based on an idea from a DarkForge snippet I made an animation maker that creates a wave effect in an image of a 3D model and then saves it in multiple bitmaps. You need to download the sample picture to make it work.

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

sync on

hide mouse

set text size 35

green=rgb(0,255,0)

ink green,green

Text 70,20,"Welcome to the warp animation maker"

Text 60,150,"Special thanks to DarkForge for the idea."

Text 65,270,"Produced by Trek Software and DavidD3"

Text 75,400,"Press any key to start this application."

if inkey$()<>"" then exit

sync

loop

load bitmap "Robot.bmp",1

create bitmap 2,640,480

set current bitmap 1

for i=1 to 480

get image i,0,i-1,640,i

next i

step#=3 : sx=0 : speed=6 : waves = 10

set current bitmap 2

for i=1 to 480

paste image i,0,i+sin(sx+i*step#)*waves

next i

inc sx,speed

copy bitmap 2,0

shot=shot+1

if shot=2 then SAVE BITMAP "Warp1.bmp",0

if shot=4 then SAVE BITMAP "Warp2.bmp",0

if shot=7 then SAVE BITMAP "Warp3.bmp",0

if shot=10 then SAVE BITMAP "Warp4.bmp",0

if shot=13 then SAVE BITMAP "Warp5.bmp",0

if shot=16 then SAVE BITMAP "Warp6.bmp",0

if shot=19 then SAVE BITMAP "Warp7.bmp",0

if shot=22 then SAVE BITMAP "Warp8.bmp",0

if shot=25 then SAVE BITMAP "Warp9.bmp",0

if shot=28 then SAVE BITMAP "Warp10.bmp",0

if shot=31 then SAVE BITMAP "Warp11.bmp",0

if shot=34 then SAVE BITMAP "Warp12.bmp",0

if shot=37 then SAVE BITMAP "Warp13.bmp",0

if shot=40 then SAVE BITMAP "Warp14.bmp",0

if shot=43 then SAVE BITMAP "Warp15.bmp",0

if shot=46 then SAVE BITMAP "Warp16.bmp",0

if shot=49 then SAVE BITMAP "Warp17.bmp",0

if shot=52 then SAVE BITMAP "Warp19.bmp",0

if shot=55 then SAVE BITMAP "Warp20.bmp",0

if shot=58 then SAVE BITMAP "Warp21.bmp",0

sync

loop

Download

Please login to download

Comments

No comments yet.

Author Name:	Trek
CodeBase Entries:	19

CodeBase - Warp Animation Creator