[serious] Free Vector-Based drawing prog?

Does anyone know of any free vector-based drawing programs? (for windows)

Apart from the one I'm writing you mean? No. Thats kind of why I'm writing one. :)

Also works on linux.

How about swish? They have a free trial version too.

http://www.swishzone.com/index.php

Quote:

---

Originally Posted by RobDog888

How about swish? They have a free trial version too.

http://www.swishzone.com/index.php

---

:eek2: $99.95 - that's a funny looking free, rob :D

Quote:

---

Originally Posted by wossname

Apart from the one I'm writing you mean? No. Thats kind of why I'm writing one. :)

---

i wait with baited breath (no sarcasm intended)

ah well, in that case i guess i'll have to find some nice cheap OEM stuff

* cough cough *

http://www.swishzone.com/index.php?a...&tab=downloads

Quote:

---

Originally Posted by RobDog888

* cough cough *

http://www.swishzone.com/index.php?a...&tab=downloads

---

I was looking for something more permanent

Well I'm sure you could get creative ;)

http://tinyurl.com/e5efr

Quote:

---

Originally Posted by iPrank

http://tinyurl.com/e5efr

---

i obviously slapped in the wrong keywords :rolleyes:

Cheers iPrank, Inkscape looks great :)

VB Code:

-- vector.ads
-- (c) Yrywddfa, 2006
-- Specification of the vector package
 
with Ada.Numerics.Generic_Elementary_Functions;
 
package Vector is
   type Vector is array (Integer range <>) of Float;
   function "+" (Left,Right:Vector) return Vector;
   function "-" (Left,Right:Vector) return Vector;
   function Inner (u,v:Vector) return Float;
   function Length (u: Vector) return Float;
   function Theta (u,v:Vector) return Float;
   function Projection (u,v:Vector) return Float;
end Vector;
 
package body Vector is
 
 
 
   -- Adds the two vectors together
   function "+" (Left,Right:Vector) return Vector is
      Result    :Vector (Left'Range);
   begin
      for i in Left'Range loop
         Result(i):=Result(i)+(Left(i)+Right(i));
      end loop;
      return Result;
   end "+";
 
   -- Subtracts the two vectors
   function "-" (Left,Right:Vector) return Vector is
      Result    :Vector (Left'Range);
   begin
      for i in Left'Range loop
         Result(i):=Result(i)+(Left(i)-Right(i));
      end loop;
      return Result;
   end "-";
 
   -- Returns the inner product (dot-product) of the two vectors
   function Inner (u,v:Vector) return Vector is
      Result    :Vector (u'Range);
   begin
      for i in u'Range loop
         Result(i):=Result(i)+(u(i)*v(i));
      end loop;
      return Result;
   end Inner;
 
   -- Returns the Length (magnitude) of the vector
   function Length (u:Vector) return Float is
      Result    :Float:=0.0;
   begin
      for i in u'Range loop
         Result:=Result+u(i)**2;
      end loop;
      return Result;
   end Length;
 
   -- Returns the angle difference between the two vectors
   function Theta(u,v:Vector) return Float is
      use Ada.Numerics.Generic_Elementary_Functions;
   begin
      return ArcCos(Inner(u,v)/(Length(u)*Length(v)));
   end Theta;
 
   -- Returns projection of u onto v
   function Projection(u,v:Vector) return Float is
   begin
      return Inner(u,v)/Length(u);
   end Projection;
 
end Vector;

How's that to get you started? ;)