#help_index "Graphics/Input" public I64 PopUpColor(U8 *header=NULL, Bool allow_transparent=TRUE,Bool allow_dft=TRUE) {//Chooser for 16-color, default or transparent. I64 i; CDoc *doc=DocNew; if (header) DocPrint(doc,"%s",header); if (allow_transparent) DocPrint(doc,"$MU,\"TRANSPARENT\",LE=TRANSPARENT$\n"); for (i=0;i<COLORS_NUM;i++) DocPrint(doc,"$BG,%d$$MU,\"__%-8Z__\",LE=%d$$BG$\n",i,i,"ST_COLORS",i); if (allow_dft) DocPrint(doc,"$BG,WHITE$$MU,\"DEFAULT\",LE=DOC_DFT$$BG$"); i=PopUpMenu(doc); DocDel(doc); return i; } public I64 PopUpColorLighting(U8 *header=NULL) {//Chooser for std TempleOS DCLighting() color. I64 i; CDoc *doc=DocNew; if (header) DocPrint(doc,"%s",header); DocPrint(doc,"\nSingle-Sided means front and back different." "\nDouble-Sided means front and back same." "\n" "\nHalf-Range means 0 to [0,7]" "\n [8,15]-8 to [8,15]" "\nFull-Range means 0 to [0,7] to [0,7]+8" "\n"); DocPrint(doc, "\n$LTPURPLE$Single-Sided Full-Range Double-Sided Full-Range\n$BLACK$"); for (i=0;i<COLORS_NUM/2;i++) { DocPrint(doc,"$BG,%d$$MU,\"__%-19Z__\",LE=%d$$BG$ ",i,i,"ST_COLORS",i); DocPrint(doc,"$BG,%d$$MU,\"__%-19Z__\",LE=%d$$BG$\n",i,i,"ST_COLORS", ROPF_TWO_SIDED+i); } DocPrint(doc, "\n$LTPURPLE$Single-Sided Half-Range Double-Sided Half-Range\n$BLACK$"); for (i=0;i<COLORS_NUM;i++) { DocPrint(doc,"$BG,%d$$MU,\"__%-19Z__\",LE=%d$$BG$ ", i,i,"ST_COLORS",ROPF_HALF_RANGE_COLOR+i); DocPrint(doc,"$BG,%d$$MU,\"__%-19Z__\",LE=%d$$BG$\n", i,i,"ST_COLORS",ROPF_TWO_SIDED+ROPF_HALF_RANGE_COLOR+i); } i=PopUpMenu(doc); DocDel(doc); return i; } class CTransformForm { F64 x_scale fmtstr "$DA-TRM,A=\"X Scale :%12.6f\"$\n"; F64 y_scale fmtstr "$DA-TRM,A=\"Y Scale :%12.6f\"$\n"; F64 z_scale fmtstr "$DA-TRM,A=\"Z Scale :%12.6f\"$\n"; F64 theta_z fmtstr "\nAngles are in degrees\n" "$DA-TRM,A=\"Z-Axis :%12.6f\"$\n"; F64 theta_y fmtstr "$DA-TRM,A=\"Y-Axis :%12.6f\"$\n"; F64 theta_x fmtstr "$DA-TRM,A=\"X-Axis :%12.6f\"$\n"; F64 x_offset fmtstr "\n$DA-TRM,A=\"X Offset:%12.6f\"$\n"; F64 y_offset fmtstr "$DA-TRM,A=\"Y Offset:%12.6f\"$\n"; F64 z_offset fmtstr "$DA-TRM,A=\"Z Offset:%12.6f\"$\n"; }; #help_index "Graphics/Input;Graphics/Math/3D Transformation" public Bool PopUpTransform(I64 *r) {//Prompt for Mat4x4 transform. CTransformForm *tf=MAlloc(sizeof(CTransformForm)); tf->x_scale=1.0; tf->y_scale=1.0; tf->z_scale=1.0; tf->theta_x=0.0; tf->theta_y=0.0; tf->theta_z=0.0; tf->x_offset=0.0; tf->y_offset=0.0; tf->z_offset=0.0; if (PopUpForm(tf)) { MemSet(r,0,16*sizeof(I64)); r[0] =tf->x_scale*GR_SCALE; r[5] =tf->y_scale*GR_SCALE; r[10]=tf->z_scale*GR_SCALE; r[15]=GR_SCALE; Mat4x4RotZ(r,tf->theta_z*pi/180.0); Mat4x4RotY(r,tf->theta_y*pi/180.0); Mat4x4RotX(r,tf->theta_x*pi/180.0); r[3] =tf->x_offset*GR_SCALE; r[7] =tf->y_offset*GR_SCALE; r[11]=tf->z_offset*GR_SCALE; return TRUE; } else return FALSE; } #help_index "Graphics/Input" #define PU_SPACING 10 U0 DrawIt(CTask *task,CDC *dc) { I64 i,j,i1,j1; CDoc *doc=DocPut(task); for (j=0;j<17;j++) for (i=0;i<17;i++) { if (j<16) j1=j; else j1=TRANSPARENT; if (i<16) i1=i; else i1=TRANSPARENT; dc->color=j1+i1<<16+ROPF_DITHER; GrRect(dc,i*PU_SPACING,j*PU_SPACING+FramePtr("DitherFrame",task), PU_SPACING,PU_SPACING); } i=(17*PU_SPACING+FONT_WIDTH-1)/FONT_WIDTH; if (doc->max_x>i) i=doc->max_x; WinHorz(task->win_left,task->win_left+i,task); WinVert(task->win_top,task->win_top+doc->max_y+ (17*PU_SPACING+FONT_WIDTH-1)/FONT_WIDTH,task); } I64 DitherColor2(U8 *header=NULL) { I64 msg_code,arg1,arg2,res=-1,i,j; DocClear; "%s",header; DocRecalc(DocPut); FramePtrAdd("DitherFrame",(DocPut->max_y+1)*FONT_HEIGHT); SettingsPush; //See SettingsPush Fs->draw_it=&DrawIt; do { msg_code=GetMsg(&arg1,&arg2,1<<MSG_MS_L_DOWN|1<<MSG_KEY_DOWN); if (msg_code==MSG_MS_L_DOWN) { msg_code=GetMsg(&arg1,&arg2,1<<MSG_MS_L_UP); i=arg1/PU_SPACING; j=(arg2-FramePtr("DitherFrame"))/PU_SPACING; if (arg1>=0 && arg2>=0 && 0<=j<17 && 0<=i<17) { if (j==16) j=TRANSPARENT; if (i==16) i=TRANSPARENT; res=j+i<<16+ROPF_DITHER; goto dc_done; } } } while (!(msg_code==MSG_KEY_DOWN && (arg1==CH_ESC || arg1==CH_SHIFT_ESC))); do GetMsg(&arg1,&arg2,1<<MSG_KEY_UP); while (!arg1); dc_done: SettingsPop; FramePtrDel("DitherFrame"); return res; } public I64 PopUpColorDither(U8 *header=NULL) {//Chooser for 2 x 16 colors or transparent. U8 buf[STR_LEN]; StrPrint(buf,"DitherColor2(0x%X);",header); return PopUp(buf,Fs); }