File: graphics2.ke

package info (click to toggle)
rlvm 0.14-1
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 16,920 kB
  • ctags: 33,581
  • sloc: cpp: 91,570; ansic: 39,346; perl: 768; python: 181; sh: 170; makefile: 8
file content (18 lines) | stat: -rw-r--r-- 426 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
grpOpen("BG053", 1)
objBgOfFile(0, "CGAK10A")
objBgOrigin(0, ScreenWidth / 2, ScreenHeight / 2)
objBgMove(0, - ScreenWidth / 2, - ScreenHeight / 2)
objBgAlpha(0, 0)
InitFrameDecel(10, 0, 360 * 10, 8000)
InitFrameTurn(9, 0, 255, 2000)

objBgCopyToFg(0, 0)
repeat
    intA[1] = ReadFrames({10, intA[5]}, {9, intA[6]})
    objRotate(0, intA[5])
    objAlpha(0, intA[6])
    refresh
till intA[5] >= 360 * 10

pause()
objDelete(0)