Print

Please login or register.
1 Hour 1 Day 1 Week 1 Month Forever
Login with username, password and session length

[Ampersand]

Why not designate a square and take out the corners as necessary?

[Fensfield]

Because above 3x3 in size, the end result of that looks more and more like square turned 45 degrees as you increase its area.

What a shame this template doesn't go higher, though x.x  The sphere I'm trying to make Starts at 41x41, then enlarges in increments of 6 with each z-level... and Photoshop keeps giving me wonky circles -.-

[LegoLord]

I got all MS Paint on it's ass... hope that helps whoever wanted them larger with distinct squares.

Spoiler (click to show/hide)

This is very useful.  Perhaps it should go on the wiki?

[Ampersand]

Because above 3x3 in size, the end result of that looks more and more like square turned 45 degrees as you increase its area.

What a shame this template doesn't go higher, though x.x  The sphere I'm trying to make Starts at 41x41, then enlarges in increments of 6 with each z-level... and Photoshop keeps giving me wonky circles -.-

What I meant was, instead of designating every space in the circle one by one, designate a square, and round out the corners. Sort of doing it backwards. Something tells me it would be quicker.

[LegoLord]

What if you're building a tower.  Not that fast, really.

[Umi]

How does one use the AHK?  Every time I use it it just makes a random squiggle.
And how does one control the size of the circle?  I have no idea how to use that...>_<

[Endemion]

Because above 3x3 in size, the end result of that looks more and more like square turned 45 degrees as you increase its area.

What a shame this template doesn't go higher, though x.x  The sphere I'm trying to make Starts at 41x41, then enlarges in increments of 6 with each z-level... and Photoshop keeps giving me wonky circles -.-

What I meant was, instead of designating every space in the circle one by one, designate a square, and round out the corners. Sort of doing it backwards. Something tells me it would be quicker.

Well, let's have all the math geeks correct me on this please, I'm sure I'm doing it wrong.

Geometry - the area of a circle (easy math, lets say a radius 5 circle) would be 78.5.
The square that would contain that circle would be a 10x10 square.  that's 100 units.
So, what '&' is trying to say in his quote is that instead of macroing the designation of 78.5 (79) mining squares for the circle, you could instead designate the whole 100, and then (x) remove designation on the 21 other squares to make the circle.  That would save a lot of time.

Now, I hate AHK and have no idea how to program with it, so...  Anyone else mind getting started on that?  =D

[Guillo]

Since Rysith's code didn't seem to make very nice circles for me I decided to take a crack at an AHK script. I started with Rysith's code and then modified like crazy.
This is the first time I used the program and I'm not much of a coder so if somebody wants to streamline this that would be great.

The code produces clones of the chart most of the time...  Some of the sizes are slightly different than the chart's circles though, but they are still pretty good.

Hit [Windows Key] + c to activate the macro

/edit
I guess I should mention that you can modify the outerrad and innerrad variables to change the circles. Changing the innerrad from 0 makes it so a circular column is left in the middle of the room with radius = innerrad.
/endedit

*EDIT AGAIN*
Made a small change and now all my circles turn out beautifully.
I also had part of the code missing previously from a botched copy/paste

Code: [Select]

;One full circle
#c::

;Radius is considered as the distance from the origin to circle edge
;with the center square being the origin and considered dimensionless

;From Circle Chart:
; Radius = (Chart#)/2 - 1

outerrad := 10
innerrad := 0

outerEighth("{NumPadDown}","{NumPadUp}","{NumPadRight}","{NumPadLeft}",outerrad)
outerEighth("{NumPadDown}","{NumPadUp}","{NumPadLeft}","{NumPadRight}",outerrad)
outerEighth("{NumPadLeft}","{NumPadRight}","{NumPadUp}","{NumPadDown}",outerrad)
outerEighth("{NumPadLeft}","{NumPadRight}","{NumPadDown}","{NumPadUp}",outerrad)
outerEighth("{NumPadRight}","{NumPadLeft}","{NumPadUp}","{NumPadDown}",outerrad)
outerEighth("{NumPadRight}","{NumPadLeft}","{NumPadDown}","{NumPadUp}",outerrad)
outerEighth("{NumPadUp}","{NumPadDown}","{NumPadLeft}","{NumPadRight}",outerrad)
outerEighth("{NumPadUp}","{NumPadDown}","{NumPadRight}","{NumPadLeft}",outerrad)

innerEighth("{NumPadDown}","{NumPadUp}","{NumPadRight}","{NumPadLeft}",innerrad)
innerEighth("{NumPadDown}","{NumPadUp}","{NumPadLeft}","{NumPadRight}",innerrad)
innerEighth("{NumPadLeft}","{NumPadRight}","{NumPadUp}","{NumPadDown}",innerrad)
innerEighth("{NumPadLeft}","{NumPadRight}","{NumPadDown}","{NumPadUp}",innerrad)
innerEighth("{NumPadRight}","{NumPadLeft}","{NumPadUp}","{NumPadDown}",innerrad)
innerEighth("{NumPadRight}","{NumPadLeft}","{NumPadDown}","{NumPadUp}",innerrad)
innerEighth("{NumPadUp}","{NumPadDown}","{NumPadLeft}","{NumPadRight}",innerrad)
innerEighth("{NumPadUp}","{NumPadDown}","{NumPadRight}","{NumPadLeft}",innerrad)



outerEighth(up,down,left,right,rad)
{
x := 0
y := rad

while y > rad/2
{
dig(up,y)
move(down,y)
dig(right,1)
x++
y := round((sqrt((rad*rad) - (x*x))))
}
move(left,x)
}

innerEighth(up,down,left,right,rad)
{
x := 0
y := rad

while y > rad/2
{
remove(up,y)
move(down,y)
remove(right,1)
x++
y := round((sqrt((rad*rad) - (x*x))))
}
move(left,x)
}

;Utility functions
remove(dir,number)
{
send x
send {Enter}
move(dir, number)
send {Enter}
}

dig(dir,number)
{
send d
send {Enter}
move(dir, number)
send {Enter}
}

move(dir,number)
{
loop {
if number <= 0
{
break
}
send %dir%
number--
}
}


[K4el]

Has anyone been successful using either of these two scripts? They start out ok for me but they dont end up with a circle.

-EDIT-

I've been experimenting with using these scripts and it almost seems like the input is coming in too fast for DF to handle. Am i missing something?

[kotekzot]

Spoiler (click to show/hide)

;One full circle
#c::

;Radius is considered as the distance from the origin to circle edge
;with the center square being the origin and considered dimensionless

;From Circle Chart:
;   Radius = (Chart#)/2 - 1

outerrad := 10
innerrad := 0

outerEighth("{NumPadDown}","{NumPadUp}","{NumPadRight}","{NumPadLeft}",outerrad)
outerEighth("{NumPadDown}","{NumPadUp}","{NumPadLeft}","{NumPadRight}",outerrad)
outerEighth("{NumPadLeft}","{NumPadRight}","{NumPadUp}","{NumPadDown}",outerrad)
outerEighth("{NumPadLeft}","{NumPadRight}","{NumPadDown}","{NumPadUp}",outerrad)
outerEighth("{NumPadRight}","{NumPadLeft}","{NumPadUp}","{NumPadDown}",outerrad)
outerEighth("{NumPadRight}","{NumPadLeft}","{NumPadDown}","{NumPadUp}",outerrad)
outerEighth("{NumPadUp}","{NumPadDown}","{NumPadLeft}","{NumPadRight}",outerrad)
outerEighth("{NumPadUp}","{NumPadDown}","{NumPadRight}","{NumPadLeft}",outerrad)

innerEighth("{NumPadDown}","{NumPadUp}","{NumPadRight}","{NumPadLeft}",innerrad)
innerEighth("{NumPadDown}","{NumPadUp}","{NumPadLeft}","{NumPadRight}",innerrad)
innerEighth("{NumPadLeft}","{NumPadRight}","{NumPadUp}","{NumPadDown}",innerrad)
innerEighth("{NumPadLeft}","{NumPadRight}","{NumPadDown}","{NumPadUp}",innerrad)
innerEighth("{NumPadRight}","{NumPadLeft}","{NumPadUp}","{NumPadDown}",innerrad)
innerEighth("{NumPadRight}","{NumPadLeft}","{NumPadDown}","{NumPadUp}",innerrad)
innerEighth("{NumPadUp}","{NumPadDown}","{NumPadLeft}","{NumPadRight}",innerrad)
innerEighth("{NumPadUp}","{NumPadDown}","{NumPadRight}","{NumPadLeft}",innerrad)



outerEighth(up,down,left,right,rad)
{
   x := 0
   y := rad

   while y > rad/2
   {
      dig(up,y)
      move(down,y)
      dig(right,1)
      x++
      y := round((sqrt((rad*rad) - (x*x))))
   }
   move(left,x)
}

innerEighth(up,down,left,right,rad)
{
   x := 0
   y := rad

   while y > rad/2
   {
      remove(up,y)
      move(down,y)
      remove(right,1)
      x++
      y := round((sqrt((rad*rad) - (x*x))))
   }
   move(left,x)
}      

;Utility functions
remove(dir,number)
{
   sendplay x
   sendplay {Enter}
   move(dir, number)
   sendplay {Enter}
}

dig(dir,number)
{
   sendplay d
   sendplay {Enter}
   move(dir, number)
   sendplay {Enter}
}

move(dir,number)
{
   loop {
      if number <= 0
      {
         break
      }
      sendplay %dir%
      number--
   }
}

try this version, it has send replaced with sendplay, works for me with 40d11 (i believe the original script should work fine with 40d).

[K4el]

Spoiler (click to show/hide)

;One full circle
#c::

;Radius is considered as the distance from the origin to circle edge
;with the center square being the origin and considered dimensionless

;From Circle Chart:
;   Radius = (Chart#)/2 - 1

outerrad := 10
innerrad := 0

outerEighth("{NumPadDown}","{NumPadUp}","{NumPadRight}","{NumPadLeft}",outerrad)
outerEighth("{NumPadDown}","{NumPadUp}","{NumPadLeft}","{NumPadRight}",outerrad)
outerEighth("{NumPadLeft}","{NumPadRight}","{NumPadUp}","{NumPadDown}",outerrad)
outerEighth("{NumPadLeft}","{NumPadRight}","{NumPadDown}","{NumPadUp}",outerrad)
outerEighth("{NumPadRight}","{NumPadLeft}","{NumPadUp}","{NumPadDown}",outerrad)
outerEighth("{NumPadRight}","{NumPadLeft}","{NumPadDown}","{NumPadUp}",outerrad)
outerEighth("{NumPadUp}","{NumPadDown}","{NumPadLeft}","{NumPadRight}",outerrad)
outerEighth("{NumPadUp}","{NumPadDown}","{NumPadRight}","{NumPadLeft}",outerrad)

innerEighth("{NumPadDown}","{NumPadUp}","{NumPadRight}","{NumPadLeft}",innerrad)
innerEighth("{NumPadDown}","{NumPadUp}","{NumPadLeft}","{NumPadRight}",innerrad)
innerEighth("{NumPadLeft}","{NumPadRight}","{NumPadUp}","{NumPadDown}",innerrad)
innerEighth("{NumPadLeft}","{NumPadRight}","{NumPadDown}","{NumPadUp}",innerrad)
innerEighth("{NumPadRight}","{NumPadLeft}","{NumPadUp}","{NumPadDown}",innerrad)
innerEighth("{NumPadRight}","{NumPadLeft}","{NumPadDown}","{NumPadUp}",innerrad)
innerEighth("{NumPadUp}","{NumPadDown}","{NumPadLeft}","{NumPadRight}",innerrad)
innerEighth("{NumPadUp}","{NumPadDown}","{NumPadRight}","{NumPadLeft}",innerrad)



outerEighth(up,down,left,right,rad)
{
   x := 0
   y := rad

   while y > rad/2
   {
      dig(up,y)
      move(down,y)
      dig(right,1)
      x++
      y := round((sqrt((rad*rad) - (x*x))))
   }
   move(left,x)
}

innerEighth(up,down,left,right,rad)
{
   x := 0
   y := rad

   while y > rad/2
   {
      remove(up,y)
      move(down,y)
      remove(right,1)
      x++
      y := round((sqrt((rad*rad) - (x*x))))
   }
   move(left,x)
}      

;Utility functions
remove(dir,number)
{
   sendplay x
   sendplay {Enter}
   move(dir, number)
   sendplay {Enter}
}

dig(dir,number)
{
   sendplay d
   sendplay {Enter}
   move(dir, number)
   sendplay {Enter}
}

move(dir,number)
{
   loop {
      if number <= 0
      {
         break
      }
      sendplay %dir%
      number--
   }
}

try this version, it has send replaced with sendplay, works for me with 40d11 (i believe the original script should work fine with 40d).

You win the thread, thanks.

[K4el]

Unfortunately it still is not producing a circle. Wonder what's going on.

[Ampersand]

Are you changing the window? Pressing any buttons while the script is working?

[Guillo]

Yeah, ever since I changed from 40d9 to 40d11 my script doesn't work and the sendplay replacement doesn't fix it either... I really don't know what to do about it as I don't want to go back to manually making circles. kotekzot, can you reproduce the results with an unmodified init.txt? Maybe you went in there or elsewhere and changed your sticky key delay time.

On a side note, if someone could come up with a script that makes the circles more efficiently that would be nice. I just brute forced mine out, and though it works great (in 40d-40d9), it makes some unnecessary movements.

*EDIT*
I should mention that sendplay makes the script do NOTHING for me. It doesn't even make crappy circles

[kotekzot]

kotekzot, can you reproduce the results with an unmodified init.txt? Maybe you went in there or elsewhere and changed your sticky key delay time.

just unrarred a fresh 40d11 from the future of the fort thread and it worked perfectly. the only thing i can think of is that i've disabled sticky shift a while ago, but i think it worked ok before that, too.