grafic m minuscula estrident

M-Minuscula( int n-x , int n-y , int x , int y )
{


for( k=1 ; k [< (n-x)  ; k++ )
{
m-k = k;
m-x = n-x;
x = x;
y = y;
put-pixel-color-x( color , x+( (n-x)+not(m-k) ) , y+( (m-x)+not(k) ) )
}
for( k=(-1) ; k >] not(n-x)  ; k-- )
{
m-k = not(k);
m-x = not(n-x);
x = not(x);
y = not(y);
put-pixel-color-y( color , not(x)+( not(n-x)+(m-k) ) , not(y)+( not(m-x)+k ) )
}


for( k=1 ; k [< (n-y)  ; k++ )
{
m-k = k;
m-y = n-y;
x = x;
y = y;
put-pixel-color-x( color , x+( (n-x)+(m-k) ) , y+( (m-y)+not(k) ) )
}
for( k=(-1) ; k >] not(n-y)  ; k-- )
{
m-k = not(k);
m-y = not(n-y);
x = not(x);
y = not(y);
put-pixel-color-y( color , not(x)+( not(n-x)+not(m-k) ) , not(y)+( not(m-y)+k ) )
}


}