Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1388 1571 (N30W29 L=167)  1506    231        2 (1287/1499-1472/1635) -39.3 W22-W34 N25-N35
      2  571 1453 (N26E29 L=109)  1116    410        1 ( 472/1289- 659/1603) -47.7 E41-E21 N15-N37
      3  782 1519 (N30E14 L=124)  1007    225        2 ( 704/1470- 888/1583) -29.7 E20-E06 N25-N34
      4  502 1417 (N24E34 L=104)   340     60        1 ( 470/1395- 530/1442)  11.3 E36-E31 N22-N25
      5 1233 1245 (N10W14 L=152)   199     73        0 (1208/1208-1253/1285)  68.2 W11-W15 N07-N12
      6  625 1185 (N09E24 L=114)   280    120        0 ( 599/1128- 642/1242)  74.1 E25-E22 N05-N12
      7 1580 1130 (N02W36 L=174)   506    125        0 (1523/1101-1640/1150)   6.3 W31-W40 N00-N03
      8 1724 1080 (S01W47 L=185)   803    182        1 (1668/ 994-1749/1127) -66.8 W42-W48 S06-N01
      9 1607 1003 (S06W37 L=176)   390     82        0 (1563/ 966-1641/1036) -38.7 W34-W39 S07-S03
     10  279  875 (S07E52 L= 86)  2586    337        6 ( 204/ 802- 410/ 997) -35.5 E59-E41 S11-N00
     11  330  940 (S04E47 L= 92)   352     54        1 ( 305/ 911- 347/ 979) -76.0 E48-E45 S05-S01
     12 1573  894 (S12W35 L=173)   674    104        4 (1536/ 849-1606/ 947)  68.2 W32-W37 S14-S08
     13 1403  838 (S15W23 L=161)  1326    458        4 (1234/ 727-1517/ 912)  24.0 W12-W30 S21-S10
     14  745  785 (S15E19 L=120)   227     88        0 ( 733/ 743- 758/ 834)  80.5 E19-E17 S18-S12
     15 1827  802 (S18W59 L=198)   389     73        0 (1801/ 767-1858/ 830)  38.7 W56-W62 S20-S16
     16 1628  770 (S20W40 L=179)   281    106        0 (1592/ 731-1659/ 813)  45.0 W37-W42 S22-S17
     17  273  737 (S15E56 L= 82)  1898    323        4 ( 129/ 684- 365/ 797) -19.8 E74-E47 S19-S10
     18 1753  752 (S21W52 L=190)   464     67        1 (1721/ 717-1774/ 774) -26.6 W48-W54 S23-S19
     19  702  537 (S31E26 L=113)   610    140        1 ( 638/ 519- 779/ 556)   0.0 E30-E19 S32-S29
     20  504  410 (S38E48 L= 90)  1679    158        2 ( 459/ 326- 552/ 484)  27.6 E61-E39 S44-S33
     21  719  234 (S55E40 L= 98)   609     67        0 ( 699/ 204- 736/ 278)  32.5 E46-E35 S57-S50
     22  916  213 (S59E19 L=119)   637     58        0 ( 880/ 192- 947/ 236)   0.0 E23-E15 S60-S56
  

    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