Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  639 1755 (N32E48 L=286)  1544    257        1 ( 580/1677- 689/1809) -26.6 E54-E38 N27-N36
      2  517 1720 (N28E56 L=278)   536    108        1 ( 489/1677- 561/1761) -74.1 E58-E54 N24-N31
      3 1106 1734 (N40E12 L=322)   285     57        0 (1064/1718-1133/1748)   9.5 E15-E09 N39-N41
      4  569 1680 (N25E48 L=286)  1131    197        1 ( 517/1622- 626/1722)  77.5 E51-E43 N20-N29
      5 1416 1616 (N39W14 L=348)   287     66        0 (1385/1592-1446/1634)   0.0 W11-W16 N37-N40
      6  595 1467 (N12E36 L=298)  1673    270        1 ( 517/1372- 681/1589)  75.1 E38-E33 N05-N20
      7  750 1452 (N13E25 L=309)   378    112        0 ( 729/1402- 782/1494) -80.5 E26-E23 N10-N16
      8  953 1333 (N10E10 L=324)   481    141        2 ( 908/1275-1001/1400)  90.0 E11-E07 N05-N14
      9 1850 1220 (N24W56 L= 30)   585     68        0 (1829/1184-1872/1260) -63.4 W53-W58 N22-N26
     10 1563 1208 (N15W29 L=  3)   443    106        0 (1517/1158-1590/1241) -26.6 W25-W31 N12-N16
     11 1394 1193 (N10W18 L=352)   260     63        0 (1379/1156-1407/1226) -63.4 W17-W19 N08-N12
     12  251 1137 (S12E56 L=278)   304     50        0 ( 220/1123- 285/1148)   9.5 E58-E52 S13-S11
     13  203 1042 (S18E60 L=274)  1196    143        0 ( 171/ 974- 235/1109) -69.4 E64-E55 S22-S14
     14 1584 1040 (N06W34 L=  7)   249     81        1 (1541/1016-1609/1066)   0.0 W30-W35 N04-N07
     15 1789 1002 (N09W51 L= 25)   568    109        1 (1773/ 939-1809/1055)  90.0 W49-W52 N05-N12
     16  683  921 (S19E19 L=315)   491    138        1 ( 654/ 857- 711/ 989)  83.7 E19-E17 S23-S14
     17 1027  895 (S14W03 L=336)   195     98        0 ( 978/ 877-1065/ 909)  26.6 W00-W04 S15-S12
     18  562  717 (S33E25 L=308)   505    141        0 ( 501/ 681- 623/ 772)  37.9 E30-E20 S36-S28
     19 1790  659 (S09W63 L= 37)   631     84        1 (1750/ 636-1824/ 686)  23.2 W58-W67 S10-S07
     20 1605  505 (S23W54 L= 28)  1664    258        2 (1539/ 399-1658/ 628) -65.0 W50-W58 S30-S15
  

    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