[DBC] Radar - GameCreators Forum

Author

Message

Libervurto

17

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 17th Nov 2007 13:50

Link

completely pointless and slow
but looks kind of cool

ink rgb(255,0,0),0
open = 0
close = 359

hide mouse
sync on

time=timer()

`Dline Real
DO
`   c#=open
   Repeat
   `   r=255*abs(cos(c#))
      g=255*(1-abs(sin(c#+roll)))
   `   b=255*abs(sin(c#))
      ink r*65536 + g*256 + b,0
      @dline(320,240,320+@Round(sin(c#)*50),240+@Round(cos(c#)*50))
      @dline(320,240,320+@Round(sin(c#)*48),240+@Round(cos(c#)*48))
      inc c#,0.6
   Until c#>close
   inc roll,1
   sync
LOOP

set cursor 270,170
Print "DLine Real"

print timer()-time

sync
wait key
end

`----------------------
` FUNCTIONS
`----------------------
`Round up
FUNCTION @Round(n#)
   n=int(n#*2)-int(n#)
ENDFUNCTION n

`DLine Function by OBese87
FUNCTION @dline(l,t,r,b)
   w = r-l : h = b-t
   if w >= 0 then xstep = 1 else xstep = -1
   if h >= 0 then ystep = 1 else ystep = -1
   w# = ABS(w) : h# = ABS(h)
   if w#=0 then w#=0.1
   if h#=0 then h#=0.1
   xfact# = w#/h#
   yfact# = h#/w#

x = 0 : y = 0
   repeat
      `don't overshoot
      if abs(x+xstep) > abs(w) then xstep = 0
      if abs(y+ystep) > abs(h) then ystep = 0

dot x+l,y+t
      if yfact# > xfact#
         inc y,ystep
         if ABS(x) < ABS(y*xfact#) then inc x,xstep
      else
         inc x,xstep
         if ABS(y) < ABS(x*yfact#) then inc y,ystep
      endif
   until xstep = 0 and ystep = 0
ENDFUNCTION

+ Code Snippet

ink rgb(255,0,0),0
open = 0
close = 359

hide mouse
sync on

time=timer()

`Dline Real
DO
`   c#=open
   Repeat
   `   r=255*abs(cos(c#))
      g=255*(1-abs(sin(c#+roll)))
   `   b=255*abs(sin(c#))
      ink r*65536 + g*256 + b,0
      @dline(320,240,320+@Round(sin(c#)*50),240+@Round(cos(c#)*50))
      @dline(320,240,320+@Round(sin(c#)*48),240+@Round(cos(c#)*48))
      inc c#,0.6
   Until c#>close
   inc roll,1
   sync
LOOP

set cursor 270,170
Print "DLine Real"

print timer()-time

sync
wait key
end

`----------------------
` FUNCTIONS
`----------------------
`Round up
FUNCTION @Round(n#)
   n=int(n#*2)-int(n#)
ENDFUNCTION n

`DLine Function by OBese87
FUNCTION @dline(l,t,r,b)
   w = r-l : h = b-t
   if w >= 0 then xstep = 1 else xstep = -1
   if h >= 0 then ystep = 1 else ystep = -1
   w# = ABS(w) : h# = ABS(h)
   if w#=0 then w#=0.1
   if h#=0 then h#=0.1
   xfact# = w#/h#
   yfact# = h#/w#

   x = 0 : y = 0
   repeat
      `don't overshoot
      if abs(x+xstep) > abs(w) then xstep = 0
      if abs(y+ystep) > abs(h) then ystep = 0

      dot x+l,y+t
      if yfact# > xfact#
         inc y,ystep
         if ABS(x) < ABS(y*xfact#) then inc x,xstep
      else
         inc x,xstep
         if ABS(y) < ABS(x*yfact#) then inc y,ystep
      endif
   until xstep = 0 and ystep = 0
ENDFUNCTION

"You must be someone's friend to make comments about them." - MySpace lied.

Back to top

Profile PM Email

aluseus GOD

17

Years of Service

User Offline

Joined: 19th Mar 2007

Location: I\'m here. Now I\'m there. I keep moving

Posted: 17th Nov 2007 22:44

Link

slow, useless, and annoying lol

.
its not too bad.

alus.portbb.com go there.
[quote]A book. I hate books. book is stupid. I know that I need codes but I dont know the codes.[/quote} -zenicanin14 the stupidest user in the world.

Back to top

Profile PM Email Website

jeffhuys

17

Years of Service

User Offline

Joined: 24th May 2006

Location: No cheesy line here.

Posted: 31st Dec 2007 19:56

Link

Kinda cool!

You're the

'th to view this signature!

Back to top

Profile PM Email

Latch

17

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 2nd Jan 2008 15:58

Link

@OBese
Slow for a single item but not too slow. Set your sync rate. Without it being set it defaults to 40 fps I think. At sync rate 0 I get about 600 fps using your dline function and 700 fps using line (though dline looks much better)

Enjoy your day.

Back to top

Profile PM

Ed222

16

Years of Service

User Offline

Joined: 3rd Nov 2007

Location: Calgary

Posted: 10th Feb 2008 02:58

Link

@OBese87 I made it useable for dbp

ink rgb(255,0,0),0
open = 0
close = 359

hide mouse
sync on

time=timer()

`Dline Real
DO
`   c#=open
   Repeat
   `   r=255*abs(cos(c#))
      g=255*(1-abs(sin(c#+roll)))
   `   b=255*abs(sin(c#))
      ink r*65536 + g*256 + b,0
      dline(320,240,320+Round(sin(c#)*50),240+Round(cos(c#)*50))
      dline(320,240,320+Round(sin(c#)*48),240+Round(cos(c#)*48))
      inc c#,0.6
   Until c#>close
   inc roll,1
   sync
LOOP

set cursor 270,170
Print "DLine Real"

print timer()-time

sync
wait key
end

`----------------------
` FUNCTIONS
`----------------------
`Round up
FUNCTION Round(n#)
   n=int(n#*2)-int(n#)
ENDFUNCTION n

`DLine Function by OBese87
FUNCTION dline(l,t,r,b)
   w = r-l : h = b-t
   if w >= 0 then xstep = 1 else xstep = -1
   if h >= 0 then ystep = 1 else ystep = -1
   w# = ABS(w) : h# = ABS(h)
   if w#=0 then w#=0.1
   if h#=0 then h#=0.1
   xfact# = w#/h#
   yfact# = h#/w#

x = 0 : y = 0
   repeat
      `don't overshoot
      if abs(x+xstep) > abs(w) then xstep = 0
      if abs(y+ystep) > abs(h) then ystep = 0

dot x+l,y+t
      if yfact# > xfact#
         inc y,ystep
         if ABS(x) < ABS(y*xfact#) then inc x,xstep
      else
         inc x,xstep
         if ABS(y) < ABS(x*yfact#) then inc y,ystep
      endif
   until xstep = 0 and ystep = 0
ENDFUNCTION

+ Code Snippet

ink rgb(255,0,0),0
open = 0
close = 359

hide mouse
sync on

time=timer()

`Dline Real
DO
`   c#=open
   Repeat
   `   r=255*abs(cos(c#))
      g=255*(1-abs(sin(c#+roll)))
   `   b=255*abs(sin(c#))
      ink r*65536 + g*256 + b,0
      dline(320,240,320+Round(sin(c#)*50),240+Round(cos(c#)*50))
      dline(320,240,320+Round(sin(c#)*48),240+Round(cos(c#)*48))
      inc c#,0.6
   Until c#>close
   inc roll,1
   sync
LOOP

set cursor 270,170
Print "DLine Real"

print timer()-time

sync
wait key
end

`----------------------
` FUNCTIONS
`----------------------
`Round up
FUNCTION Round(n#)
   n=int(n#*2)-int(n#)
ENDFUNCTION n

`DLine Function by OBese87
FUNCTION dline(l,t,r,b)
   w = r-l : h = b-t
   if w >= 0 then xstep = 1 else xstep = -1
   if h >= 0 then ystep = 1 else ystep = -1
   w# = ABS(w) : h# = ABS(h)
   if w#=0 then w#=0.1
   if h#=0 then h#=0.1
   xfact# = w#/h#
   yfact# = h#/w#

   x = 0 : y = 0
   repeat
      `don't overshoot
      if abs(x+xstep) > abs(w) then xstep = 0
      if abs(y+ystep) > abs(h) then ystep = 0

      dot x+l,y+t
      if yfact# > xfact#
         inc y,ystep
         if ABS(x) < ABS(y*xfact#) then inc x,xstep
      else
         inc x,xstep
         if ABS(y) < ABS(x*yfact#) then inc y,ystep
      endif
   until xstep = 0 and ystep = 0
ENDFUNCTION

Windows Is better than everything

Back to top

Profile PM Email

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 10th Feb 2008 09:01

Link

Not completely pointless or slow...

Sync On
Sync Rate 0
Hide Mouse
ShadowLen = 16: Radius=80: CentreX=Screen Width()/2: CentreY=Screen Height()/2: ColourGrad = 255/ShadowLen
Dim ShadowX(ShadowLen): Dim ShadowY(ShadowLen)
Ink RGB(170,85,0),0: Circle CentreX,CentreY-1,Radius+4
Circle CentreX+1,CentreY,Radius+4
Circle CentreX,CentreY-1,Radius+4
Circle CentreX+1,CentreY,Radius+4
Gosub PreCalc
For I = 0 To ShadowLen
  ShadowX(I) = AngCos(0): ShadowY(I) = AngSin(0)
Next I
Do
  For N=0 to 359 Step 2
    For I = ShadowLen To 1 Step-1
      ShadowX(I) = ShadowX(I-1): ShadowY(I) = ShadowY(I-1)
    Next I
    ShadowX(0)=AngCos(N): ShadowY(0)=AngSin(N): C=255
    Ink RGB(0,C,C),0: Dec C,ColourGrad
    Line CentreX,CentreY,ShadowX(0),ShadowY(0)
    Line CentreX+1,CentreY,ShadowX(0)+1,ShadowY(0)
    For I=1 To Shadowlen
      Ink RGB(0,C,0),0: Dec C,ColourGrad
      Line CentreX,CentreY,ShadowX(I),ShadowY(I)
      Line CentreX+1,CentreY,ShadowX(I)+1,ShadowY(I)
    Next I
    Sync
  Next N
Loop
End

PreCalc:
  Dim AngSin(359): Dim AngCos(359)
  For N=0 To 359
    AngSin(N) = Sin(N)*Radius + CentreY
    AngCos(N) = Cos(N)*Radius + CentreX
  Next N
Return

+ Code Snippet

Sync On
Sync Rate 0
Hide Mouse
ShadowLen = 16: Radius=80: CentreX=Screen Width()/2: CentreY=Screen Height()/2: ColourGrad = 255/ShadowLen
Dim ShadowX(ShadowLen): Dim ShadowY(ShadowLen)
Ink RGB(170,85,0),0: Circle CentreX,CentreY-1,Radius+4
Circle CentreX+1,CentreY,Radius+4
Circle CentreX,CentreY-1,Radius+4
Circle CentreX+1,CentreY,Radius+4
Gosub PreCalc
For I = 0 To ShadowLen
  ShadowX(I) = AngCos(0): ShadowY(I) = AngSin(0)
Next I
Do
  For N=0 to 359 Step 2
    For I = ShadowLen To 1 Step-1
      ShadowX(I) = ShadowX(I-1): ShadowY(I) = ShadowY(I-1)
    Next I
    ShadowX(0)=AngCos(N): ShadowY(0)=AngSin(N): C=255
    Ink RGB(0,C,C),0: Dec C,ColourGrad
    Line CentreX,CentreY,ShadowX(0),ShadowY(0)
    Line CentreX+1,CentreY,ShadowX(0)+1,ShadowY(0)
    For I=1 To Shadowlen
      Ink RGB(0,C,0),0: Dec C,ColourGrad
      Line CentreX,CentreY,ShadowX(I),ShadowY(I)
      Line CentreX+1,CentreY,ShadowX(I)+1,ShadowY(I)
    Next I
    Sync
  Next N
Loop
End

PreCalc:
  Dim AngSin(359): Dim AngCos(359)
  For N=0 To 359
    AngSin(N) = Sin(N)*Radius + CentreY
    AngCos(N) = Cos(N)*Radius + CentreX
  Next N
Return

And without the green trumpets!