TheGameCreators - CodeBase - Keyframe Editor

Category: Functions

Version: 1.0

Information

Uploaded: 3rd Nov 2016 23:08

Modified: 3rd Nov 2016 23:08

Author: Jack

Summary

This function will provide a keyframe editor with mousewheel support. The value can be changed if a keyframe is pressed.

Full Description

This function will provide a keyframe editor with mousewheel support. The value can be changed if a keyframe is pressed.

AGKV2 BASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

// Project: Keyframe Editor 			  Created: 2016-01-29

// ==========================================================

// Alex Schmidt - Online Arts 2016	www.movies.online-arts.de

// you can use the Mousewheel to set a cutout

// the silder at the bottom will also help

// the spacekey shows the current val# 's of the shown keyframes

// you can use update_KeyframeEditor() even if no keyframe

// editor is created, no crash will happen

// set window properties

SetWindowTitle( "Keyframe Editor" )

SetWindowSize( 1280, 720, 0 )

// set display properties

SetVirtualResolution( 1280, 720 )

SetOrientationAllowed( 1, 1, 1, 1 )

type keyframetype

val# as float

spr as integer

txt as integer

endtype

type keyframeeditortype

// sprite media

bg as integer

// text media

txtmin as integer

txtzero as integer

txtmax as integer

txt1 as integer

txt2 as integer

txt3 as integer

// slider media

sprPush as integer

sprSL as integer

// stuff

sel as integer

curmy as integer

showtext as integer

// cutout

startP as integer

endP as integer

// text and max bars

max# as float

min# as float

zero# as float

multi# as float

endtype

px=40

py=60

sx=1200

sy=600

max#=100.0

min#=0.0

zero#=0

multiplier#=2.0

showtext=0

values=64

create_KeyframeEditor(px,py,sx,sy,max#,min#,zero#,multiplier#,showtext,values)

// delete_KeyframeEditor()	// this will delete the keyframe editor including all arrays and media

update_KeyframeEditor()

Sync()

loop

// ====================== Keyframe Editor functions  ==================================

// =============================== easy as peanuts ====================================

// =============== Online Arts 2016 =========== movies.online-arts.de =================

function create_KeyframeEditor(px,py,sx,sy,max#,min#,zero#,multiplier#,showtext,values)

dim keyframes[] as keyframetype

dim keyframeEditor[0] as keyframeeditortype

// background window

bg=CreateSprite(0)

SetSpriteColor(bg,50,50,50,150)

SetSpriteSize(bg,sx,sy)

SetSpritePosition(bg,px,py)

SetSpriteDepth(bg,100)

// min max zero text

if showtext=1

mintxt=CreateText(GetStringToken(str(min#),".",1))

SetTextPosition(mintxt,px,py+sy/2-(min#*multiplier#))

SetTextSize(mintxt,20)

maxtxt=CreateText(GetStringToken(str(max#),".",1))

SetTextPosition(maxtxt,px,py+sy/2-(max#*multiplier#))

SetTextSize(maxtxt,20)

zerotxt=CreateText(GetStringToken(str(zero#),".",1))

SetTextPosition(zerotxt,px,py+sy/2-(zero#*multiplier#))

SetTextSize(zerotxt,20)

endif

// information text (txt1 and txt3 can be used for other information, for me txt2 is enough)

// txt1=CreateText("debug 1")

// settextsize(txt1,20)

// SetTextAlignment(txt1,1)

// SetTextPosition(txt1,px+sx/4,py+sy-70)

// SetTextSize(txt1,20)

txt2=CreateText("debug 2")

settextsize(txt2,20)

SetTextAlignment(txt2,1)

SetTextPosition(txt2,px+sx/2,py+sy-70)

SetTextSize(txt2,20)

// txt3=CreateText("debug 3")

// settextsize(txt3,20)

// SetTextPosition(txt3,px+sx*0.75,py+sy-70)

// SetTextAlignment(txt3,1)

// SetTextSize(txt3,20)

// silder

sprSL=createsprite(0)

setspritecolor(sprSL,92,92,92,255)

setspritesize(sprSL,sx-40,20)

setspriteposition(sprSL,px+20,py+sy-40)

sprPush=createsprite(0)

setspritecolor(sprPush,192,192,192,220)

setspritesize(sprPush,sx-40,20)

setspriteposition(sprPush,px+20,py+sy-40)

keyframeEditor[0].bg=bg

keyframeEditor[0].showtext=showtext

keyframeEditor[0].max# = max#

keyframeEditor[0].min# = min#

keyframeEditor[0].zero# = zero#

keyframeEditor[0].multi# = multiplier#

keyframeEditor[0].txtmin = mintxt

keyframeEditor[0].txtmax = maxtxt

keyframeEditor[0].txtzero = zerotxt

// keyframeEditor[0].txt1 = txt1

keyframeEditor[0].txt2 = txt2

// keyframeEditor[0].txt3 = txt3

keyframeEditor[0].sprSL = sprSL

keyframeEditor[0].sprPush = sprPush

keyframeEditor[0].startP	=	0

keyframeEditor[0].endP		=	values

// fill keyframes with random values

for i=0 to values

keyframes.length=keyframes.length+1

p=keyframes.length

// create a sprite for each keyframe

key=CreateSprite(0)

SetSpriteColor(key,255,255,0,255)

SetSpriteSize(key,10,10)

// create an information text for each Keyframe

text=CreateText("")

SetTextSize(text,16)

keyframes[p].val#=10.0

keyframes[p].spr=key

keyframes[p].txt=text

if keyframes[p].val#>max# then keyframes[p].val#=max#

if keyframes[p].val#<min# then keyframes[p].val#=min#

next i

// position the keyframes inside the keyframe window

for i=0 to keyframes.length

xoff#=(sx/keyframes.length*1.0)*i

SetSpritePosition(keyframes[i].spr,px+xoff#,(py+sy/2-(keyframes[i].val#*multiplier#)))

next i

set_Keyframe_cutout()

endfunction

function update_KeyframeEditor()

// if the keyframes are filled

if keyframes.length>-1

// draw the ground lines min, 0, max

// zero

drawline( GetSpriteX(keyframeEditor[0].bg), GetSpriteY(keyframeEditor[0].bg)+GetSpriteHeight(keyframeEditor[0].bg)/2-keyframeEditor[0].zero#*keyframeEditor[0].multi#+10, GetSpriteX(keyframeEditor[0].bg)+GetSpriteWidth(keyframeEditor[0].bg), GetSpriteY(keyframeEditor[0].bg)+GetSpriteHeight(keyframeEditor[0].bg)/2-keyframeEditor[0].zero#*keyframeEditor[0].multi#+10,255,255,255)

// min

drawline( GetSpriteX(keyframeEditor[0].bg), GetSpriteY(keyframeEditor[0].bg)+GetSpriteHeight(keyframeEditor[0].bg)/2-keyframeEditor[0].min#*keyframeEditor[0].multi#+10, GetSpriteX(keyframeEditor[0].bg)+GetSpriteWidth(keyframeEditor[0].bg), GetSpriteY(keyframeEditor[0].bg)+GetSpriteHeight(keyframeEditor[0].bg)/2-keyframeEditor[0].min#*keyframeEditor[0].multi#+10,255,255,255)

// max

drawline( GetSpriteX(keyframeEditor[0].bg), GetSpriteY(keyframeEditor[0].bg)+GetSpriteHeight(keyframeEditor[0].bg)/2-keyframeEditor[0].max#*keyframeEditor[0].multi#, GetSpriteX(keyframeEditor[0].bg)+GetSpriteWidth(keyframeEditor[0].bg), GetSpriteY(keyframeEditor[0].bg)+GetSpriteHeight(keyframeEditor[0].bg)/2-keyframeEditor[0].max#*keyframeEditor[0].multi#,255,255,255)

for i=keyframeEditor[0].startP to keyframeEditor[0].endP

// draw lines to connect dots

if i>0 and i>keyframeEditor[0].startP and i=<keyframeEditor[0].endP

DrawLine(GetSpriteX(keyframes[i-1].spr)+GetSpriteWidth(keyframes[i-1].spr)/2,GetSpriteY(keyframes[i-1].spr)+GetSpriteHeight(keyframes[i-1].spr)/2,GetSpriteX(keyframes[i].spr)+GetSpriteWidth(keyframes[i].spr)/2,GetSpriteY(keyframes[i].spr)+GetSpriteHeight(keyframes[i].spr)/2,255,255,0)

endif

// manange collision

if i<>keyframeEditor[0].sel then SetSpriteColor(keyframes[i].spr,255,255,0,255)

if GetSpriteHit(GetPointerX(),GetPointerY())=keyframes[i].spr

SetSpriteColor(keyframes[i].spr,255,100,255,255)

endif

if GetRawMouseLeftState()=1

if GetSpriteHit(GetPointerX(),GetPointerY())=keyframes[i].spr

SetSpriteColor(keyframes[i].spr,255,0,0,255)

keyframeEditor[0].sel=i

keyframeEditor[0].curmy=getpointery()

endif

// information for only the selected one

if keyframeEditor[0].sel>-1

SetTextPosition(keyframes[keyframeEditor[0].sel].txt, GetSpriteX(keyframes[keyframeEditor[0].sel].spr),GetSpriteY(keyframes[keyframeEditor[0].sel].spr)+20)

SetTextString(keyframes[keyframeEditor[0].sel].txt, left(str(keyframes[keyframeEditor[0].sel].val#),5))

endif

else

if GetRawMouseLeftReleased()=1

if keyframeEditor[0].sel>-1

for i=0 to keyframes.length

SetTextPosition(keyframes[i].txt, -200,-200 )

next i

endif

keyframeEditor[0].sel=-1

keyframeEditor[0].curmy=0

endif

next i

// space key to show information

if GetRawKeyPressed(32)=1

for i=0 to keyframes.length

SetTextPosition(keyframes[i].txt, GetSpriteX(keyframes[i].spr),GetSpriteY(keyframes[i].spr)+20)

SetTextString(keyframes[i].txt, left(str(keyframes[i].val#),5))

next i

endif

// hide text

if GetRawKeyReleased(32)=1

for i=0 to keyframes.length

SetTextPosition(keyframes[i].txt, -200,-200 )

next i

endif

// offset of the clicked keyframe

if keyframeEditor.length>-1

if keyframeEditor[0].curmy>0

// print(GetPointerY()-keyframeEditor[0].curmy)		// offset of the keyframe

// the new y position of the keyframe

keyframes[keyframeEditor[0].sel].val#=keyframes[keyframeEditor[0].sel].val#-(GetPointerY()-keyframeEditor[0].curmy)/keyframeEditor[0].multi#

keyframeEditor[0].curmy=GetPointerY()

// check for the boundaries

if keyframes[keyframeEditor[0].sel].val# > keyframeEditor[0].max# then keyframes[keyframeEditor[0].sel].val# = keyframeEditor[0].max#

if keyframes[keyframeEditor[0].sel].val# < keyframeEditor[0].min# then keyframes[keyframeEditor[0].sel].val# = keyframeEditor[0].min#

// reposition the keyframe sprite

px=GetSpriteX(keyframeEditor[0].bg)

py=GetSpriteY(keyframeEditor[0].bg)

sx=getspritewidth(keyframeEditor[0].bg)

sy=getspriteheight(keyframeEditor[0].bg)

SetSpritePosition(keyframes[keyframeEditor[0].sel].spr, GetSpriteX(keyframes[keyframeEditor[0].sel].spr), (py+sy/2)-(keyframes[keyframeEditor[0].sel].val#*keyframeEditor[0].multi#))

endif

// handle the slider

mx#=getpointerx()

my#=getpointery()

spr=getspritehit(mx#,my#)

delta#=GetRawMouseWheelDelta()*6

if delta#<>0.0 and GetSpriteWidth( keyframeEditor[0].sprPush)+delta#>20.0

// print("change")

change=1

setspritesize( keyframeEditor[0].sprPush,GetSpriteWidth( keyframeEditor[0].sprPush)+delta#,GetSpriteHeight( keyframeEditor[0].sprPush))

if GetSpriteWidth( keyframeEditor[0].sprPush)=>GetSpriteWidth( keyframeEditor[0].sprSL)

SetSpriteSize(keyframeEditor[0].sprPush, GetSpriteWidth( keyframeEditor[0].sprSL),GetSpriteHeight(keyframeEditor[0].sprPush))

endif

x#=mx#

if x#<getspritex( keyframeEditor[0].sprSL)+getspritewidth( keyframeEditor[0].sprPush)/2.0 then x#=getspritex( keyframeEditor[0].sprSL)+getspritewidth( keyframeEditor[0].sprPush)/2.0

if x#>getspritex( keyframeEditor[0].sprSL)+getspritewidth( keyframeEditor[0].sprSL)-getspritewidth( keyframeEditor[0].sprPush)/2.0 then x#=getspritex( keyframeEditor[0].sprSL)+getspritewidth( keyframeEditor[0].sprSL)-getspritewidth( keyframeEditor[0].sprPush)/2.0

setspritepositionbyoffset( keyframeEditor[0].sprPush,x#,getspriteybyoffset( keyframeEditor[0].sprPush))

endif

if getpointerstate()=1

if spr= keyframeEditor[0].sprPush or spr= keyframeEditor[0].sprSL

x#=mx#

// print("change")

change=1

if x#<getspritex( keyframeEditor[0].sprSL)+getspritewidth( keyframeEditor[0].sprPush)/2.0 then x#=getspritex( keyframeEditor[0].sprSL)+getspritewidth( keyframeEditor[0].sprPush)/2.0

setspritepositionbyoffset( keyframeEditor[0].sprPush,x#,getspriteybyoffset( keyframeEditor[0].sprPush))

endif

// update text information

// SetTextString(keyframeEditor[0].txt1,"Slider: "+str(GetValue( keyframeEditor[0].sprSL, keyframeEditor[0].sprPush))+"  /  "+str(GetSpriteWidth( keyframeEditor[0].sprPush)/GetSpriteWidth( keyframeEditor[0].sprSL)))

// SetTextString(keyframeEditor[0].txt2,"Max: "+str(0)+" / "+str(keyframes.length))

view_maxwidth	=	keyframes.length*(GetSpriteWidth( keyframeEditor[0].sprPush)/GetSpriteWidth( keyframeEditor[0].sprSL))

view_start#		=	(getspritexbyoffset(keyframeEditor[0].sprPush)-getspritewidth(keyframeEditor[0].sprPush)/2.0)-getspritex(keyframeEditor[0].sprSL)

new			=	keyframes.length*((100.0/getspritewidth(keyframeEditor[0].sprSL))*view_start#)*0.01

SetTextString(keyframeEditor[0].txt2,str(new)+" - "+str(new + view_maxwidth )+" ("+str(keyframes.length)+")")

keyframeEditor[0].startP	=	new

keyframeEditor[0].endP		=	new + view_maxwidth

// update the graph to the slider values

if change=1

set_Keyframe_cutout()

endif

endfunction

function GetValue(sprSL,sprPush)

x#=(getspritexbyoffset(sprPush)-getspritewidth(sprPush)/2.0)-getspritex(sprSL)

w#=getspritewidth(sprSL)-getspritewidth(sprPush)

v#=x#/w#

if w#=0 then v#=0

endfunction v#

function set_Keyframe_cutout()

// hide the rest

for i=0 to keyframes.length

SetSpritePosition(keyframes[i].spr,-200,-200)

next i

// show the cutout

for i=keyframeEditor[0].startP to keyframeEditor[0].endP

xoff#=((GetSpriteWidth(keyframeEditor[0].bg)-10)/(keyframeEditor[0].endP-keyframeEditor[0].startP)*1.0)*(i-keyframeEditor[0].startP)

SetSpritePosition(keyframes[i].spr,GetSpriteX(keyframeEditor[0].bg)+xoff#,(GetSpriteY(keyframeEditor[0].bg)+GetSpriteHeight(keyframeEditor[0].bg)/2-(keyframes[i].val#*keyframeEditor[0].multi#)))

next i

endfunction

function delete_KeyframeEditor()

for i=0 to keyframes.length

if GetSpriteExists(keyframes[i].spr)=1 then DeleteSprite(keyframes[i].spr)

if GetTextExists(keyframes[i].txt)=1 then DeleteText(keyframes[i].txt)

next i

// sprite media

if GetSpriteExists(keyframeEditor[0].bg)=1 then DeleteSprite(keyframeEditor[0].bg)

// text media

if GetTextExists(keyframeEditor[0].txtmin)=1 then DeleteText(keyframeEditor[0].txtmin)

if GetTextExists(keyframeEditor[0].txtzero)=1 then DeleteText(keyframeEditor[0].txtzero)

if GetTextExists(keyframeEditor[0].txtmax)=1 then DeleteText(keyframeEditor[0].txtmax)

if GetTextExists(keyframeEditor[0].txt1)=1 then DeleteText(keyframeEditor[0].txt1)

if GetTextExists(keyframeEditor[0].txt2)=1 then DeleteText(keyframeEditor[0].txt2)

if GetTextExists(keyframeEditor[0].txt3)=1 then DeleteText(keyframeEditor[0].txt3)

// slider media

if GetSpriteExists(keyframeEditor[0].sprPush)=1 then DeleteSprite(keyframeEditor[0].sprPush)

if GetSpriteExists(keyframeEditor[0].sprSL)=1 then DeleteSprite(keyframeEditor[0].sprSL)

Author Name:	Jack
CodeBase Entries:	17

CodeBase - Keyframe Editor

Information

Summary

Full Description

AGKV2 BASIC Source Code

Download

Screen Shot

Author

Comments