[WWcvs] pg: Allow for vectors to be marked as Column Vectors.

[dpvc v. a. <we...@ma...>]

Log Message:
-----------
Allow for vectors to be marked as Column Vectors.

Modified Files:
--------------
    pg/lib/Parser:
        List.pm
    pg/macros:
        Value.pl

Revision Data
-------------
Index: List.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Parser/List.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -Llib/Parser/List.pm -Llib/Parser/List.pm -u -r1.11 -r1.12
--- lib/Parser/List.pm
+++ lib/Parser/List.pm
@@ -216,7 +216,8 @@
   $open  = '\left' .$open  if $open  ne '';
   $close = '\right'.$close if $close ne '';
   foreach my $x (@{$self->{coords}}) {push(@coords,$x->TeX)}
-  return $open.join(',',@coords).$close;
+  return $open.join(',',@coords).$close unless $self->{ColumnVector};
+  '\left[\begin{array}{c}'.join('\cr'."\n",@coords).'\cr\end{array}\right]';
 }
 
 #
Index: Value.pl
===================================================================
RCS file: /webwork/cvs/system/pg/macros/Value.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -Lmacros/Value.pl -Lmacros/Value.pl -u -r1.5 -r1.6
--- macros/Value.pl
+++ macros/Value.pl
@@ -16,6 +16,8 @@
 sub Interval {Value::Interval->new(@_)}
 sub Union    {Value::Union->new(@_)}
 
+sub ColumnVector {Value::Vector->new(@_)->with(ColumnVector=>1,open=>undef,close=>undef)}
+
 # sub Formula  {Value::Formula->new(@_)}
 # 
 # #