[serious] Free Vector-Based drawing prog?

[bushmobile]

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

[wossname]

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

Also works on linux.

[RobDog888]

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

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

[bushmobile]

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

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

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

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

[RobDog888]

* cough cough *

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

[bushmobile]

* cough cough *

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

I was looking for something more permanent

[RobDog888]

Well I'm sure you could get creative

[iPrank]

http://tinyurl.com/e5efr

[bushmobile]

http://tinyurl.com/e5efr

i obviously slapped in the wrong keywords

Cheers iPrank, Inkscape looks great

[yrwyddfa]

-- 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?