void led_off(Ledno)
{
if(Ledno=="LED_RED")halLedClear(1);
elseif(Ledno=="LED_YELLOW")halLedClear(2);
elseif(Ledno=="LED_GREEN")halLedClear(3);
end if
}
int CSQuick1::ACPerFlight(PlaneTypeSelect actype)
{
int acperflight;
if (actype<PT_GER_FLYABLE)
acperflight=3;
elseif (actype<PT_JU87)
acperflight=4;
elseif (actype>PT_JU87)
acperflight=5;
else
void print_result(int snum,int spos)
{
if(spos==4){
printf("正解です\n");}
elseif(snum==0)
printf("それらの数字は全く含まれません\n");
else{
void setup_layout(){
if(mynode()==0){
printf("LAYOUT = Timeslices, options = ");
printf("EVENFIRST,");
printf("\n");
}
if( nt%numnodes() !=0 ){ /* then maybe numnodes is a multiple of nt */
if (numnodes()%nt == 0 && nz%(numnodes()/nt) == 0 ) ;/* we can
do the layout */
elseif(mynode()==0)printf(
"LAYOUT: Can't lay out this lattice: nt not multiple of nummodes\n");
terminate(1);
}
if( nt >= numnodes() ) {/* we only have to divide in t-direction */
ntslices = nt / numnodes();
zcuts = 1;
nzslices = nz;
}
else {
ntslizes = 1;
zcuts = numnodes()/nt;
nzslices = nz/zcuts;
}
sites_on_node = nx*ny*nzslices*ntslices;
/* Need even number of sites per hypercube */
if( mynode()==0)if( sites_on_node%2 != 0){
printf("SORRY, CAN'T LAY OUT THIS LATTICE\n");
terminate(0);
}
even_sites_on_node = odd_sites_on_node = sites_on_node/2;
}
/////////////////////////////////////////////////////////////////////////////
// RAFReviewAsset message handlers
void RAFReviewAsset::FillTrgInfo(int out, int in, int cnt)
{
TargetNoDetail* trg = Node_Data[dr->trgarray[in].target[cnt].target];
int status;
status=trg->PlayerStatus();
//DeadCode JON 4Sep00 if ( (RFullPanelDial::gameside == RFullPanelDial::SIDE_LW)
//DeadCode JON 4Sep00 && (!Save_Data.gamedifficulty[GD_LWINTELL])
//DeadCode JON 4Sep00 )
//DeadCode JON 4Sep00 status = trg->knownstatus;
//DeadCode JON 4Sep00 else
//DeadCode JON 4Sep00 status = trg->truestatus;
if (status > Target::TS_MAXIMUM) trginfo[out].unknown++;
elseif (status >= Target::TS_NEARLYDESTROYED) trginfo[out].destroyed++;
elseif (status>=Target::TS_BADDAMAGE) trginfo[out].damaged++;
elseif (status>=Target::TS_LIGHTDAMAGE) trginfo[out].damaged++;
else trginfo[out].ok++;
vooid main()
{
int a,b ,c;
printf("enter anumber");
scanf("%d%d%d",a,b,c);
if(a>b&&a>c)
printf("a is largest");
elseif(b>c)
printf("b is largest");
else
void TwoDPref::SetOtherCombos()
{
GETDLGITEM(IDC_CBO_INTROART)->Clear();
GETDLGITEM(IDC_CBO_INTROART)->AddString(CSprintf(desktopstr,possiblemapreses[currdefaultres].horres,possiblemapreses[currdefaultres].vertres));
GETDLGITEM(IDC_CBO_INTROART)->AddString(CSprintf("%ix%i",possiblemapreses[lowestres].horres,possiblemapreses[lowestres].vertres));
GETDLGITEM(IDC_CBO_INTROART)->AddString(CSprintf("%ix%i",possiblemapreses[res1024res].horres,possiblemapreses[res1024res].vertres));
if (Save_Data.ui_horizontalres[SaveData::UIR_SMACKER]==0)
GETDLGITEM(IDC_CBO_INTROART)->SetIndex(0);
elseif (Save_Data.ui_horizontalres[SaveData::UIR_SMACKER]<1024)
GETDLGITEM(IDC_CBO_INTROART)->SetIndex(1);
else
void DetAng_ann(DetInner,DetOuter,DetdPhi,DetPhi,Nstrips,DetZ,ThetaMax,ThetaMin,PhiMax,PhiMin){
//
// DetAng_ann 1.0 written by S.D.Pain on 7/4/2006
//
// Subroutine for calculating the range of theta and phi (spherical
// polar coordinates) spanned by each strip of an annular strip detector.
double DetInner, DetOuter, DetdPhi, DetPhi, DetZ;
double PhiMax[50], PhiMin[50], rmin, rmax;
double ThetaMax[50], ThetaMin[50];
double pi;
int Nstrips, n;
pi = 3.141592654d0;
for (n = 1; n <= Nstrips; n++){
// Calculate the radius (cm) in cylindrical polars of the edges of the strip
rmax = DetInner+((DetOuter-DetInner)/Nstrips)*n;
rmin = DetInner+((DetOuter-DetInner)/Nstrips)*(n-1);
// Determine the range of theta coverage for the detector, allowing for
// forward and backward hemisphere location
if (DetZ>0){
ThetaMin[n] = datan(rmin/DetZ);
ThetaMax(n) = datan(rmax/DetZ);
elseif(DetZ<0)then;
ThetaMin[n] = pi+datan(rmax/DetZ);
ThetaMax(n) = pi+datan(rmin/DetZ);
}
// Calculate the Phi coverage of the detector
PhiMax[n] = DetPhi + 0.5*DetdPhi;
PhiMin(n) = DetPhi - 0.5*DetdPhi;
// The usual bloody conversions to keep 0<phi<2*pi
if (PhiMax[n]<0){ PhiMax[n] = 2.0*pi + PhiMax[n]; }
if (PhiMin(n)<0){ PhiMin(n) = 2.0*pi + PhiMin(n); }
if (PhiMax[n]>(2.0*pi)){ PhiMax[n] = PhiMax[n] - 2.0*pi; }
if (PhiMin(n)>(2.0*pi)){ PhiMin(n) = PhiMin(n) - 2.0*pi; }
// print*, 'phi min= ',phiMin(n)/3.14159*180.0
// print*, 'phi max= ',phiMax(n)/3.14159*180.0
}
return 0;
}
//-----------------------------------------------------------------------------
// Name: InitDeviceObjects()
// Desc: Initializes device-dependent objects, including the vertex buffer used
// for rendering text and the texture map which stores the font image.
//-----------------------------------------------------------------------------
HRESULT CD3DFont::InitDeviceObjects( LPDIRECT3DDEVICE8 pd3dDevice )
{
HRESULT hr;
// Keep a local copy of the device
m_pd3dDevice = pd3dDevice;
// Establish the font and texture size
m_fTextScale = 1.0f; // Draw fonts into texture without scaling
// Large fonts need larger textures
if( m_dwFontHeight > 40 )
m_dwTexWidth = m_dwTexHeight = 1024;
elseif( m_dwFontHeight > 20 )
m_dwTexWidth = m_dwTexHeight = 512;
else
void main()
{
clrscr();
char ch;
loadgraph();
setbkcolor(0);
setcolor(2);
//This do while; loop will execute untill character 'x' is not Entered
do{
gotoxy(37,5);
cout<<"Menu";
gotoxy(30,6);
cout<<"Stack [s]";
gotoxy(30,7);
cout<<"Queue [Q]";
gotoxy(30,8);
cout<<"Exit [x]";
gotoxy(25,9);
cout<<"\t\t\t\t";
gotoxy(30,10);
cout<<"Enter Option [ ]\b\b";
ch=getche();
//Converts, Entered char into lower one
ch = tolower(ch);
gotoxy(30,15);
if(ch=='s')
// call to stack function
stack();
elseif(ch=='q')
//call to queue function
queue();
cleardevice();
}while(ch!='x');
cleardevice();
closegraph();
}
static void
directive()
{
Tok *t;
char *dir;
t = ppnoexpand();
dir = t->v;
if(strcmp(dir, "include") == 0)
include();
else if(strcmp(dir, "define") == 0)
define();
else if(strcmp(dir, "if") == 0)
pif();
else if(strcmp(dir, "elseif") == 0)
elseif();
else if(strcmp(dir, "else") == 0)
pelse();
else if(strcmp(dir, "endif") == 0)
endif();
else
errorposf(&t->pos, "invalid directive %s", dir);
}
void HostilesList::RefreshList()
{
CRListBox* rlistbox;
rlistbox=GETDLGITEM(IDC_RLISTBOXCTRL1);
rlistbox->Clear();
//DeadCode RDH 27Oct00 rlistbox->AddColumn(30); //46
//DeadCode RDH 27Oct00 rlistbox->AddColumn(28); //RDH 02/06/99
//DeadCode RDH 27Oct00 rlistbox->AddColumn(42); //50 //RDH 02/06/99
//DeadCode RDH 27Oct00 rlistbox->AddColumn(48); //60 //RDH 02/06/99
//DeadCode RDH 27Oct00 rlistbox->AddColumn(46); //RDH 02/06/99
//DeadCode RDH 27Oct00 rlistbox->AddColumn(80);
//DeadCode RDH 27Oct00 rlistbox->AddIconColumn(28); //RDH 02/06/99
//DeadCode RDH 27Oct00 rlistbox->AddColumn(TARGETFIELDWIDTH); //RDH 02/06/99
//DeadCode RDH 27Oct00 rlistbox->AddColumn(24); //RDH 02/06/99
//DeadCode JIM 11Nov00 //DeadCode RDH 31Oct00 rlistbox->AddColumn(32); //RDH 02/06/99
//DeadCode JIM 11Nov00 //DeadCode RDH 31Oct00 rlistbox->AddColumn(20); //RDH 02/06/99
//DeadCode JIM 11Nov00 //DeadCode RDH 31Oct00 rlistbox->AddColumn(2);
//DEADCODE RDH 20/01/00 rlistbox->AddColumn(50); //RDH 02/06/99
rlistbox->AddString(RESSTRING(RAID),0);
rlistbox->AddString(RESSTRING(HL_SIZE),1);
rlistbox->AddString(RESSTRING(TYPE),2);
rlistbox->AddString(RESSTRING(HL_ESCORT),3);
rlistbox->AddString(RESSTRING(ALT),4);
rlistbox->AddString(RESSTRING(HL_STATUS),5);
rlistbox->AddString("",6);
rlistbox->AddString(RESSTRING(HL_TARGET),7);
rlistbox->AddString(RESSTRING(OUT),8);
rlistbox->AddString(RESSTRING(CMBT),9);
rlistbox->AddString(RESSTRING(IN),10);
//DEADCODE RDH 20/01/00 rlistbox->AddString(RESSTRING(HL_STATUS),6);
//DEADCODE RDH 20/01/00 rlistbox->AddString(RESSTRING(HL_RESPONSE),6);
//DEADCODE RDH 20/01/00 rlistbox->AddString(RESSTRING(HL_INTERCEPT),8);
rlistbox->AddString(RESSTRING(HL_TALLY),11);
int p=0;
int t;
while (packlist[p].pack != 65535)
{
Profile& pk = Todays_Packages.pack[packlist[p].pack];
if (packlist[p].method < Profile::AM_DETACHED)
{
//DEADCODE RDH 12/04/00 rlistbox->AddString(CSprintf("R%03i", pk.raidnumentries[packlist[p].raidline].raidnum),0);
char* raidletter = Todays_Packages.RaidFormatString(packlist[p].pack,packlist[p].raidline);
rlistbox->AddString(CSprintf(raidletter, pk.raidnumentries[packlist[p].raidline].raidnum),0);
//DEADCODE RDH 12/04/00 rlistbox->AddString(CSprintf("R%03i", packlist[p].raidline),0);
rlistbox->AddString(CSprintf("%i", packlist[p].numofac),1);
Squadron* sq = Node_Data[(SquadNum)packlist[p].strikegruppe];
rlistbox->AddString(RESLIST(SPIT_A, sq->AcType()),2);
if (packlist[p].escortgruppe >= 0)
{
sq = Node_Data[(SquadNum)packlist[p].escortgruppe];
rlistbox->AddString(RESLIST(SPIT_A, sq->AcType()),3);
}else
rlistbox->AddString(RESSTRING(NONE_NOAIRCRAFT),3);
int firstsq = pk.raidnumentries[packlist[p].raidline].squadliststart;
ItemBasePtr item = Persons2::ConvertPtrUID(pk[firstsq].instance);
if (item)
{
int alt = item->World.Y;
if (alt < 0 )
alt = 0;
alt = alt*10/Save_Data.alt.mediummm;
alt = 100*((alt + 50)/100);
rlistbox->AddString(CSprintf("%i%s",alt,LoadResString(Save_Data.alt.mediumabbr)),4);
}else
rlistbox->AddString(" ",4);
//DeadCode RJS 12Nov00 info_airgrpPtr item = Persons2::ConvertPtrUID(pk[firstsq].instance);
//DeadCode RJS 12Nov00 if (item)
//DeadCode RJS 12Nov00 {
//DeadCode RJS 12Nov00 int alt = item->knownposition.Y;
//DeadCode RJS 12Nov00 if (alt < 0 )
//DeadCode RJS 12Nov00 alt = 0;
//DeadCode RJS 12Nov00 alt = alt*10/Save_Data.alt.mediummm;
//DeadCode RJS 12Nov00 alt = 100*((alt + 50)/100);
//DeadCode RJS 12Nov00 rlistbox->AddString(CSprintf("%i%s",alt,LoadResString(Save_Data.alt.mediumabbr)),4);
//DeadCode RJS 12Nov00 }else
//DeadCode RJS 12Nov00 rlistbox->AddString(" ",4);
rlistbox->AddString(RESLIST(PS_SPARE,pk.packagestatus),5);
TargetNoDetail* trg = NULL;
if (packlist[p].target)
{
trg=Node_Data[packlist[p].target];
rlistbox->AddString(GetTargName(packlist[p].target),7);
}
else
rlistbox->AddString("",7);
if (trg)
{
int j = trg->truestatus;
if (j >= Target::TS_NEARLYDESTROYED) j = 3;
elseif (j>Target::TS_BADDAMAGE) j=2;
elseif (j>Target::TS_LIGHTDAMAGE) j=1;
else j=0;
//DeadCode JON 4Sep00 if (j >= 100)
//DeadCode JON 4Sep00 j = 3;
//DeadCode JON 4Sep00 else
//DeadCode JON 4Sep00 {
//DeadCode JON 4Sep00 j = j/4;
//DeadCode JON 4Sep00 if (j >= 3)
//DeadCode JON 4Sep00 j =2;
//DeadCode JON 4Sep00 }
FileNum filenum = GetIconFileNum(packlist[p].target);
rlistbox->AddIcon(filenum,6);
//DEADCODE RDH 21/01/00 rlistbox->AddIcon((FileNum)ICON_AF_FIGHTER,5);
//DEADCODE RDH 20/01/00 rlistbox->AddString(RESLIST(UNDAMAGED, j),5);
}
else
