home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Acorn User 10
/
AU_CD10.iso
/
Archived
/
Updates
/
Flash
/
writeflash
/
Examples
/
macros
< prev
next >
Wrap
Text File
|
2000-04-18
|
765b
|
49 lines
#include FlashLibrary:Colours
#define FRAMERATE 1.0
#define WIDTH 4000
#define ASPECT 1.0
#define HALFSIZE
FileVersion 1
// all units are in 1/20th of a pixel
FrameArea {
width WIDTH
height WIDTH*ASPECT
}
// frames per second
FrameRate FRAMERATE
BackgroundColour BLUE
// define the shape
DefineShape {
id 1
fillstyle { solid GREEN }
selectfillstyle0 1
moveby { 1000 1000 }
lineby { 1000 1000 }
lineby { 1000 -1000 }
lineby { -1000 -1000 }
lineby { -1000 1000 }
}
// place the shape on the screen
PlaceObject {
depth 1
id 1
matrix {
#ifdef HALFSIZE
0.5*65536 // scale x and y
#else
65536 // scale x and y
#endif
0 500 // translate
}
}
// show what we've got so far
ShowFrame { }