am 2009-01-09 05:47 PM
am 2009-01-09 07:30 PM
! poly2 3,5,
! a/2,b/2,
! 0,0,
! a,0
!
! poly2 3,5,
! a/2,b/2,
! 0,b,
! a,b
poly2 3,5,
a,b,
0,0,
a,0
poly2 3,5,
a,b,
0,b,
0,0
am 2009-01-09 07:55 PM
if abs(GLOB_HSTORY_ELEV+GLOB_HSTORY_HEIGHT-GLOB_CSTORY_ELEV)<eps then goto 20Zeilen 146 und 147:
pen c
line2 0,0,0,b
line2 a,0,a,b
line2 0,0,a,0
Line2 0,b,a,b
hotspot2 0,0
hotspot2 a,0
hotspot2 a,b
hotspot2 0,b
hotspot2 a/2,b/2
if e<>1 then 10
if LORU=1 then line2 0,0,a,b
if LURO=1 then line2 0,b,a,0
Zeilen 251 und 252:
if LORU=1 then line2 -(sin(45))*(a/2), -(sin(45))*(a/2), (sin(45))*(a/2), (sin(45))*(a/2)
if LURO=1 then line2 (sin(45))*(a/2), -(sin(45))*(a/2), -(sin(45))*(a/2), (sin(45))*(a/2)
Parameter:
if LORU=1 then line2 b/2-(sin(45))*(b/2),b/2-(sin(45))*(b/2),a-b/2+(sin(45))*(b/2),b/2+(sin(45))*(b/2)
if LURO=1 then line2 b/2-(sin(45))*(b/2),b/2+(sin(45))*(b/2),a-b/2+(sin(45))*(b/2),b/2-(sin(45))*(b/2)
am 2009-01-09 09:46 PM