Navigation

Old Revision - Last edited by NBOS on 2007-08-31 02:10:43
Sandbox 2





sdfasd
dAD
ASDASD
asdAS
asdas

AsdA
asd

sdfsfd
asfd

#author    NBOS Software
#desc    Sample tool to create a 15 foot wide road
#customtool   Fifteen Foot Wide Road
#toolbase   PolyPath
#toolset    Custom Tools
#button    FifteenFootRoad.bmp

'Creates a 15 foot wide city road

oMap = GetCurrentMap()
n = oMap.ObjectCount()
oPath  = oMap.GetObject(n-1)  'get object is zero based

oPath.PenColor = rgb( 0,0,0)
oPath.BrushColor = rgb(191,176,176)
oPath.FractalFactor = 0
oPath.Unrender

x = oPath.GetPointX( 2)
y = oPath.GetPointY( 2)

y = y - oMap.UserToWorld( 7.5)
oPath.SetPoint 1, x, y

 

RefreshMap

 


Last edited by NBOS on 2007-08-31 02:10:43
Copyright © 2003-2007, NBOS Software. All rights reserved. 'Fractal Mapper', 'ScreenMonkey', 'Character Sketcher', 'Inspiration Pad',
'Fractal World Explorer', 'Goblin API', 'AstroSynthesis' are trademarks of NBOS Software. 'Dwarven Beserker' art by V. Shane.
Member contributed resources