b037f51443
;PU;PA 50,200;PD;PU; this now actually puts a single dot at 50,200 many thanks to the programs author, Dr. Martin Kroeker <mk@daveg.com> for supplying the patch.
56 lines
1.4 KiB
Text
56 lines
1.4 KiB
Text
$NetBSD: patch-ac,v 1.5 2000/11/15 23:05:06 dmcmahill Exp $
|
|
|
|
-fix a problem scaling tick marks.
|
|
|
|
- also fix a bug when plotting single points. (ie,
|
|
commands like
|
|
;PU;PA 50,200;PD;PU;
|
|
now actually put a single dot at 50,200
|
|
|
|
both of these are fixed in the next
|
|
(not yet released version 3.4) hp2xx.
|
|
|
|
--- hpgl.c.orig Sun Feb 13 18:19:28 2000
|
|
+++ hpgl.c Wed Nov 15 14:10:36 2000
|
|
@@ -1126,7 +1126,11 @@
|
|
for ( ; ; )
|
|
{
|
|
- if (read_float (&p.x, hd)) /* No number found */
|
|
+ if (read_float (&p.x, hd)){ /* No number found */
|
|
+ if(pen_down){ /*simulate dot created by 'real' pen */
|
|
+ Pen_action_to_tmpfile (MOVE_TO, &p_last,scale_flag);
|
|
+ Pen_action_to_tmpfile (DRAW_TO, &p_last,scale_flag);
|
|
+ }
|
|
return ;
|
|
-
|
|
+ }
|
|
if (read_float (&p.y, hd)) /* x without y invalid! */
|
|
par_err_exit (2,PA);
|
|
@@ -1521,19 +1525,23 @@
|
|
if (mode == 0) /* X tick */
|
|
{
|
|
- /* dividing by Q appears to be unnecessary - MK
|
|
+ if(scale_flag){
|
|
p1.y -= neg_ticklen * (P2.y - P1.y) / Q.y;
|
|
p2.y += pos_ticklen * (P2.y - P1.y) / Q.y;
|
|
- */
|
|
+ }
|
|
+ else{
|
|
p1.y -= neg_ticklen * (P2.y - P1.y) ;
|
|
p2.y += pos_ticklen * (P2.y - P1.y) ;
|
|
+ }
|
|
}
|
|
else /* Y tick */
|
|
{
|
|
- /*
|
|
+ if (scale_flag){
|
|
p1.x -= neg_ticklen * (P2.x - P1.x) / Q.x;
|
|
p2.x += pos_ticklen * (P2.x - P1.x) / Q.x;
|
|
- */
|
|
+ }
|
|
+ else{
|
|
p1.x -= neg_ticklen * (P2.x - P1.x);
|
|
p2.x += pos_ticklen * (P2.x - P1.x);
|
|
+ }
|
|
}
|
|
|