Program do plotera pisakowego HPGL pisany w DELPHI

[prokopcio]

oj. jakoś nie dostałem powiadomienia, że ktoś tutaj coś napisał

prokopcio mam do Ciebie pytanie:
Jak rozwiązałeś skolowanie obrazka ? (Chodzi o to że, gdy obrazek ma dużą rozdzielczość to nie mieści się na ekrenie) Czy twój obrazek ma zawsze oryginalne wymiary (1piksel = 1krok) czy może wymyśliłeś coś, żeby można było zmniejszyć rysunek (w podglądzie)?

skalowanie:

AktualnaWspX := ( AktualnyKrokX / MaxIlośćKrokówX ) * SzerokośćObrazka
AktualnaWspY := ( AktualnyKrokY / MaxIlośćKrokówY ) * WysokośćObrazka

Żeby obrazek zachował proporcje to stosujesz:
AktualnaWspX := ( AktualnyKrokX / MaxIlośćKrokówY ) * SzerokośćObrazka
AktualnaWspY := ( AktualnyKrokY / MaxIlośćKrokówY ) * WysokośćObrazka
jeśli MaxIlośćKrokówX < MaxIlośćKrokówY

lub
AktualnaWspX := ( AktualnyKrokX / MaxIlośćKrokówX ) * SzerokośćObrazka
AktualnaWspY := ( AktualnyKrokY / MaxIlośćKrokówX ) * WysokośćObrazka
jeśli MaxIlośćKrokówX > MaxIlośćKrokówY

dwa powyższe przykłady są dobre jeśli SzerokośćObrazka = WysokośćObrazka, jeśli nie, to trzeba dorzucić więcej warunków...