/* Subprograms and main program, discriminant = 1 mod 4, 	T. J. Dekker, 2007.		*/
/* Draws pictures of prime numbers (blue) and units (red). 							*/

int radicand[] = 			
/*   	class nr 1, unique factorization domains: 									*/
/*		{-163, -67, -43, -19, -11, -7, -3, 5, 13, 17, 21, 29, 33, 37, 41, 53, 0}; 

		  	 
/*   	class nr > 1, non-unique factorization domains:   							*/
		{-59, -55, -51, -47, -39, -35, -31, -23, -15, 65, 85, 105, 145, 229, 257, 0}; 
 
	
void showitem()
	{	  char it[30];  
		  RGBForeColor(&blue); sprintf(it, "    prime numbers    "); drawstring(it);
		  RGBForeColor(&red); sprintf(it, "    units    "); drawstring(it); 
		  RGBForeColor(&black);
	}	  /* end showitem */

	void drawitem(int x, int y, int norm)
	{	  if (norm >= maxnorm) drawprim(x, y, &black); 					/*  big   	*/
	      else if (inset(norm, prinorm)) drawprim (x, y, &blue); 		/*  primes  */
	      else if (norm == 1) drawprim(x, y, &red); 			   	 	/*  units   */
	}	  /* end drawitem */ 
	
/*	end of quad1clas1.c  */