' Frame of Box ' Author : J.C. Tchang ' Script for LDS ' ' Height of Outer Box in LDU (modify value) LET H=20 ' Width of Outer Box in LDU (modify value) LET W=36 ' Height of Inner Box in LDU (modify value) LET G=16 ' Width of Inner Box in LDU (modify value) LET V=32 ' PRINT "0 Frame of Box"; PRINT W; PRINT "x"; PRINT H PRINT "0 Name: stk_frm2.dat" PRINT "0 Author: LDS (LDraw Script)" PRINT "0 BFC CERTIFY CW" ' LET H=H/2 LET W=W/2 LET G=G/2 LET V=V/2 ' P11 V*-1 0 G P12 V*-1 0 G*-1 P13 V 0 G*-1 P14 V 0 G ' P21 W*-1 0 H P22 W*-1 0 H*-1 P23 W 0 H*-1 P24 W 0 H ' ' Inner Box PRINT "0 Inner Box" IF G=0 THEN GOTO :Suite1 IF V=0 THEN GOTO :Suite1 ' 4 16 P11 P14 P13 P12 2 24 P11 P14 2 24 P14 P13 2 24 P13 P12 2 24 P12 P11 :Suite1 ' ' Frame PRINT "0 Frame" IF (W-V)=0 THEN ELSE 4 16 P21 P11 P12 P22 4 16 P23 P13 P14 P24 2 24 P21 P22 2 24 P23 P24 END IF ' IF (H-G)=0 THEN ELSE 4 16 P22 P12 P13 P23 4 16 P24 P14 P11 P21 2 24 P22 P23 2 24 P24 P21 END IF