2006-11-16
06:39 PM
- last edited on
2023-05-24
12:46 PM
by
Rubia Torres
IF WIDO_CUSTOM_MARKER THEN
CALL "marcador_abertura" PARAMETERS larg=A, alt=B, peit=J_ , espin=dit,pos=posmc, ih=ihmc, iv=ivmc, mp=mpmc,
cod=codmc
ENDIF ROT2 90
MUL2 1-2*ih, 1-2*iv
ADD2 0, larg/2-larg*pos
PEN calin
LINE2 0, 0, compf, 0
HOTSPOT2 compf, 0
PEN catex
SET STYLE "estlargalt"
TEXT2 espinM, O, tlargalt
IF mp<>"desligado" THEN
SET STYLE "estpeit"
TEXT2 espinM+comptex/2, -tafonM/3, tpeit
ENDIF
IF cod<>"desligado" THEN
PEN calin
RECT2 compf, -compcod/2, compf+altcod, compcod/2
ADD2 compf+altcod/2, 0
ROT2 90+180*iv
SET STYLE "estcod"
PEN catex
TEXT2 0, 0, tcod
DEL 2
ENDIF
DEL 3
2006-11-17 03:55 PM
2006-11-24 02:51 PM
2006-11-24 05:32 PM