Az eljárás bar3d
A Bar3D eljárást a Pascal-ban használják, hogy négyszögletes párhuzamos léceket húzzon.
Téglalap alakú parallelepipedok rajzolása a Bar3d eljárással.
A 19. sorban állítsa be a sorokat, amelyekből a doboz létrejön.
A 20. sorban meghatároztuk a vonalak típusát és vastagságát, amelyből a párhuzamos tömeget össze lehet állítani.
A 21. sorban meghatároztuk a parallelepipedéses töltés típusát és színét. Ezenkívül a SetFillStyle eljárás csak a doboz elülső falán működik.
A 22. sorban írja be a Bar3D eljárást. Az eljárás írásakor a paraméterek zárójelben vannak megadva.
Ha a fig. az a pont «A» 2 megfelel az első paraméter Bar3d eljárások, amelyek meghatározzák a bal felső sarokban az elülső fal a paralelepipedon (ebben a példában 100.100). A B pont megfelel a Bar3d eljárás harmadik és negyedik paraméterének, amelyek meghatározzák a parallelepiped elülső falának jobb alsó sarkát (példánkban 300 500). Az "A-C" távolság megfelel a Bar3d eljárás 5. paraméterének, amely meghatározza a parallelepiped mélységét (50-es példánkban). A hatodik paraméter csak 2 értéket vehet igénybe: vagy TopOn (mint a mi példánkban) vagy TopOff. A TopOn azt jelenti, hogy a parallelepipedés felső felülete rajzolódik ki. A TopOff azt jelenti, hogy a parallelepipedus felső szélét nem húzzuk meg (ezt az opciót akkor használjuk, ha a párhuzamos párkányokat egymásra rakják).
