/* Subprograms for fields having discriminant = 0 mod 4, 	T. J. Dekker, 2007.		*/
/* Draws pictures of prime numbers (blue) and units (red). 							*/

int radicand[] = 			
					/*   	class nr 1, unique factorization domains:   			*/
	{-2, -1, 2, 3, 6, 7, 11, 14, 19, 22, 23, 31, 38, 43, 46, 47, 0}; 
		  	 
					/*   	class nr > 1, non-unique factorization domains:   		
	{-29, -26, -22, -21, -17, -14, -13, -10, -6, -5, 10, 15, 26, 30, 34, 35, 79, 82, 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  */