Dumpning av HR-Grafik

8 posts in thread

• Anders Sagadin <4040> · Text 762 · w6 · inlagg

  1985-06-19 23:06

  Ärende: Dumpning av HR-Grafik

  Kan någon hjälpa mej med hur jag ska få programmet HRDUMP.BAS att fungera på en ABC-806. Programmet dumpar HR-grafiken perfekt på min ABC-800. Vad ska jag ändra för att få det att fungera på en 806:a ? Programmet HRDUMP.BAS ligger under ABC800/GRAFIK och kälkoden,där man troligtvis ska göra ändringarna i ligger under ABC800/ASMKOD. Skriv gärna ett brev genom Monitorn eller en komentar.
  • Patric Ljung <5455> · Text 764 · w6 · kommentar

    1985-06-20 13:09

    Ärende: Dumpning av HR-Grafik

    Du kan få ett av mig, med det kan du dumpa bilder på ABC806. Men tyvärr bara bilder med FGCTL BLK+RED+RED+RED dvs 512*240 pixels. Det är iofs enkelt att ändra men jag har inte tid nu utan om du fortfarande så skriv ett brev så kan jag fixa till det efter min semester (10 dagar). Jag skickar in programmet vart? Tja INLÅDAN. under namn HRCOPY.FN Det är en funktion som kan MERGEas in i ett program funktionen ligger på raderna 30000-30100 ungefär. Anropas med Z=FNHRCOPY. Ähh, jag skickar det som ett inlägg här i mötet. måh (återkommande) Patric
    • Patric Ljung <5455> · Text 765 · w6 · kommentar

      1985-06-20 13:20

      Ärende: Dumpning av HR-Grafik

      Här kommer det! 30000 EXTEND : INTEGER 30010 DEF FNHrcopy(Pixels) 30020 Text¤='Copying HR-picture to Printer (EPSON MX80)' 30030 ; CUR(24,40-LEN(Text¤)/2) Text¤; 30040 OPEN 'PR:VSA30A72.5' AS FILE 1 30050 PUT #1,CHR¤(27,51,23) 30060 FOR J=29 TO 0 STEP -1 30070 ; #1,TAB(18) CHR¤(27,76,Pixels+1,SWAP%(Pixels+1)); 30080 FOR I=0 TO Pixels 30085 Bitim=0 30090 FOR K=7 TO 0 STEP -1 30100 IF FGPOINT(I,J*8+K) Bitim=Bitim OR (2ÜK) 30110 NEXT K 30120 PUT #1,CHR¤(Bitim) : IF Pixels<256 PUT #1,CHR¤(Bitim) 30130 NEXT I 30140 ; #1,'' 30150 NEXT J 30160 CLOSE 1 30170 RETURN -1 30180 FNEND Rutinen är justerad, du anropar rutinen med Z=FNHrcopy(Pixels) där Pixels är antalet Pixels i x-led. Om Pixels<256 antas det vara 256x240 mod eller 240x240 (ABC800 kompatibel) och då görs två utmatningar av varje 'bitimage' så att skärmens utsende stämmer bättre äverens med resultatet på skrivaren. Vänta skall justera ett par rader till... Notera att Pixels skall vara 512-1 = 511 pga 0 - 511 är 512 pixels men man skall ange den största x-koordinaten. Hej hopp! mvh Patric
      • Benny Löfgren SYSOP <2615> · Text 774 · w6 · kommentar

        1985-06-23 20:48

        Ärende: Dumpning av HR-Grafik

        Snälla du, har du inte förstått hur det här systemet är uppbyggt? Vi har en alldeles utmärkt programbank för sådana här rutiner. Varför inte ta och skicka in rutinen dit istället för att belasta teleräkningarna för de som inte är intresserade.
        • Patric Ljung <5455> · Text 839 · w6 · kommentar

          1985-07-05 16:27

          Ärende: Dumpning av HR-Grafik

          jojojojajaja. Men använder man ABCUTE är det mycket enklare. Men man skall väl kunna göra WRITE eller nåt sånt va? Men nu kan jag inte lägga in den själv för mitt ABCUTE passar inte till 834. Hoppas ni ursäktar men jag har bara någonting emot att använda den 'inbyggda' terminal-rutinen Om du vill veta vad jag använder nu så är det ett program som klarar loggning till skrivare. Som jag knappade ihop på en halvtimme. Jätte enkelt, man trycker bara på PRINT så börjar den att skriva. En gång till och den slutar. (ABC99). muh (ursäktande)/ Patric
          • Anders Renheim <8051> · Text 873 · w8 · kommentar

            1992-03-20 16:22

            Ärende: Printersnabel,f.d.??

            Jodå, kom gärna med råd. Nu har jag i alla fall fått tangentbordet av min arbetskamrat för att försöka löda tillbaka DIN-kontakten på rätt sätt. Matningsspänning och jord var ju enkla att hitta :-), det blir lite svårare med dom andra. Vilka som är ingångar och vilka som är utgångar har jag kontrollerat. Keydown och sänt data kan jag ju alltid kolla genom att lägga matning på kortet och kolla med oscilloskop, hoppas jag. Ingångarna blir jobbiga. Om någon skulle råka öppna sin DIN-kontakt och se vilken färg som går vart så skulle jag inte alls ta illa upp om jag fick veta det :-). Det skulle spara mej en massa huvudbry i alla fall. Jag har ju ingen ABC att testa bordet mot:-(. PS Det är 55 tangenter på bordet. RHM
            • Jan-Olof Svensson <6057> · Text 882 · w8 · kommentar

              1992-03-22 09:31

              Ärende: Kabel för tangentbord ABC 55

              Min kontakt till datorn är i alla fall lödd så här: (sett från kabeln) orange---o o---röd vit---o o---gul blå---o o---brun o---svart
        • Mikael Niilimaa SYSOP <7821> · Text 775 · w8 · kommentar

          1992-02-02 19:06

          Ärende: Tedterm

          Så klart inte!