- DBPro Coding Challenges - - GameCreators Forum

Author

Message

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 25th Feb 2005 08:10

Link

ah crap, i was about to add a gradient.

"eureka" - Archimedes

Back to top

Profile PM Email Website

Ric

19

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 25th Feb 2005 08:24

Link

Lol - beat you. How about trying to add a glow effect, or shadow effect around the edges? Could be tricky ......

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 25th Feb 2005 08:34 Edited at: 25th Feb 2005 09:24

Link

hmmmm, shadow could be easy and done from any angle with any depth. Speed would depend on the depth.

here's a simple box with rounded corners. I'm trying to think of a way to adjust the corners, without hard-coding it.

+ Code Snippet

do
cls
   round_box(200,100,mousex(),mousey())
loop

suspend for key

function round_box(x1,y1,x2,y2)

   line x1+4,y1,x2-3,y1
   line x1+4,y2,x2-3,y2
   line x1,y1+4,x1,y2-3
   line x2,y1+4,x2,y2-3

   dot x1+2,y1+1
   dot x1+3,y1+1
   dot x1+1,y1+2
   dot x1+1,y1+3

   dot x1+2,y2-1
   dot x1+3,y2-1
   dot x1+1,y2-2
   dot x1+1,y2-3

   dot x2-2,y1+1
   dot x2-3,y1+1
   dot x2-1,y1+2
   dot x2-1,y1+3

   dot x2-2,y2-1
   dot x2-3,y2-1
   dot x2-1,y2-2
   dot x2-1,y2-3

endfunction

"eureka" - Archimedes

Back to top

Profile PM Email Website

Ric

19

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 25th Feb 2005 09:07

Link

Quote: "I'm trying to think of a way to adjust the corners, without hard-coding it."

Maybe using Chris's Beziers .......

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 25th Feb 2005 09:21 Edited at: 25th Feb 2005 09:25

Link

that would would be way to complex. Trying to determine exactly where the control points should be so that the bend happens at the correct coordinates.

Fixed the glow. Pick a glow color and thinkness.

size# = 30

do
   cls
   angle# = wrapvalue(angle#+0.5)
   if mouseclick()=1 then inc size#,1
   if mouseclick()=2 then dec size#,1
   poly(mousex(),mousey(),5,size#,angle#,rgb(255,0,0),rgb(0,0,0),20)

loop

function poly(x as integer, y as integer, sides as integer, size as float, angle as float, color as dword, glow as dword, glow_thickness as integer)
   dim side(sides,1)
   ang# = 360.0/sides
   x1 = x + sin(angle)*size
   y1 = y + cos(angle)*size
   red = rgbr(color)
   green = rgbg(color)
   blue = rgbb(color)
   gr = rgbr(glow)
   gg = rgbg(glow)
   gb = rgbb(glow)
   for g = 0 to glow_thickness-1
      d# = (g+1.0)/glow_thickness
      cr = red + (gr-red)*d#
      cg = green + (gg-green)*d#
      cb = blue + (gb-blue)*d#
      ink rgb(cr,cg,cb),0
      for t = 1 to sides
         x2 = x + sin(wrapvalue((ang#*t)+angle))*size
         y2 = y + cos(wrapvalue((ang#*t)+angle))*size
         if g = 0
            side(t,0) = x1
            side(t,1) = y1
         endif
         line x1,y1,x2,y2
         x1 = x2
         y1 = y2
      next t
      inc size, 1
   next g

lock pixels
   x1 = x-size
   x2 = x+size
   y1 = y-size
   y2 = y+size
   for a = x1 to x2
      for b = y1 to y2
         if a>0 and a<screen width()
            if b>0 and b<screen height()
               count = 0
               for t = 1 to sides
                  j = t+1
                  if j>sides then j=1
                  dp# = (side(j,0) - side(t,0)) * (b - side(t,1)) - (a - side(t,0)) * (side(j,1) - side(t,1))
                  inc count, (dp# > 0)
               next t
               if count = 0
                  start = get pixels pointer()
                  repeat_number = get pixels pitch()
                  bits_per_pixel = bitmap depth(num)/8
                  pointer = start + b*repeat_number + a*bits_per_pixel
                  *pointer = color
               endif
            endif
         endif
      next b
   next a
   unlock pixels
   undim side()

endfunction

+ Code Snippet

size# = 30


do
   cls
   angle# = wrapvalue(angle#+0.5)
   if mouseclick()=1 then inc size#,1
   if mouseclick()=2 then dec size#,1
   poly(mousex(),mousey(),5,size#,angle#,rgb(255,0,0),rgb(0,0,0),20)

loop



function poly(x as integer, y as integer, sides as integer, size as float, angle as float, color as dword, glow as dword, glow_thickness as integer)
   dim side(sides,1)
   ang# = 360.0/sides
   x1 = x + sin(angle)*size
   y1 = y + cos(angle)*size
   red = rgbr(color)
   green = rgbg(color)
   blue = rgbb(color)
   gr = rgbr(glow)
   gg = rgbg(glow)
   gb = rgbb(glow)
   for g = 0 to glow_thickness-1
      d# = (g+1.0)/glow_thickness
      cr = red + (gr-red)*d#
      cg = green + (gg-green)*d#
      cb = blue + (gb-blue)*d#
      ink rgb(cr,cg,cb),0
      for t = 1 to sides
         x2 = x + sin(wrapvalue((ang#*t)+angle))*size
         y2 = y + cos(wrapvalue((ang#*t)+angle))*size
         if g = 0
            side(t,0) = x1
            side(t,1) = y1
         endif
         line x1,y1,x2,y2
         x1 = x2
         y1 = y2
      next t
      inc size, 1
   next g



   lock pixels
   x1 = x-size
   x2 = x+size
   y1 = y-size
   y2 = y+size
   for a = x1 to x2
      for b = y1 to y2
         if a>0 and a<screen width()
            if b>0 and b<screen height()
               count = 0
               for t = 1 to sides
                  j = t+1
                  if j>sides then j=1
                  dp# = (side(j,0) - side(t,0)) * (b - side(t,1)) - (a - side(t,0)) * (side(j,1) - side(t,1))
                  inc count, (dp# > 0)
               next t
               if count = 0
                  start = get pixels pointer()
                  repeat_number = get pixels pitch()
                  bits_per_pixel = bitmap depth(num)/8
                  pointer = start + b*repeat_number + a*bits_per_pixel
                  *pointer = color
               endif
            endif
         endif
      next b
   next a
   unlock pixels
   undim side()

endfunction

and for a simple shadow effect that adds depth to the shape:

size# = 15

do
   cls
   angle# = wrapvalue(angle#+0.5)
   if mouseclick()=1 then inc size#,1
   if mouseclick()=2 then dec size#,1
   poly(mousex(),mousey(),5,size#,angle#,rgb(150,0,220),6)

loop

function poly(x as integer, y as integer, sides as integer, size as float, angle as float, color as dword, depth as integer)
   dim side(sides,1)
   ang# = 360.0/sides
   x1 = x + sin(angle)*size
   y1 = y + cos(angle)*size

for g = 0 to depth-1
      if g = 0
         ink color,0
      else
         ink rgb(100,100,100),0
      endif
      for t = 1 to sides
         x2 = x + sin(wrapvalue((ang#*t)+angle))*size
         y2 = y + cos(wrapvalue((ang#*t)+angle))*size
         side(t,0) = x1
         side(t,1) = y1
         line x1+g,y1+g,x2+g,y2+g
         x1 = x2
         y1 = y2
      next t
   next g

lock pixels
   x1 = x-size
   x2 = x+size
   y1 = y-size
   y2 = y+size
   for a = x1 to x2
      for b = y1 to y2
         if a>0 and a<screen width()
            if b>0 and b<screen height()
               count = 0
               for t = 1 to sides
                  j = t+1
                  if j>sides then j=1
                  dp# = (side(j,0) - side(t,0)) * (b - side(t,1)) - (a - side(t,0)) * (side(j,1) - side(t,1))
                  inc count, (dp# > 0)
               next t
               if count = 0
                  start = get pixels pointer()
                  repeat_number = get pixels pitch()
                  bits_per_pixel = bitmap depth(num)/8
                  pointer = start + b*repeat_number + a*bits_per_pixel
                  *pointer = color
               endif
            endif
         endif
      next b
   next a
   unlock pixels
   undim side()

endfunction

+ Code Snippet

size# = 15


do
   cls
   angle# = wrapvalue(angle#+0.5)
   if mouseclick()=1 then inc size#,1
   if mouseclick()=2 then dec size#,1
   poly(mousex(),mousey(),5,size#,angle#,rgb(150,0,220),6)

loop



function poly(x as integer, y as integer, sides as integer, size as float, angle as float, color as dword, depth as integer)
   dim side(sides,1)
   ang# = 360.0/sides
   x1 = x + sin(angle)*size
   y1 = y + cos(angle)*size

   for g = 0 to depth-1
      if g = 0
         ink color,0
      else
         ink rgb(100,100,100),0
      endif
      for t = 1 to sides
         x2 = x + sin(wrapvalue((ang#*t)+angle))*size
         y2 = y + cos(wrapvalue((ang#*t)+angle))*size
         side(t,0) = x1
         side(t,1) = y1
         line x1+g,y1+g,x2+g,y2+g
         x1 = x2
         y1 = y2
      next t
   next g

   lock pixels
   x1 = x-size
   x2 = x+size
   y1 = y-size
   y2 = y+size
   for a = x1 to x2
      for b = y1 to y2
         if a>0 and a<screen width()
            if b>0 and b<screen height()
               count = 0
               for t = 1 to sides
                  j = t+1
                  if j>sides then j=1
                  dp# = (side(j,0) - side(t,0)) * (b - side(t,1)) - (a - side(t,0)) * (side(j,1) - side(t,1))
                  inc count, (dp# > 0)
               next t
               if count = 0
                  start = get pixels pointer()
                  repeat_number = get pixels pitch()
                  bits_per_pixel = bitmap depth(num)/8
                  pointer = start + b*repeat_number + a*bits_per_pixel
                  *pointer = color
               endif
            endif
         endif
      next b
   next a
   unlock pixels
   undim side()

endfunction

"eureka" - Archimedes

Back to top

Profile PM Email Website

Ric

19

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 25th Feb 2005 10:13 Edited at: 25th Feb 2005 10:14

Link

Cool - except is it just me that's getting black lines and dots?

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Chris64

19

Years of Service

User Offline

Joined: 16th Oct 2004

Location: San Diego

Posted: 25th Feb 2005 10:43

Link

Is there no way to tap directly into directDraw for drawing Polygons? Before this challenge, I never looked into 2d graphics with DBP...I must say...they're unbelievabley limited. Heck even in VB you can draw full poly's just using the standard built in features.

I can really appreciate what you guys are doing pixel by pixel...but even if it all works and looks perfect it's still too slow of a method to use in any practical application. Especially when DirectDraw has these features built in that look perfect and run about 10,000 times faster.

I remember while reading the whole manual once that there is a command for calling DirectX functions directly. I looked for it but I couldn't find it. Does such a command exist? I couldn't find my book on DirectX...Am I wrong about DirectDraw handling polygon's easier?

Back to top

Profile PM

robo cat

20

Years of Service

User Offline

Joined: 23rd Feb 2004

Location: In a cat litter tray, near you...

Posted: 25th Feb 2005 15:25 Edited at: 25th Feb 2005 15:25

Link

Quote: "how do you create the drawing in the first place? It seems like half of a program to me at the moment"

It lets you write the code for drawing the pictures from primitives and then accessing the file from your code. It keeps your code neat and tidy, plus the images can be offset and scaled.

Will make an editor for the files before the deadline.

Simple... yet fun!

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 26th Feb 2005 00:59

Link

@Ric, it doesn't come off as smooth as I had hoped because of the line command. I could make it perfectly smooth by doing it pixel by pixel the same way the polygon is filled, but it'd make things even slower.

"eureka" - Archimedes

Back to top

Profile PM Email Website

RiiDii

19

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 26th Feb 2005 01:40

Link

Quote: "I can really appreciate what you guys are doing pixel by pixel...but even if it all works and looks perfect it's still too slow of a method to use in any practical application."

I think this can be worked around by drawing the primitives you are going to use during an intro (or whenever) and then copy the images to sprites. Then you can use the sprites or the images. Sure, there are exceptions, like a desire to change the primitive's color, but in general; I would use these - defenitely!

"Droids don't rip your arms off when they lose." -H. Solo

REALITY II

Back to top

Profile PM Email

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 26th Feb 2005 09:53

Link

you could still change the color if you initially make it grey and use the sprite diffuse command.

"eureka" - Archimedes

Back to top

Profile PM Email Website

Chris64

19

Years of Service

User Offline

Joined: 16th Oct 2004

Location: San Diego

Posted: 27th Feb 2005 00:29 Edited at: 27th Feb 2005 00:46

Link

Well here's something that has to be considered a Primative...a triangle function. When I started thinking of how the n-gon was made I wanted to think of how to build something similar but faster. I figure every object could be made with a triangle. Unfortunately it still has slight glitch of offsetting by 1 pixel if the angles are very extreme.

sync on

x#=300
y#=200
steps=45
do
   cls
   angle#=angle#-1
   for i=0 to 360 step steps
   ink rgb(0,255-i*.8,0),0
   triangle(x#,y#,newxvalue(x#,angle#+i,100),newzvalue(y#,angle#+i,100),newxvalue(x#,angle#+i+steps+1,100),newzvalue(y#,angle#+i+steps+1,100))
   next i
   print screen fps()
   sync
loop

Function Triangle(x1#,y1#,x2#,y2#,x3#,y3#)
   if x1#>x2#
      temp#=x1#:x1#=x2#:x2#=temp#
      temp#=y1#:y1#=y2#:y2#=temp#
   endif
   if x3#>x2#
      temp#=x2#:x2#=x3#:x3#=temp#
      temp#=y2#:y2#=y3#:y3#=temp#
   endif
   if x1#>x3#
      temp#=x1#:x1#=x3#:x3#=temp#
      temp#=y1#:y1#=y3#:y3#=temp#
   endif

y12temp#=(y1#-y2#)/(x1#-x2#)
   y13temp#=(y1#-y3#)/(x1#-x3#)
   y23temp#=(y2#-y3#)/(x2#-x3#)
   y1cur#=y1#
   y2cur#=y1#
   y3cur#=y3#
   for i#= x1# to x2#
      y1cur#=y1cur#+y12temp#
      if i#<x3#
         line i#,y1cur#,i#,y2cur#
         y2cur#=y2cur#+y13temp#
      endif
      if i#=x3# then line i#,y1cur#,i#,y3#
      if i#>x3#
         line i#,y1cur#,i#,y3cur#
         y3cur#=y3cur#+y23temp#
      endif
   next i#
EndFunction

+ Code Snippet

sync on

x#=300
y#=200
steps=45
do
   cls
   angle#=angle#-1
   for i=0 to 360 step steps
   ink rgb(0,255-i*.8,0),0
   triangle(x#,y#,newxvalue(x#,angle#+i,100),newzvalue(y#,angle#+i,100),newxvalue(x#,angle#+i+steps+1,100),newzvalue(y#,angle#+i+steps+1,100))
   next i
   print screen fps()
   sync
loop


Function Triangle(x1#,y1#,x2#,y2#,x3#,y3#)
   if x1#>x2#
      temp#=x1#:x1#=x2#:x2#=temp#
      temp#=y1#:y1#=y2#:y2#=temp#
   endif
   if x3#>x2#
      temp#=x2#:x2#=x3#:x3#=temp#
      temp#=y2#:y2#=y3#:y3#=temp#
   endif
   if x1#>x3#
      temp#=x1#:x1#=x3#:x3#=temp#
      temp#=y1#:y1#=y3#:y3#=temp#
   endif

   y12temp#=(y1#-y2#)/(x1#-x2#)
   y13temp#=(y1#-y3#)/(x1#-x3#)
   y23temp#=(y2#-y3#)/(x2#-x3#)
   y1cur#=y1#
   y2cur#=y1#
   y3cur#=y3#
   for i#= x1# to x2#
      y1cur#=y1cur#+y12temp#
      if i#<x3#
         line i#,y1cur#,i#,y2cur#
         y2cur#=y2cur#+y13temp#
      endif
      if i#=x3# then line i#,y1cur#,i#,y3#
      if i#>x3#
         line i#,y1cur#,i#,y3cur#
         y3cur#=y3cur#+y23temp#
      endif
   next i#
EndFunction

Edit: I did want to mention...though it's not quite perfect yet. It is pretty fast so the potential is there. I was doing a full screen triangle and maintaining right around 100 FPS on a P3600.

Back to top

Profile PM

Coding Fodder

20

Years of Service

User Offline

Joined: 25th Sep 2003

Location: Somewhere in my cerebralcortex

Posted: 27th Feb 2005 02:07 Edited at: 27th Feb 2005 02:15

Link

Alright here is it with gradient capabilities. I did not want to bog down the n_gon function with a bunch of new parameters so I made a universal function that will add one of two types of gradient to any bitmap in the specified area. Other gradient types can easily be added. here I am just using type 2 which is a radial gradient.

rem n gons
rem and gradient
rem by coding fodder

sync on
size=20
do
   cls
   angle#=wrapvalue(angle#+4.0)
   n_gon(128,240,3,size,angle#,1,rgb(0,0,255),0)
   n_gon(256,240,4,size,angle#,4,rgb(0,255,0),0)
   n_gon(384,240,5,size,angle#,1,rgb(255,0,0),1)
   n_gon(512,240,9,size,angle#,30,rgb(200,200,0),1)
   gradient(480,217,543,265,2,45.0,0,255,0)
   text 1,1,str$(screen fps())
sync
loop

function n_gon(x,y,sides,size,angle#,thickness#,color,star)
   size2=cos((360.0/(sides*2.0)))*(size)
   degrees#=360.0/sides
   if star=1
      num_of_conditions=sides-2
      temp#=(tan(degrees#/2.0))^2
      ending=int(size2*(1.0+2.0*temp#/(1.0-temp#)))
      begining=-ending
   else
      num_of_conditions=sides-1
      begining=-size
      ending=size
   endif
   lock pixels
   start=get pixels pointer()
   repeat_number=get pixels pitch()
   bits_per_pixel=bitmap depth()/8

for i=begining to ending
      for j=begining to ending
         if i+x>=0 and j+y>=0 and i+x<bitmap width() and j+y<bitmap height()
            conditions=0
            conditions2=0
            for side=1 to sides
               test#=(j*sin(angle#+side*degrees#))+(i*cos(angle#+side*degrees#))-size2+0.5
               if test#<=0.0
                  inc conditions
                  if test#>-thickness# then inc conditions2
               endif
            next side
            if conditions>num_of_conditions
               if conditions2>0
                  pointer=start+(y+j)*repeat_number+(x+i)*bits_per_pixel
                  *pointer=color
               endif
            endif
         endif
      next j
   next i
   unlock pixels
endfunction

function gradient(startx,starty,stopx,stopy,grad_type,angle#,color1,color2,transparent)
   lock pixels
   start=get pixels pointer()
   repeat_number=get pixels pitch()
   bits_per_pixel=bitmap depth()/8

red1=rgbr(color1)
   green1=rgbg(color1)
   blue1=rgbb(color1)
   red2=rgbr(color2)
   green2=rgbg(color2)
   blue2=rgbb(color2)
   x0=startx+(stopx-startx)/2.0
   y0=starty+(stopy-starty)/2.0

if (stopx-startx) > (stopy-starty)
      rad#=(stopx-startx)/2.0
   else
      rad#=(stopy-starty)/2.0
   endif

for i=startx to stopx
      for j=starty to stopy
         pointer=start+j*repeat_number+i*bits_per_pixel
         color=*pointer
         if color=transparent
         else
            select grad_type
               case 1:a#=0.5+(((j-y0)*sin(angle#))+((i-x0)*cos(angle#))+0.5)/(2.0*rad#):endcase
               case 2:a#=sqrt((i-x0)^2+(j-y0)^2)/rad#:endcase
            endselect
               if a#>1.0 then a#=1.0
               if a#<0.0 then a#=0.0
               b#=1.0-a#
               color=rgb(a#*red1+b#*red2,a#*green1+b#*green2,a#*blue1+b#*blue2)
               *pointer=color
         endif
      next j
   next i
   unlock pixels
endfunction

+ Code Snippet

rem n gons
rem and gradient
rem by coding fodder

sync on
size=20
do
   cls
   angle#=wrapvalue(angle#+4.0)
   n_gon(128,240,3,size,angle#,1,rgb(0,0,255),0)
   n_gon(256,240,4,size,angle#,4,rgb(0,255,0),0)
   n_gon(384,240,5,size,angle#,1,rgb(255,0,0),1)
   n_gon(512,240,9,size,angle#,30,rgb(200,200,0),1)
   gradient(480,217,543,265,2,45.0,0,255,0)
   text 1,1,str$(screen fps())
sync
loop

function n_gon(x,y,sides,size,angle#,thickness#,color,star)
   size2=cos((360.0/(sides*2.0)))*(size)
   degrees#=360.0/sides
   if star=1
      num_of_conditions=sides-2
      temp#=(tan(degrees#/2.0))^2
      ending=int(size2*(1.0+2.0*temp#/(1.0-temp#)))
      begining=-ending
   else
      num_of_conditions=sides-1
      begining=-size
      ending=size
   endif
   lock pixels
   start=get pixels pointer()
   repeat_number=get pixels pitch()
   bits_per_pixel=bitmap depth()/8


   for i=begining to ending
      for j=begining to ending
         if i+x>=0 and j+y>=0 and i+x<bitmap width() and j+y<bitmap height()
            conditions=0
            conditions2=0
            for side=1 to sides
               test#=(j*sin(angle#+side*degrees#))+(i*cos(angle#+side*degrees#))-size2+0.5
               if test#<=0.0
                  inc conditions
                  if test#>-thickness# then inc conditions2
               endif
            next side
            if conditions>num_of_conditions
               if conditions2>0
                  pointer=start+(y+j)*repeat_number+(x+i)*bits_per_pixel
                  *pointer=color
               endif
            endif
         endif
      next j
   next i
   unlock pixels
endfunction

function gradient(startx,starty,stopx,stopy,grad_type,angle#,color1,color2,transparent)
   lock pixels
   start=get pixels pointer()
   repeat_number=get pixels pitch()
   bits_per_pixel=bitmap depth()/8

   red1=rgbr(color1)
   green1=rgbg(color1)
   blue1=rgbb(color1)
   red2=rgbr(color2)
   green2=rgbg(color2)
   blue2=rgbb(color2)
   x0=startx+(stopx-startx)/2.0
   y0=starty+(stopy-starty)/2.0

   if (stopx-startx) > (stopy-starty)
      rad#=(stopx-startx)/2.0
   else
      rad#=(stopy-starty)/2.0
   endif

   for i=startx to stopx
      for j=starty to stopy
         pointer=start+j*repeat_number+i*bits_per_pixel
         color=*pointer
         if color=transparent
         else
            select grad_type
               case 1:a#=0.5+(((j-y0)*sin(angle#))+((i-x0)*cos(angle#))+0.5)/(2.0*rad#):endcase
               case 2:a#=sqrt((i-x0)^2+(j-y0)^2)/rad#:endcase
            endselect
               if a#>1.0 then a#=1.0
               if a#<0.0 then a#=0.0
               b#=1.0-a#
               color=rgb(a#*red1+b#*red2,a#*green1+b#*green2,a#*blue1+b#*blue2)
               *pointer=color
         endif
      next j
   next i
   unlock pixels
endfunction

this is back to n_gons 1.3 but I think that you will agree that I have more flexability this way. Now to make universal glow and shadow functions???

[edit] try changing the gradient type to 1 and play with the parameters

Something really catchy that makes people stop and think about the meaning of life and say to themselves "My but thats clever"

Back to top

Profile PM Email Website

Ric

19

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 27th Feb 2005 04:27

Link

Nice radial gradient feature, but I don't see how taking it out of the n-gon function gives it more flexibility - as far as I can see, your gradients are now limited to rectangles, aren't they?

Anyway, judging is imminent ......

Back to top

Profile PM Email Website

Coding Fodder

20

Years of Service

User Offline

Joined: 25th Sep 2003

Location: Somewhere in my cerebralcortex

Posted: 27th Feb 2005 05:10 Edited at: 27th Feb 2005 05:17

Link

the gradients act over a rectangle yes, but it does the same thing the yours did, with the addition of any angle.. The increased flexibility come from the functions ability to apply a gradient to any shape at all, not just my n_gons.

[edit] what time is jugding in server time? so I don't have to check back every 20 min

Something really catchy that makes people stop and think about the meaning of life and say to themselves "My but thats clever"

Back to top

Profile PM Email Website

Ric

19

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 27th Feb 2005 05:25

Link

Right, here goes. 6 entrants to this challenge (other than me), which was great to see!

Blueselah - box

Extension of the existing box command to allow variable outline thickness.

Coding Fodder - n-gons/stars, gradient shader

I think the n-gon/star function is going to be very useful - it does exactly what the challenge called for, and the additional star option is nice. The gradient fill, I now realise, can be used to fill any shape by use of it's transparency effect. Very nice indeed.

Phaelax - teapot, cube, n-gons, shadow, glow, rounded box

Teapot and cube are not exactly useful, but they are fun! N-gons are quite similar to CF's n-gons in what they do, but coded in a different way - good work. Shadow and box would be nice if the aliasing effect of the lines could be resolved. Rounded box should be useful, and would be even better with variable roundedness.

Tom_d - 'Contact'

As with the teapot, it looks cool but it's not going to be hugely useful.

Chris 64 - Bezier Curves, Triangles

Bezier curves work well, and I have a feeling they have a greater significance than I'm able to comprehend right now! The triangles function is another, faster way to create n-gons, although it does have an aliasing problem due to the line command.

Robocat - drawings from text file

Without instruction as to how to create the text file, or even better, an editor for creating the text file, I wasn't able to test the code. In principle, though, having a simple drawing tool that could import drawings into your program is a good idea.

So, the result:

+ Code Snippet

Winner: Coding Fodder
Runner up: Phaelax

These two really battled it out, but CF's code had the edge!

Great work all, roll out the next challenge .......

Back to top

Profile PM Email Website

Coding Fodder

20

Years of Service

User Offline

Joined: 25th Sep 2003

Location: Somewhere in my cerebralcortex

Posted: 27th Feb 2005 05:34

Link

Wow I won one, and phalanx had me scared silly

Well I have plenty of ideas for a challenge but I need to set the deadline before midnight monday sever time -6. Most of them would be too difficult in that amount of time. So I will be thinking of something simpler. One moment please.....

Something really catchy that makes people stop and think about the meaning of life and say to themselves "My but thats clever"

Back to top

Profile PM Email Website

Ric

19

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 27th Feb 2005 06:38

Link

Yeah, Phalanges came close ......

Back to top

Profile PM Email Website

Coding Fodder

20

Years of Service

User Offline

Joined: 25th Sep 2003

Location: Somewhere in my cerebralcortex

Posted: 27th Feb 2005 07:19 Edited at: 27th Feb 2005 07:19

Link

Ok here it is. I prefer seeing how people attack the same problem differently so this one will be pretty specific. It is a simple collisions challenge. The challenge is to make realistic billiards collisions. I made some pool balls and a table so the code can be compared apples to apples.

You may alter the look and size of things if you feel so compelled or even make your own set up.

REM Project: Billiards Physics
REM Created: 2/20/2005 2:16:41 PM
REM
REM ***** Main Source File *****
REM

sync on:sync rate 0
make_pool_balls()
make_pool_table()
rack_balls()

do
   control camera using arrowkeys 0,1,1
   if keystate(17)=1 then rotate_x(9,1.0)
   if keystate(18)=1 then rotate_y(9,1.0)
   if keystate(19)=1 then rotate_z(9,1.0)
   sync
loop
end

function rotate_x(object,angle#)
   xrotate object object,wrapvalue(angle#+object angle x(object))
endfunction

function rotate_y(object,angle#)
   yrotate object object,wrapvalue(angle#+object angle y(object))
   `zrotate object object,wrapvalue(angle#+abs(90-object angle x(object))+object angle z(object))
endfunction

function rotate_z(object,angle#)
   zrotate object object,wrapvalue(angle#+object angle z(object))
endfunction

function rack_balls()
   fact#=sqrt(3.0)*10
   position object 1,0,10,250
   position object 9,10,10,250+fact#
   position object 10,-10,10,250+fact#
   position object 2,20,10,250+fact#*2.0
   position object 8,0,10,250+fact#*2.0
   position object 3,-20,10,250+fact#*2.0
   position object 11,30,10,250+fact#*3.0
   position object 12,10,10,250+fact#*3.0
   position object 4,-10,10,250+fact#*3.0
   position object 13,-30,10,250+fact#*3.0
   position object 5,40,10,250+fact#*4.0
   position object 14,20,10,250+fact#*4.0
   position object 6,0,10,250+fact#*4.0
   position object 15,-20,10,250+fact#*4.0
   position object 7,-40,10,250+fact#*4.0
   position object 16,0,10,-250
endfunction

function make_pool_table()
   make object plain 20,500,1000
   xrotate object 20,-90

color object 20,RGB(37,125,15)
   make object box 21,15,15,1030
      color object 21,rgb(37,125,15)
      position object 21,-257.5,7.5,0
   make object box 22,15,15,1030
      color object 22,rgb(37,125,15)
      position object 22,257.5,7.5,0
   make object box 23,500,15,15
      color object 23,rgb(37,125,15)
      position object 23,0,7.5,-507.5
   make object box 24,500,15,15
      color object 24,rgb(37,125,15)
      position object 24,0,7.5,507.5
endfunction

function make_pool_balls()
   for i=1 to 8
      make object sphere i,20
      select i
         case 1:ink RGB(255,255,0),0:endcase
         case 2:ink RGB(0,0,255),0:endcase
         case 3:ink RGB(255,128,64),0:endcase
         case 4:ink RGB(156,0,223),0:endcase
         case 5:ink RGB(128,0,64),0:endcase
         case 6:ink RGB(0,128,64),0:endcase
         case 7:ink RGB(202,0,0),0:endcase
         case 8:ink RGB(0,0,0),0:endcase
      endselect
      box 0,0,128,128:solid_circle(64,64,7,RGB(250,250,200)):ink 0,0:text 60,57,str$(i)
      get image i,0,30,127,97
      texture object i,i
      position object i,i*20-150,10,0
   next i
width1#=20
for i=9 to 15
      make object sphere i,20
      ink rgb(250,250,200),0
      box 0,0,128,128
      select i
         case 9:ink RGB(255,255,0),0:endcase
         case 10:ink RGB(0,0,255),0:endcase
         case 11:ink RGB(255,128,64),0:endcase
         case 12:ink RGB(156,0,223),0:endcase
         case 13:ink RGB(128,0,64),0:endcase
         case 14:ink RGB(0,128,64),0:endcase
         case 15:ink RGB(202,0,0),0:endcase
      endselect
      for u=0 to 128
         for v=0 to 128
            width2#=width1#/(cos(abs(v-63)*180.0/50.0)*2.0)
            if abs(u-32)<=width2# then dot u,v
            if abs(u-96)<=width2# then dot u,v
            box 0,0,128,40
            box 0,86,128,128
         next v
      next u
      ink 0,0
      if i=9
         text 60,57,str$(i)
      else
         text 56,57,str$(i)
      endif
      get image i,0,35,127,92
      texture object i,i
      position object i,i*20-150,10,0
   next i

make object sphere 16,20
   ink rgb(250,250,200),0
   box 0,0,128,128
   get image 16,0,35,127,92
   texture object 16,16
   position object 16,16*20-150,10,0
endfunction

function solid_circle(x,y,radius,color)
lock pixels
ptr=get pixels pointer()
this=get pixels pitch()
that =bitmap depth()/8
for i=1 to radius*2
   for j=1 to radius*2
      pointer=ptr+((y+j-radius)*this)+(x-radius+i)*that
      if (radius-i)^2+(radius-j)^2<=radius^2 then *pointer=color
   next j
next i
unlock pixels
endfunction

+ Code Snippet


REM Project: Billiards Physics
REM Created: 2/20/2005 2:16:41 PM
REM
REM ***** Main Source File *****
REM

sync on:sync rate 0
make_pool_balls()
make_pool_table()
rack_balls()

do
   control camera using arrowkeys 0,1,1
   if keystate(17)=1 then rotate_x(9,1.0)
   if keystate(18)=1 then rotate_y(9,1.0)
   if keystate(19)=1 then rotate_z(9,1.0)
   sync
loop
end

function rotate_x(object,angle#)
   xrotate object object,wrapvalue(angle#+object angle x(object))
endfunction

function rotate_y(object,angle#)
   yrotate object object,wrapvalue(angle#+object angle y(object))
   `zrotate object object,wrapvalue(angle#+abs(90-object angle x(object))+object angle z(object))
endfunction

function rotate_z(object,angle#)
   zrotate object object,wrapvalue(angle#+object angle z(object))
endfunction

function rack_balls()
   fact#=sqrt(3.0)*10
   position object 1,0,10,250
   position object 9,10,10,250+fact#
   position object 10,-10,10,250+fact#
   position object 2,20,10,250+fact#*2.0
   position object 8,0,10,250+fact#*2.0
   position object 3,-20,10,250+fact#*2.0
   position object 11,30,10,250+fact#*3.0
   position object 12,10,10,250+fact#*3.0
   position object 4,-10,10,250+fact#*3.0
   position object 13,-30,10,250+fact#*3.0
   position object 5,40,10,250+fact#*4.0
   position object 14,20,10,250+fact#*4.0
   position object 6,0,10,250+fact#*4.0
   position object 15,-20,10,250+fact#*4.0
   position object 7,-40,10,250+fact#*4.0
   position object 16,0,10,-250
endfunction

function make_pool_table()
   make object plain 20,500,1000
   xrotate object 20,-90

      color object 20,RGB(37,125,15)
   make object box 21,15,15,1030
      color object 21,rgb(37,125,15)
      position object 21,-257.5,7.5,0
   make object box 22,15,15,1030
      color object 22,rgb(37,125,15)
      position object 22,257.5,7.5,0
   make object box 23,500,15,15
      color object 23,rgb(37,125,15)
      position object 23,0,7.5,-507.5
   make object box 24,500,15,15
      color object 24,rgb(37,125,15)
      position object 24,0,7.5,507.5
endfunction

function make_pool_balls()
   for i=1 to 8
      make object sphere i,20
      select i
         case 1:ink RGB(255,255,0),0:endcase
         case 2:ink RGB(0,0,255),0:endcase
         case 3:ink RGB(255,128,64),0:endcase
         case 4:ink RGB(156,0,223),0:endcase
         case 5:ink RGB(128,0,64),0:endcase
         case 6:ink RGB(0,128,64),0:endcase
         case 7:ink RGB(202,0,0),0:endcase
         case 8:ink RGB(0,0,0),0:endcase
      endselect
      box 0,0,128,128:solid_circle(64,64,7,RGB(250,250,200)):ink 0,0:text 60,57,str$(i)
      get image i,0,30,127,97
      texture object i,i
      position object i,i*20-150,10,0
   next i
width1#=20
for i=9 to 15
      make object sphere i,20
      ink rgb(250,250,200),0
      box 0,0,128,128
      select i
         case 9:ink RGB(255,255,0),0:endcase
         case 10:ink RGB(0,0,255),0:endcase
         case 11:ink RGB(255,128,64),0:endcase
         case 12:ink RGB(156,0,223),0:endcase
         case 13:ink RGB(128,0,64),0:endcase
         case 14:ink RGB(0,128,64),0:endcase
         case 15:ink RGB(202,0,0),0:endcase
      endselect
      for u=0 to 128
         for v=0 to 128
            width2#=width1#/(cos(abs(v-63)*180.0/50.0)*2.0)
            if abs(u-32)<=width2# then dot u,v
            if abs(u-96)<=width2# then dot u,v
            box 0,0,128,40
            box 0,86,128,128
         next v
      next u
      ink 0,0
      if i=9
         text 60,57,str$(i)
      else
         text 56,57,str$(i)
      endif
      get image i,0,35,127,92
      texture object i,i
      position object i,i*20-150,10,0
   next i

   make object sphere 16,20
   ink rgb(250,250,200),0
   box 0,0,128,128
   get image 16,0,35,127,92
   texture object 16,16
   position object 16,16*20-150,10,0
endfunction

function solid_circle(x,y,radius,color)
lock pixels
ptr=get pixels pointer()
this=get pixels pitch()
that =bitmap depth()/8
for i=1 to radius*2
   for j=1 to radius*2
      pointer=ptr+((y+j-radius)*this)+(x-radius+i)*that
      if (radius-i)^2+(radius-j)^2<=radius^2 then *pointer=color
   next j
next i
unlock pixels
endfunction

No I am not making my own billiards game this is just for the challenge of it.

dead line monday midnight -6hrs server time

begin!!

Fodder

Something really catchy that makes people stop and think about the meaning of life and say to themselves "My but thats clever"

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 27th Feb 2005 07:31 Edited at: 27th Feb 2005 07:36

Link

Quote: " and phalanx had
Phalanges came close "

It's PHAELAX!!!

I don't suppose we're allowed to use Newton?

"eureka" - Archimedes

Back to top

Profile PM Email Website

Ric

19

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 27th Feb 2005 07:45 Edited at: 27th Feb 2005 08:05

Link

Quote: "So I will be thinking of something simpler....."

Hmmmmm.....(scratches head).......

Good challenge - I love physics coding. But I have a feeling this is going to be tough within the time limit - no chance of having any longer? Nice no-media graphics, btw!

Back to top

Profile PM Email Website

Coding Fodder

20

Years of Service

User Offline

Joined: 25th Sep 2003

Location: Somewhere in my cerebralcortex

Posted: 27th Feb 2005 09:02

Link

I am leaving tuesday morning for over a week. So if Phalanx agrees to evaluate the challenge then I am sure we could extend. I may be able to access the net but won't have DB.

Something really catchy that makes people stop and think about the meaning of life and say to themselves "My but thats clever"

Back to top

Profile PM Email Website

Ric

19

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 27th Feb 2005 09:06 Edited at: 27th Feb 2005 09:08

Link

Perhaps if we called him Phaelax he might agree!

Good rule, that number 8! How about Tuesday night - 3 Days?

Back to top

Profile PM Email Website

Coding Fodder

20

Years of Service

User Offline

Joined: 25th Sep 2003

Location: Somewhere in my cerebralcortex

Posted: 27th Feb 2005 09:13

Link

oops.

yah forget about that phalanx guy, Maybe Phaelax could Judge them

Something really catchy that makes people stop and think about the meaning of life and say to themselves "My but thats clever"

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 27th Feb 2005 09:22 Edited at: 27th Feb 2005 09:30

Link

Tuesday night, but no longer. I'm moving to a new apartment this coming week, so I'll be quite busy. I'm still at this home for the week, but I'll probably be offline for a long time after this challenge.

Does this mean I can't enter now?

not really a problem now, think i quit this one. can't seem to factor in the other ball's momentum properly.

"eureka" - Archimedes

Back to top

Profile PM Email Website

CPU

20

Years of Service

User Offline

Joined: 4th Jul 2003

Location: Carlsbad, CA

Posted: 27th Feb 2005 09:51

Link

hmm... still wonder bout newton... but that would make it to easy me thinks...

CPU

[center]K-OS Battlefields
IS
///---///---///---UNDER CONSTRUCTION---\\\---\\\---\\\[center]

Back to top

Profile PM Email Website

Coding Fodder

20

Years of Service

User Offline

Joined: 25th Sep 2003

Location: Somewhere in my cerebralcortex

Posted: 27th Feb 2005 10:54

Link

CPU yah the idea is to use your own techniques. I don't think we can use plugins that everyone does not have anyway.

Oh and does this mean I can enter?

I probably will contribute some code off the record.

Something really catchy that makes people stop and think about the meaning of life and say to themselves "My but thats clever"

Back to top

Profile PM Email Website

that dude

20

Years of Service

User Offline

Joined: 1st Jan 2004

Location: USA

Posted: 27th Feb 2005 11:45

Link

cewl... i just got a book on physics

http://www.nuclearglory.com/?u=fearik = sweet as hell collision system. easy on that leather thing in your back pocket too.
the left side of my head isn't bigger, the right side is just smaller

Back to top

Profile PM Email Website

Ric

19

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 27th Feb 2005 12:26

Link

Challenge 5

Challenge: Billiard Ball Collision

Challenge setter: Coding Fodder

Judge: Phaelax

Time Limit: 3 Days - until Tuesday night (2/3/05)

________________________________________________________________

The following code provided by Coding Fodder may be used: