2013-11-13 05:51 PM

2013-11-13 06:16 PM
!=====================•••Frame Fill•••==================
IF shwfrafil = 1 THEN
SET FILL frmfil
PEN 251
POLY2_B{5} 9, frmfil, 0, 3, frmfilptpen , frmfilbkgdpen,
0, 0, 1, 0, 0, 1, 0,
-frmsz, -strucszbot, 1, !1
0, -strucszbot, 1, !2
0, b, 1, !3
a, b, 1, !4
a, -strucszbot, 1, !5
a+frmsz, -strucszbot, 1, !6
a+frmsz, b+frmsz, 1, !7
-frmsz, b+frmsz, 1, !8
-frmsz, -strucszbot, 1 !9
ENDIF
2013-11-14 01:51 AM
2013-11-14 08:20 AM
2013-11-15 11:42 AM
POLY2_ 9, 3, !Working fill for white -frmsz, -strucszbot, 15, !1 0, -strucszbot, 15, !2 0, b, 15, !3 a, b, 15, !4 a, -strucszbot, 15, !5 a+frmsz, -strucszbot, 15, !6 a+frmsz, b+frmsz, 15, !7 -frmsz, b+frmsz, 15, !8 -frmsz, -strucszbot, -1 !9
2014-01-20 04:47 PM
! Comments:
! boolean type parameters: bDrawFillBit, bCutFillBit, bCoverFillBit
! pen type parameters: fillContPen, fillPen, fillBgPen
! fill type parameter: fillTypePoly
! variables: recess, frame_fill
pen fillContPen
fill fillTypePoly
recess = 0.22
frame_fill = 1 + bDrawFillBit*2 + 4 + 32*bCutFillBit + 64*bCoverFillBit
poly2_B 10, frame_fill,
fillPen, fillBgPen,
0, 0, 1,
A, 0, 1,
A, B, 1,
0, B, 1,
0, 0, -1,
recess, recess, 1,
A-recess, recess, 1,
A-recess, B-recess, 1,
recess, B-recess, 1,
recess, recess, -1
nameFill = ""
n = REQUEST ("Name_of_fill", fillTypePoly, nameFill)
define style "textStyle" "Helvetica", 3, 1, 0
set style "textStyle"
text2 0, 0, nameFill
I wasn't able to reproduce the missing function, worked fine for me (same AC version you have).2014-02-05 05:02 PM
frame_fill = 1 + bDrawFillBit*2 + 4 + 32*bCutFillBit + 64*bCoverFillBit
2014-02-05 05:10 PM