00001 DIM FType$(10)
00002 DIM XType$(20)
00003 DIM S$(20)
00004 DIM class$(30)
00005
00006 class$(0) = ""
00007 class$(1) = "JPoint"
00008 class$(2) = "JCircle"
00009 class$(3) = "JCylinder"
00010 class$(4) = "JSphere"
00011 class$(5) = "JSquare"
00012 class$(6) = "JRectangle"
00013 class$(7) = "JCube"
00014 class$(8) = "JPrism"
00015 class$(9) = "JTriangle"
00016
00017 FType$(1) = "float"
00018 FType$(2) = "double"
00019 FType$(3) = "Float"
00020 FType$(4) = "Double"
00021
00022 XType$(1) = "int"
00023 XType$(2) = "char"
00024 XType$(3) = "short"
00025 XType$(4) = "long"
00026 XType$(5) = "float"
00027 XType$(6) = "double"
00028 XType$(7) = "unsigned_int"
00029 XType$(8) = "unsigned_char"
00030 XType$(9) = "unsigned_short"
00031 XType$(10) = "unsigned_long"
00032 XType$(11) = "Integer"
00033 XType$(12) = "Float"
00034 XType$(13) = "Double"
00035
00036 'FOR n% = 1 TO 9
00037 n% = 1
00038 F$ = "MC_" + class$(n%) + ".hpp"
00039 G$ = "mc_temp.hpp"
00040 OPEN G$ FOR OUTPUT AS #1
00041
00042 FOR i% = 1 TO 13
00043 FOR j% = 1 TO 4
00044
00045 T$ = class$(n%) + "_" + XType$(i%) + "_" + FType$(j%)
00046 U$ = class$(n% - 1) + "_" + XType$(i%) + "_" + FType$(j%)
00047 S$(1) = "#ifdef __J2K__Need_" + T$
00048 S$(2) = " #ifndef __J2K__Incl_" + T$
00049 S$(3) = " #define __J2K__Incl_" + T$
00050 S$(4) = " "
00051 S$(5) = " #define __J2K__Need_" + U$
00052 S$(6) = " #include <j2k/Fred/Geometry/Macro/MC_" + class$(n% - 1) + ".hpp>"
00053 S$(7) = " "
00054 S$(8) = " #define Type " + XType$(i%)
00055 S$(9) = " #define FType " + FType$(j%)
00056 CC$ = class$(n%)
00057 SS1$ = SPACE$(14 - LEN(CC$))
00058 SS2$ = SPACE$(12 - LEN(CC$))
00059
00060 S$(10) = " #define " + CC$ + SS1$ + T$
00061 S$(11) = " #define " + CC$ + "_t" + SS2$ + T$ + "_t "
00062 S$(12) = " #include <j2k/Fred/Geometry/" + class$(n%) + ".hpp>"
00063 S$(13) = " #endif"
00064 S$(14) = "#endif "
00065 S$(15) = " "
00066
00067 FOR k% = 1 TO 15
00068 IF (k% < 4 OR k% > 6) THEN
00069 PRINT #1, S$(k%)
00070 END IF
00071
00072 PRINT S$(k%)
00073 NEXT
00074
00075 NEXT
00076 NEXT
00077 CLOSE #1
00078 SHELL "ren " + G$ + " " + F$
00079 'NEXT
00080
