Does anyone know of any free vector-based drawing programs? (for windows)
Printable View
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
:eek2: $99.95 - that's a funny looking free, rob :DQuote:
Originally Posted by RobDog888
i wait with baited breath (no sarcasm intended)Quote:
Originally Posted by wossname
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
I was looking for something more permanentQuote:
Originally Posted by RobDog888
Well I'm sure you could get creative ;)
i obviously slapped in the wrong keywords :rolleyes:Quote:
Originally Posted by iPrank
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? ;)