Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  488 1705 (N22E60 L=273)  1266    295        3 ( 450/1654- 535/1760) -30.3 E65-E52 N19-N26
      2  451 1602 (N15E56 L=277)  1827    372        3 ( 408/1497- 490/1683) -34.5 E65-E47 N08-N19
      3 1561 1602 (N49W22 L=355)   809    144        2 (1521/1572-1602/1633)  41.6 W18-W27 N44-N52
      4  818 1513 (N18E26 L=307)   328    137        2 ( 762/1486- 886/1531)   6.3 E30-E21 N15-N19
      5  501 1362 (N01E41 L=292)   308     99        1 ( 483/1319- 520/1414) -38.7 E44-E38 N00-N04
      6 1370 1154 (N12W16 L=349)  1667    545        3 (1250/ 923-1469/1334) -38.0 W04-W27 N01-N19
      7  950 1225 (N05E09 L=324)   246    112        3 ( 900/1201-1002/1241)  26.6 E12-E06 N02-N06
      8 1875 1066 (N23W58 L= 31)  1795    373        4 (1805/ 941-1925/1208) -32.3 W48-W67 N16-N29
      9  283 1153 (S15E52 L=281)   600    121        4 ( 247/1119- 312/1191)  68.2 E55-E49 S17-S12
     10 1728  908 (N09W47 L= 20)   282     94        1 (1714/ 870-1746/ 955) -78.7 W45-W49 N06-N11
     11 1394  655 (S15W33 L=  6)   573    218        2 (1292/ 583-1491/ 716)  58.4 W28-W36 S21-S08
     12 1538  372 (S26W58 L= 31)  1634    312        1 (1421/ 350-1633/ 416)  26.6 W47-W65 S29-S20
     13 1288  221 (S43W52 L= 25)   427     78        0 (1267/ 203-1314/ 244)   0.0 W49-W55 S44-S41
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y