HomeUser Control Panel (unavailable in archive)ForumsTutorialsArt GalleryResourcesMaps

[code] bug

04-20-2004, 04:48 AM#1
Narwanza
I don't know if this has been addressed, but it needs to be fixed if at all possible. If you can just look at this copied code you will notice that there are large spaces where there shouldn't be. There aren't any spaces when I go to edit, but they still show up the same no matter what when posted. (don't worry about what the code says, its just some vector functions I was working on, look at the extra spaces)

Code:
function LocationToLocationByAngleFromLocation2 takes location origin, location l, real angle returns location
    return PolarProjectionBJ(origin,DistanceBetweenPoints(origin,l),AngleBetweenPoints(origin,l)+angle)
endfunction

function SpiralTemp takes location origin, real radius, real degInc,real spiralSize returns nothing
	local location temp = null
	local real R = 0
	local real theta = 0
	loop
		exitwhen RAbsBJ((R*Cos(Deg2Rad(theta)))+GetLocationX(origin)) > radius or RAbsBJ((R*Sin(Deg2Rad(theta)))+GetLocationY(origin)) > radius
		set R = theta*spiralSize
		set temp = Location((R*Cos(Deg2Rad(theta)))+GetLocationX(origin),(R*Sin(Deg2Rad(theta)))+GetLocationY(origin))
		call AddSpecialEffectLoc("Doodads\\LordaeronSummer\\Props\\BannerHuman\\BannerHuman0.mdx",temp)
		set theta = (theta + degInc)
		call RemoveLocation(temp)
	endloop
	set temp = null
endfunction

function SineCurveTemp takes location origin, real magnitude,location end, integer skippedDegs returns nothing
    local location temp = null
    local location temp1 = null
    local real x = GetLocationX(origin)
    local real y = GetLocationY(origin)
    local real origY = y
    local real distance = DistanceBetweenPoints(origin,end)
    local real distInc = x
    local integer i = 1
    local real angle = AngleBetweenPoints(origin,end)
    loop
        exitwhen i > 360
        if (i == 1) then
            set temp = Location(x,y)
        elseif (ModuloInteger(i,skippedDegs) == 0) then
            if (origY<0) then
                set temp1 = Location(x,y-RAbsBJ(GetLocationY(origin)))
                set temp = LocationToLocationByAngleFromLocation2(origin,temp1,angle)
            else
                set temp1 = Location(x,y+RAbsBJ(GetLocationY(origin)))
                set temp = LocationToLocationByAngleFromLocation2(origin,temp1,angle)
            endif
        endif
        set x = distInc
        set y = (250*magnitude)*SinBJ(i)
        set distInc = distInc + (distance/360)
        call RemoveLocation(temp)
        call RemoveLocation(temp1)
        set i = i + 1
    endloop
    set temp = null
    set temp1 = null
endfunction

F.ex. In the second line of text it has DistanceBetweenPoints(ori gin,l) when it should just be DistanceBetweenPoints(origin,l).
04-20-2004, 07:21 AM#2
Demon-Reaper
Quote:
Originally Posted by Narwanza
I don't know if this has been addressed, but it needs to be fixed if at all possible. If you can just look at this copied code you will notice that there are large spaces where there shouldn't be. There aren't any spaces when I go to edit, but they still show up the same no matter what when posted. (don't worry about what the code says, its just some vector functions I was working on, look at the extra spaces)

Code:
function LocationToLocationByAngleFromLocation2 takes location origin, location l, real angle returns location
return PolarProjectionBJ(origin,DistanceBetweenPoints(origin,l),AngleBetweenPoints(origin,l)+angle)
endfunction
 
function SpiralTemp takes location origin, real radius, real degInc,real spiralSize returns nothing
local location temp = null
local real R = 0
local real theta = 0
loop
exitwhen RAbsBJ((R*Cos(Deg2Rad(theta)))+GetLocationX(origin)) > radius or RAbsBJ((R*Sin(Deg2Rad(theta)))+GetLocationY(origin)) > radius
set R = theta*spiralSize
set temp = Location((R*Cos(Deg2Rad(theta)))+GetLocationX(origin),(R*Sin(Deg2Rad(theta)))+GetLocationY(origin))
call AddSpecialEffectLoc("Doodads\\LordaeronSummer\\Props\\BannerHuman\\BannerHuman0.mdx",temp)
set theta = (theta + degInc)
call RemoveLocation(temp)
endloop
set temp = null
endfunction
 
function SineCurveTemp takes location origin, real magnitude,location end, integer skippedDegs returns nothing
local location temp = null
local location temp1 = null
local real x = GetLocationX(origin)
local real y = GetLocationY(origin)
local real origY = y
local real distance = DistanceBetweenPoints(origin,end)
local real distInc = x
local integer i = 1
local real angle = AngleBetweenPoints(origin,end)
loop
exitwhen i > 360
if (i == 1) then
set temp = Location(x,y)
elseif (ModuloInteger(i,skippedDegs) == 0) then
if (origY<0) then
set temp1 = Location(x,y-RAbsBJ(GetLocationY(origin)))
set temp = LocationToLocationByAngleFromLocation2(origin,temp1,angle)
else
set temp1 = Location(x,y+RAbsBJ(GetLocationY(origin)))
set temp = LocationToLocationByAngleFromLocation2(origin,temp1,angle)
endif
endif
set x = distInc
set y = (250*magnitude)*SinBJ(i)
set distInc = distInc + (distance/360)
call RemoveLocation(temp)
call RemoveLocation(temp1)
set i = i + 1
endloop
set temp = null
set temp1 = null
endfunction

F.ex. In the second line of text it has DistanceBetweenPoints(ori gin,l) when it should just be DistanceBetweenPoints(origin,l).
Wierd!!!!o_O And the 'Ori gin' thing... it's HTML script, vBulliten makes that into vb code which then is put into your message, not wc3c. [Edit: Got it working... apart from 'origin' bit looks fine, isn't]