Retro Preservation Workspace

Monitorn

Browse archived Monitorn möten and the ABC80 mailing list, with full-text and text-number search.

← Back to ABC Tools

Meetings · Z80 · Thread

linje-generator

10 posts in thread

Patric Ljung <5455> · Text 619 · w8 · inlagg

1986-11-03 12:59

Ärende: linje-generator

Jag satt och pula litet med assembler och lyckades göra en rutin för att rita linjer. Då blev jag glad. Men när jag till sist prövade upptäckte jag att den var slö, lika slö som samma rutin i BASIC. Då deppade jag ihop: - Är jag så soppig. Nåväl. Så här ser logik-schemat ut: integer: X1,Y1,X2,Y2,Color,Dfdx,Dfdy,Dx,Dy,X,Y; LINE(X1,Y1,X2,Y2) INIT_seq_ Dfdx:=X2-X1; Dfdy:=Y2-Y1; Dx:=SGN(Dfdx); Dy:=SGN(Dfdy); X:=X1; Y:=Y1; NDOT_sel_ _if_ ABS(Dfdx)>ABS(Dfdy) Ndots:=ABS(Dfdx); NDOT_or_ Ndots:=ABS(Dfdy); NDOT_end_ INIT_end_ PLOT(X,Y); DRAW_iter_ _while_ Ndots>0 STEP_sel_ _if_ F(X+Dx,Y)<F(X,Y+Dy) && F(X+Dx,Y)<F(X+Dx,Y+Dx) X:=X+Dx; STEP_or_ _if_ F(X,Y+Dy)<F(X+Dx,Y) && F(X,Y+Dy)<F(X+Dx,Y+Dx) Y:=Y+Dy; STEP_or_ X:=X+Dx; Y:=Y+Dy; STEP_end_ PLOT(X,Y); Ndots:=Ndots-1; DRAW_end_ LINE_end_ F_seq_ Q:=(Y-Y1)*Dfdx-(X-X1)*Dfdy RETURN ABS(Q) F_end_ Vad rutinen egentligen gör är att man kollar derivatan i tre koordinater 'framför' den punkt man befinner sig på. Den koordinat vars derivata som ger största likhet med derivatan man får genom att ta start- och slutkoordinat. samband: Y2 - Y1 Y - Y1 --------- = -------- X2 - X1 X - X1 För att likhet skall råda måste punkten (X,Y) ligga exakt på linjen mellan P1 och P2. Desto längre bort punkten ligger desto större olikhet kommer det att bli. Om man korsmultiplicerar uttrycket och flyttar över det ena ledet till andra sidan får man uttrycket i funktionen F. (Y - Y1)*(X2 - X1) - (X - X1)*(Y2 - Y1) Med hjälp av detta kan man bestämma till vilken punkt man skall gå härnäst. Om det finns nån som kan få ner detta i assembler (vilket jag iofs har gjort men det blev inte så bra, fungerade gjorde den förvisso, men inte tillräckligt snabbt). Eller om det finns nån som har nån bättre metod så skulle jag uppskatta det. Rutinen skall användas i assembler så en snutt i assembler vore uppskattat. När jag fått ordning på't så skall klubben få't. Vad det blir får ni se, om det blir klart nå'n gång. (tyffverr blir det nog bara för 806, <men om nån vill ta källkoden så kan han göra om det till ABC800). moss / Patric
- Patric Ljung <5455> · Text 620 · w8 · kommentar
  
  1986-11-04 09:23
  
  Ärende: linje-generator
  
  Det var visst inte så många som kunde svara på min fråga så jag flyttade den hit. Där det förmodligen finns fler assemblerpulare. Jag efterlyser en rutin för att generera vektorer (linjer) där det går undan. moss / Patric
  - Patric Ljung <5455> · Text 622 · w8 · kommentar
    
    1986-11-05 23:41
    
    Ärende: linje-generator
    
    Finns det _ingen_ som kan eller vill folk inte förtälja sina knep & knåp? Ställer bara en liten fråga. mvh / Patric
    - Lars Gjörling <6825> · Text 626 · w8 · kommentar
      
      1986-11-09 00:08
      
      Ärende: linje-generator
      
      Nej jag tror inte att klubbmedlemmarna är ohjälpsamma, och inte heller tror jag att ingen kan någonting. Men det här är ju mycket tidskrävande att sätta sig in i och att skriva en assemblerrutin för. Du ger ju inte heller så mycket upplys- ningar om den assemblerrutin som du har fått att fungera mer än att den är slö. Jag är själv ingen stjärna på assembler, du kan säkert mycket mer än jag, men eftersom ingen annan har svarat dig, så skri- ver jag för att åtminstone visa att någon vill besvära sig. Jag har tittat på ditt matematiska schema och kan inte finna något galet, det BORDE fungera, och det har det ju också gjort. Men VARFÖR är rutinen slö? Assemblerrutiner brukar inte vara långsamma. Mina funderingar är att det måste vara något oprak- tiskt i den rutin som plottar punkterna (X,Y) på bilden. Kommunikationen med en HR-bild sker, om jag inte misstager mig, genom att den del ar RAM-minnet, som motsvarar bilden, med hjälp av minnesblocktabellen (utport 52) blockas in över internminnets nedersta 32k, vars adresser sedan kan användas för skrivning och läsning i HR-bilden. Därefter blockas HRbil- den ut igen. Om det nu är så (jag hoppas att jag inte förolämpar dig nu) att din plotrutin blockar in och blockar ut HR-minnet för var- je punkt, så måste den bli slö. Du måste i så fall i din assemblerrutin blocka in HR-bilden, sedan plotta alla punkter med direkta assemblerkoder, och först därefter blocka ut HR-bilden. Det var bara några funderingar. Du får förlåta mig om jag varit ut i ogjort väder. Mvh Lars Gjörling <6825>
      - Patric Ljung <5455> · Text 627 · w8 · kommentar
        
        1986-11-09 01:42
        
        Ärende: linje-generator
        
        Tack för svaret, man vet inte hur folk reagerar när man inte får det minsta tillstymmelse av svar. Så det var bra att du 'besvärade' dig. Jag får väl dock förklara mig och berätta vad jag hittills kommit fram till. Varför rutinen var slö: Det beror nog inte på plottningsrutinen av punkterna (annars tänkbar orsak). HR-minnet, hela minnet på 32K är inblockat HELA tiden. Detta är medvetet gjort för att det skall gå så snabbt det kan. Dock berodde det nog på multiplikations rutinen och funktionen F och testerna av denna. Men trots allt gav det en fungerande rutin, vilket jag tyckte var skoj. Men pga dess slöhet var jag tvungen att kasta den på hyllan. Ny metod: Jag har nu plockat fram en ny metod (Har ej hittat på den själv). Dock har jag applicerat den i assembler själv. Hur man matematiskt kommit fram till rutinen kan jag ej riktigt förklara, men den kan bli snabb! Mycket snabbare kan man nog inte göra den om man inte har klockfrekvens till processorn eller möjligtvis några funktioner hos processorn som kan uttnyttjas (ex 68000-serien). BASIC-funktion för ritning av vektor med vinkeln mellan vektorn och horison planet mindre än eller lika med 45 grader. Inom denna ram åt vilket håll som helst. procedur ÅTTAP(x1,x2,y1,y2,intens: integer); var q,x,y,dfdx,dfdy,dx,dy: integer; begin dx := SGN(x2-x1); dy := SGN(y2-y1); dfdx := -dy*(y2-y1); dfdy := dx*(x2-x1); x := x1; y := y1; q := 2*dfdx+dfdy; PLOT(x,y,intens); repeat x := x+dx if q>=0 then q := q+2*dfdx else begin y := y+dy q := 2*dfdx+2*dfdy end PLO(x,y,intens); until x=x2 end; not: raderna mellan repeat och until skall vara inskjutna. Hur rutinen program-mässigt fungerar lär väl inte vara så svårt att begripa Det matematiska sambandet har jag inte riktigt förstått mig på, tyvärr, riktigt. Dock lämpar sig denna rutin UTMÄRKT för maskinkod i 256x240 pixs upplösning Jag har lagt upp det på följande vis: H = y L = x BC = dx (1,0,-1) DE = dy (256,0,-256) HL' = q BC' = dfdx*2 DE' = dfdy*2 Med denna uppläggning innebär ett steg i x-led ADD HL,BC och ett steg i y-led ADD HL,DE. Den absoluta adressen där punkt skall sättas blir. srl h rr l HL innehar nu direkt adress och beroende på carry vet man i vilken del av byten man skall sätta. (Division med 2, rest i carry) Beräkning q innebär vid stegning enbart i x-led ADD HL',BC' och i både x-led och y-led ADD HL',BC'; ADD HL',DE'. Det enda värde som ej finns i processorns register är slutkoordinaten. Denna ligger lagrad i minnet. Klura litet så kanske jag kommer på nåt bättre sätt, kolla med stacken (EX (SP),HL) kanske. Dock har jag inte fått rutinen att fungera riktigt, det är nåt skumt. När jag kör TRACE (utan att blocka in minne och sånt) får jag rätt värden på q,x,y. Men det blir i alla fall fel sedan, får fortsätta med min fel- sökning. Jag kan skicka in källkoden om ni vill (fungerar ej än), dock ej just nu. Jag ber om ursäkt för alla stavfel och felaktigheter, orkar ej ändra dessa, klockan är mycket (för mig som inte sov mycket igår heller). När jag funnit lösning kanske det kan vara nåt till en artikel i bladet. Tag dock ej med detta i bladets MSG-sidor. (brev '11') HEJ / mvh / Patric
        
        Patric Ljung <5455> · Text 630 · w8 · kommentar
        
        1986-11-09 14:10
        
        Ärende: linje-generator
        
        En assembler rutin ligger i inlådan under namnet HRLINEX.ASM. Denna rutin fungerar bra. Dock skulle jag gärna vilja ha den litet uppsnabbad. Om det är nån som vill titta på den så var sågod. Den är för tillfället bara definierad då dx är störra än dy. Det är väl kanske främst initieringsrutinerna man kan göra nåt åt. Finns det nån som kan ge förslag på hur man skall dissa de rutiner som. ligger under bildminnet, det är väl där hr-rutinerna ligger? muh / Patric
        
        Lars Gjörling <6825> · Text 637 · w8 · kommentar
        
        1986-11-13 20:16
        
        Ärende: linje-generator
        
        Jag har tittat på din Pascal-rutin för linjegeneratorn och försökte förstå den matematiskt. Jag hittade då ett matema- tiskt fel i 5:e raden från slutet, som skall lyda: q := q + 2*dfdx + 2*dfdy Jag vet inte om det är ett rent skrivfel vid insändningen, eller om det är detta som är det skumma, du talar om. Det är då inte heller så svårt att se hur proceduren skall se ut om vinkeln mellan vektorn och horisontalplanet är större än 45 grader: procedure ATTAP2(x1,x2,y1,y2,intens: integer); var q,x,y,dfdx,dfdy,dx,dy: integer; begin dx := SGN(x2-x1); dy := SGN(y2-y1); dfdx := dy*(y2-y1); dfdy := -dx*(x2-x1); x := x1; y := y1; q := 2*dfdy+dfdx; PLOT(x,y,intens); repeat y := y + dy; if q>=0 then q := q + 2*dfdy else begin x := x + dx; q := q + 2*dfdx + 2*dfdy end; PLOT(x,y,intens); until y = y2 end; Den här proceduren skall alltså genomföras om ABS(y2-y1) är större än ABS(x2-x1), annars den tidigare proceduren. Dom ser ju rätt likartade ut, kanske kan man slå ihop dem till en procedure på något sätt?? Något försök till assemblerrutin har jag inte gett mig på. Däremot fungerar båda procedurerna ju bra, omskrivna till BASIC, både för positiv och negativ riktningskoefficient. De är inte heller SÅ svåra att förstå matematiskt. Mvh Lars Gjörling <6825>
        
        Patric Ljung <5455> · Text 638 · w8 · kommentar
        
        1986-11-14 00:09
        
        Ärende: linje-generator
        
        Tackar! Jo det är fel i mitt inskick, det skall vara q := q + 2*dfdx+2*dfdy Jag har fått rutinen att fungera för alfa<=45, och det bli nog inte så knepigt att få den för större vinklar. En assembler rutin finns i INLÅDA/ABC800, den heter HRLINEX.ASM. Dock måste jag göra initieringsrutinerna snabbare, och eventuellt plot- rutinen. Det måste gå att göra snabbare. Rutinen är litet,litet snabbare än FGLINE. Är det ingen som vet om man kan få en diss på grafik-prommet utan att flytta på det, till exvis PROM-läsare. Skulle vara intressant att se på de rutinerna. mvh / Patric
        
        Lars Karis <6555> · Text 644 · w8 · kommentar
        
        1986-11-21 21:33
        
        Ärende: linje-generator
        
        Om snabbhet 1 Det är inte varje dag man läser i alla möten. Därför kan det dröja någon vecka innan någon svarar. Om snabbhet 2 Rutinen för linje-dragning kan säkert göras mycket snabbare: De flesta linjer är så korta att de kan beräknas med 8 bitar. Längre linjer delas i två (ev fler) delar. En sådan rutin skrev jag till ABC-VDP (se ABC-bladet 2-86) Större vinklar klarar den rutinen med självmodifierande kod, dvs programmet ändrar själv viss kod. (tex INC A ändras vid behov till DEC A). Fungerar ju bara i RAM- minne, dessutom är det kanske inte bra programmerar-stil? En fortsättning på rutinen skulle vara att kunna rita cirkelbågar. 8 sådana blir en cirkel. Jag försökte llite men kom inte på något bra sätt. Lars Görling verkar bra på sånt, han kanske kan. PS Jag hade en mattelärare på 50-talet i Norra Real som hette Lars Görling, kan det vara samma person? DS
        
        Patric Ljung <5455> · Text 647 · w8 · kommentar
        
        1986-11-24 10:29
        
        Ärende: linje-generator
        
        jag har en rutin som är drugt ett år gammal, den ritar just 8a cirkel bågar. Jag kan skicka in den (det kommer jag att göra när jag tittat till den litet). Den bygger på samma princip som linje-grejsan. Men med en annan Q-funktion.