home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Acorn User 10
/
AU_CD10.iso
/
Archived
/
Updates
/
Flash
/
writeflash
/
Examples
/
grid
< prev
next >
Wrap
Text File
|
2000-04-24
|
1KB
|
107 lines
// grid
#define WIDTH 5000
#define HEIGHT 4000
#define GRIDSPACING 500
#include FlashLibrary:Colours
#include FlashFonts:IDs
#include FlashFonts:Halvett.Medium
FileVersion 1
FrameArea {
width WIDTH
height HEIGHT
}
BgColour WHITE
Shape {
id 1
linestyle { 20 BLACK }
selectlinestyle 1
moveto { 0 -60 }
lineby { 0 120 }
moveto { -60 0 }
lineby { 120 0 }
}
Text {
id 100
style {
font HALVETT_MEDIUM
size 200
colour BLACK
}
text "(0,0)"
}
Text {
id 101
style {
font HALVETT_MEDIUM
size 200
colour BLACK
}
text "(0,2000)"
}
Text {
id 102
style {
font HALVETT_MEDIUM
size 200
colour BLACK
}
text "(2000,0)"
}
Text {
id 103
style {
font HALVETT_MEDIUM
size 200
colour BLACK
}
text "(2000,2000)"
}
:var depth, spacing
:depth=100
:spacing=1000/GRIDSPACING
:spacing=1000/spacing
:for x=0 to framesizex/spacing
:for y=0 to framesizey/spacing
Place {
depth depth
id 1
matrix { 65536 x*spacing y*spacing }
}
:depth += 1
:next
:next
Place {
id 100
depth 10000
matrix { 65536 20 60 }
}
Place {
id 101
depth 10001
matrix { 65536 20 60+2000 }
}
Place {
id 102
depth 10002
matrix { 65536 20+2000 60 }
}
Place {
id 103
depth 10003
matrix { 65536 20+2000 60+2000 }
}
ShowFrame { }