[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference hydra::amiga_v1

Title:AMIGA NOTES
Notice:Join us in the *NEW* conference - HYDRA::AMIGA_V2
Moderator:HYDRA::MOORE
Created:Sat Apr 26 1986
Last Modified:Wed Feb 05 1992
Last Successful Update:Fri Jun 06 1997
Number of topics:5378
Total number of notes:38326

1743.0. "LA50 Driver Mod" by DPDMAI::ANDERSONA () Wed Oct 05 1988 00:05

    I am having problems printing graphics on my LA50.  The same problem
    is described in note 994.4.  There is a modified version of the
    LA50 driver around and I have sent mail to the person who came up
    with the modifications.  He was kind enough to send me pointers
    to his modified driver.  But for some unknown reason I cannot get
    at it.  If someone has a copy of this driver can you post a pointer
    to its location?  Or send me mail and I can supply a self addressed
    stamped floppy to someone willing to copy it and drop it in the
    mail.
    
    The problem shows when I am printing scores under DMCS.  The LA50
    starts printing from the middle of the carriage it should do a return
    first.  Graphic dump seams to work fine (in this the background
    was black).  The comments in notes 994 sound exactly like my simptoms
    and the modifications seamed to fix it.
    
    I was desperate enough to try the LN03+ driver I got off of Compuserve.
    All I got for my trouble was a visit from the Guru.  By the way
    would anyone be interested in an LN03+ driver?
    
    P.S. How do you tell the version of the driver?
    
                    
    Thanks in advance
    Alan
    
T.RTitleUserPersonal
Name
DateLines
1743.1...MLNTSC::MILOSMilos Roberto TSC MilanFri Oct 07 1988 08:207
    Alan, 
    I think it is time I put this version of LA50 driver in some public
    accessible directory on the net (TAPE::?) as soon as I discover
    where and how to put it I'll post a reply here indicaing where to
    look for it.
    
    Roberto
1743.2here it isMLNTSC::MILOSMilos Roberto TSC MilanMon Oct 10 1988 14:183
    My (modified) version of LA50 driver should be appear in some directory
    on TAPE:: RSN.
    
1743.3ELWOOD::PETERSMon Oct 10 1988 18:577
    
    
    	The new driver is in
    
    	TAPE::User1:[amiga.arc]myla50.arc
    
    
1743.4Thanks for tryingDPDMAI::ANDERSONAWed Oct 12 1988 03:5123
    Thanks for trying guys but now that I can get at it it is corrupt.
    This is what I get when I do a ARC V MYLA50.ARC
    
    
    
    Name     Length    Stowage    SF   Size now  Date       Time CRC
    ======   ========  ========  ====  ========  =========  ==== ======
    CompTrace      500  Crunched   17%     416   6 Jan 87  11:11a 6744
    An entry in MYLA50.ARC has a bad header.  5 bytes skipped.
    data.c      658693  Crunched  100%      1023   2 Feb 87  10:57p CEF4
    An entry in MYLA50.ARC has a bad header.  11 bytes skipped.
    dospecial.c   1328  Crunched   37%       847   1 Aug 87  10:35a 4335
    An entry in MYLA50.ARC has a bad header.  2 bytes skipped.
    init.asm      1283  Crunched   44%       731  19 Dec 87   8:44p 4F9E
    An entry in MYLA50.ARC has a bad header.  4 bytes skipped.
    
    
    I used kermit to down load from the Vax.
    
    Thanks for trying
    Alan
             
          
1743.5Use XMODEM.AYOV10::ATHOMSONC'mon, git aff! /The Kelty ClippieWed Oct 12 1988 06:507
    Alan,
    	The copy of myla50.arc that I took from TAPE:: was in STREAM_LF
    format and should have been downloaded using XMODEM if you left
    it alone OR if you wanted to use KERMIT you should have converted
    it using CVTARC first.
    
    				Alan T.
1743.6I triedDPDMAI::ANDERSONAFri Oct 14 1988 00:3910
    Alan T.                                                     
    
    I am just a Field Service engineer.  I only have a captive account and
    can not get to DCL.  They are kind enough to give us access to Kermit
    but I cannot get to XMODEM and I can not get CVTARC to work.
    
    I hate captive accounts!!!!!!
                     
    Alan 
    
1743.7Believe me, I sympathize.DIXIE1::MCDONALDSurly to bed, surly to rise...Fri Oct 14 1988 01:1012
    Not really a problem, Alan.  I just moved from Software Engineering
    (DECHeaven) to Software Services (DECHell) and they've given me
    a captive ALL-IN-1 account.  (Bet you're in the Southern Area.)
    
    Give me a call at (904) 882-5665 between 7:30 a.m. and 4:00 p.m.
    Central Standard Time.  There are ways around almost ANY problem.
     ;-)
    
    P.S. That's a customer site.  Just ask for me.
    
    
    					John 
1743.8Thanks for the FixDPDMAI::ANDERSONASun Oct 23 1988 19:2924
    Thanks everyone for your help in getting this file.  It did the
    trick DMCS now prints the score properly and the notepad works right.
    
    I ended up downloading it to a Rainbow 100 in the office with Poly
    Comm.  And I used to think Poly Comm wasn't worth the disk space
    it took up.  For all those others stuck in captive all in one accounts
    you can down load files that Kermit mashes up with Poly Comm. You
    must use the /B switch on the MSDOS side and the /I on the VMS side.
    
    Example: XFR>MYLA50.ARC/B FROM MYLA50.ARC/I
    
    
    Again thanks for all your help everyone.
    
    P.S. Jessica.arc down loaded O.K. using this method so I guess it
    wasn't a fluke.
    
    
    Alan
    
    
    
    
1743.9Installing the LA50PUGH::MCDONALDAFri Nov 04 1988 06:325
    I've been using this driver for a while but still do not seem to
    get readable graphics results with, for example, DPAINT. I've put
    the driver into devs/printers/; I've got preferences pointing to
    it, what else should I be doing ?
    
1743.10Try grayscale not black and whiteDPDMAI::ANDERSONASat Nov 05 1988 01:4818
    I don't have DPAINT but I set preferences for gray scale and it
    makes an nice looking output with GRAPHICDUMP.   I played with the
    Heart.ILBM picture that came with extras disk and some workbench
    screen dumps.  The notepad outputs clear text.  Also my kids program
    now prints his toys that he can build.  Some colors wont print.
    But that is a problem of trying to translate multiple colors in
    to black and white something just don't translate.
    
    By the way I just got WB1.3 and the graphic printing no longer works
    with the LA50.  It looks like it goes thru the motions but nothing
    gets output.  Also using CMD to redirect the printout to a file
    nothing happens.  Yet when I select any other driver the file is
    created.  So I guess CBM changed the way the drivers get graphic
    data.  Might have been something to do wiht their speed up.  The
    text output still functions O.K.
  
    Alan
      
1743.11Novice suggestionsCAPN::SYLORNetwork MagicSun Nov 06 1988 02:4224
    I got DPaint to print to the LA50.   I'm new to this Amiga, only
    had it for a week.  Some of the things that confused me
    for awhile were:   
    
    The file comes out of the myla50.arc as la50.uue. You've got to run
    uudecode on it to get the *real* la50 file. 
    
    Then to set the speed, you have to go into the Serial port speed
    setting through preferences.  Its not in the printer section. 
    
    The documentation with myla50 didn't tell me where to put the ****
    file.   After typing lots of dirs to the CLI, i found where to stuff
    it :-)   it goes in
    	devs/printers/la50
    
    Some dumb questions.
    
    What's that PrintInit icon do?  I click on it, and nothing seems
    to happen.
    
    When I turn off the Amiga, the printer prints a few (5-6) garbage
    characters.   Any idea why?
    
    					Mark
1743.12LEDS::ACCIARDIDukakis should pluck his eyebrowsSun Nov 06 1988 23:056
    
    If you were in the middle of an application and wanted to change
    some printer setings, PrintInit causes the new settings to take
    effect.
    
    Ed.	
1743.13LA50 and Amiga Dos 1.3DPDMAI::ANDERSONASat Nov 12 1988 01:0114
    I found out what was keeping the LA50 driver from functioning under
    1.3 you have to use the printer.device from 1.2.  Then you can print
    graphics once again.   Of course the new graphics features won't
    work.  
    
    I suspected that the garbage was from the power supply  slowly dying
    away.  I rember somewhere in this notes file someone stating that
    the -12V was only used for the RS232 port.  I get a whole line of
    garbage but I am using a 238 watt ex Rainbow power supply it would
    take longer to die down.
    
    
    Alan
    
1743.14Will there be a fix for 1.3?MQOFS::DESROSIERSTout est possible Mon Nov 28 1988 12:467
    Will some programming genius (not me, I am just a pournelle {notice
    the small p}) modify the LA50 printer driver so that it works with
    the features provided with 1.3? please.
    
    
    Jean
    
1743.15Please !AYOV28::ATHOMSONC'mon, git aff! /The Kelty ClippieMon Nov 28 1988 13:388
1743.16another small problemDPDMAI::ANDERSONASat Dec 03 1988 17:2924
    One other problem I have noticed with the LA50 driver.  When you
    are printing in graphics mode it will drop multiple blank lines.
    
    For example from notepad I want this:
    
    Line one
    
    
    
    Line two
    
    What I get is:
    
    Line one
    Line two
 
    
    Graphic Dump does the same thing.  This is with WB1.3 and the
    printer.device from 1.2.  I only had the new LA50 driver  for about
    a week before I got WB1.3 so I don't know if it had the same problem
    or not.
       
    Alan
    
1743.17Doesn't seem to be a new bugCAPN::SYLORNetwork MagicMon Dec 05 1988 03:523
    The same "blank line removal" problem happens with 1.2.
    It happens with graphic printing from DPAINT also.
    							Mark
1743.18Sixel Read programDPDMAI::ANDERSONAMon Dec 12 1988 00:55134
This may help a little with the problem of the LA50 Driver dropping blank 
lines in graphic mode.  If you use CMD to redirect the serial output to a 
file and then print a graphic image using the LA50 driver you will get a 
sixel file.  This file can then be edited with a text editor like Emacs.  
You can then place the Sixel Graphic New Line character in the file at the 
appropiate places.  This is the character ( - ) This will move the 
printhead down the page six dots.  The output of the LA50 driver does not 
use the Sixel repaet character sequence.  So I wrote a small program in 
AmigaBasic to read a sixel file and output a file using the Sixel repeat 
sequence instead of a repeated character stream.  This not only makes the 
file smaller but it also makes it a little easier to read the file under a 
text editor in order to place your Graphic new line.

Simply run the program under AmigaBASIC it will prompt you for a input file 
name.  It will then go and output a converted file with a .SIXEL added to 
the file name.

Then you edit the .SIXEL file and place the ( - ) where you want it.  This 
is trial and error as of yet.  I am thinking of converting my GWBASIC sixel 
file display program that I wrote a couple of years ago.  That way you 
should be able to see the sixel file on your screen before it is printed.



REM   Sixel Conversion Program
REM   Alan  S. Anderson   November 17, 1988
REM   The purpose of this program is to read
REM   A sixel file and output a smaller sixel file
REM   using the Sixel repeat character sequence
REM   This will make the file smaller and easier to modify


Startmain:

InName:
CLS
LOCATE 2,5
INPUT"Enter Sixel file to read"; Infile$
IF Infile$ = "" GOTO InName

OPEN "I",1,Infile$ 
x = 0 : Quit = 0 : C = 0 : CountIt = 0

OPEN "O",2,Infile$+".Sixel"

FOR d = 1 TO 5
IF EOF(1) THEN EndProgram
I$ = INPUT$(1,#1) : I = ASC(I$)        ' read the first char
IF I = 144 THEN                  
   x = 1 GOTO 400                      ' DCS char
     ELSEIF I = 27 THEN
     GOTO CheckStart                   ' <ESC>  Char
       ELSEIF I = 80 THEN
       GOTO CheckStart                 ' P char
         ELSEIF I = 113 THEN 
         GOTO CheckStart               ' q char
END IF
NextChar:
NEXT d

CheckStart:
x = x + 1 
IF x = 3 THEN
GOTO StartFile             ' x = 3 for sixel mode 
    ELSE
      GOTO NextChar
END IF
LOCATE 4,1 : PRINT "The first five characters do not contain the Escape"
PRINT "sequence to turn graphics mode on.  Please check the file"
END

StartFile:
PRINT #2, CHR$(27)+"Pq"        ' turn on graphics mode in OutFile

ReadFile:
IF EOF(1) THEN EndProgram

I$ = INPUT$(1,#1) : I = ASC(I$)                     ' read a char

NoRead:
IF I = 13 THEN 
  GOTO OutFile                                      ' <cr>
    ELSEIF I = 27 THEN
    Quit = 1 : GOTO OutFile                         ' <esc> char
      ELSEIF I = 156 THEN
      GOTO EndProgram                               ' ST Sixel exit char
        ELSEIF I = 92 AND Quit = 1 THEN
        GOTO EndProgram                             ' Sixel Exit Character
          ELSEIF I = 33 THEN
          GOTO OutFile                              ' DECGRI repeat introducer
            ELSEIF I = 34 THEN
            GOTO OutFile                            ' DECGRA Raster Attributes ignore it
              ELSEIF I = 36 THEN
              GOTO OutFile                          ' DECGCR Graphic caraiage return
                ELSEIF I = 45 THEN 
                GOTO OutFile                        ' DECGNL Graphic newline
                  ELSEIF I => 63 AND I =< 126 THEN
                  GOTO Count                        ' Graphics character
END IF
GOTO ReadFile

OutFile:
IF I = 45 THEN
  PRINT #2, I$
  ELSE 
  PRINT #2, I$;
END IF
GOTO ReadFile

Count:
Count = 1                 ' Set up count
Keep$ = I$               ' Save Sixel Char in ISave$
Keep = ASC(I$)
ReadIt:
IF EOF(1) THEN EndProgram
I$ = INPUT$(1,#1) : I = ASC(I$)   ' read next sixel char
IF I = Keep THEN                 ' compare with previous
  Count = Count + 1                 ' if same inc count
  GOTO ReadIt
    ELSEIF I <> Keep AND Count = 1 THEN  ' if not and previous was
    PRINT #2, Keep$;                      ' not a repeat print previous
    GOTO NoRead                            ' go back to evaluate I$
      ELSEIF I <> Keep AND Count > 1 THEN  ' if not same and previous was
      C$ = STR$(Count)                        ' a repeated chararter
      Length = LEN(C$)                     ' get the count into a 
      Count$ = RIGHT$(C$,Length-1)            ' string and then print it
      PRINT #2, CHR$(33);Count$;Keep$;       ' with the repeat prefix 
      GOTO NoRead                             ' go back to Evaluate I$
END IF

EndProgram:
PRINT #2,"\"
SYSTEM