Informační tok Funkční structura Datová struktura ER model Modulová struktura Typová struktura Relační model Dokumentace


[Celkový datový model] [Funkce] [Externí rohraní] [Stavové diagramy] [Datové elementy] [Entity] [Relace]
[Databáze] [Události] [Materiály] [Generovací funkce] [Vyhodnocovací funkce] [Konfigurace] [Uživatelé] [Projekt] [Home]


Vyhodnocovací funkce
H_CaseBoxCoorToImageCoor
(Web Publishing)

Vytvořeno: 04-01-1998 10:53:24
Poslední změna: 01-09-2003 09:41:01
Converts a tree diagram element's coordinate values into the system used by the WritePicture OLE Automation function.
Modul

Module: Web Publishing

Zdrojový kód:

PROCEDURE H_CaseBoxCoorToImageCoor(leftmost%, origx%, origy%, BYREF resx%, BYREF resy%)
BEGIN
  //since this follows a geometric chain and case does not allow for much precision in such
  //calculations, we make a quick and dirty lookup table

  //param leftmost means: case position of the left most box, since case truncates the image there
  //and that makes it necessary to adjust the final x coordinate
  
  //deal with head box
  IF origx% = 286 AND origy% = 15 THEN
    resx% = 340;
    resy% = 23;
    //deal with left most adjustment after the operation
    //goal is to artifically shift the whole diagram (as a final image) nr% of boxes to the left
    nr% = (leftmost% - 2) / 71; //0..8
    //do shift operation
    resx% = resx% - (nr% * 84);
  ELSE
    //deal with left most adjustment in advance
    //goal is to artifically shift the whole diagram nr% of boxes to the left
    nr% = (leftmost% - 2) / 71; //0..8
    //do shift operation
    origx% = origx% - (nr% * 71);
    
    //simplier would be: resx% = origx% * 676 / 570 , but this lacks in precision (+/- 3 pixel)
    x% = 2;
    resx% = 4;
    WHILE ( x% < origx% ) DO
      resx% = resx% + 84;
      x% = x% + 71;
    END
    //simplier would be: resy% = origy% * 560 / 299 , but this lacks in precision (+/- 10 pixel)
    y% = 53;
    resy% = 114;
    WHILE ( y% < origy% ) DO
      resy% = resy% + 91;
      y% = y% + 41;
    END
  END
END
Generováno: 16.10.2003 7:41 Systém: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf Generováno systémem case/4/0
Vygeneroval: Administrator Soubor: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\html\29311.htm (C) microTOOL GmbH 2002