Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1113 1813 (N46E24 L=329)   375    102        0 (1080/1781-1141/1843) -24.0 E28-E19 N43-N47
      2  960 1687 (N30E25 L=328)   350    119        1 ( 905/1657-1019/1700)  14.0 E28-E20 N28-N31
      3 1482 1621 (N44W12 L=  5)   815    118        2 (1439/1578-1522/1648) -38.7 W08-W16 N41-N47
      4 1554 1602 (N46W19 L= 12)   449    113        1 (1534/1554-1581/1635)  82.9 W17-W21 N41-N49
      5 1713 1383 (N36W36 L= 28)  3981    481        8 (1585/1203-1788/1536) -38.7 W23-W43 N25-N44
      6  400 1486 (N04E54 L=299)   487    137        1 ( 363/1447- 428/1507) -14.0 E58-E50 N01-N05
      7 1057 1258 (N07E05 L=348)   233     85        0 (1042/1217-1078/1301) -53.1 E05-E02 N04-N09
      8  180 1259 (S13E67 L=286)   743    141        1 ( 145/1222- 208/1294) -76.0 E72-E63 S14-S10
      9 1557 1160 (N16W27 L= 20)   494    125        0 (1510/1097-1586/1224) -32.0 W22-W30 N13-N18
     10 1809 1095 (N21W48 L= 41)   418     75        0 (1780/1072-1836/1121)   0.0 W45-W51 N20-N22
     11 1475 1007 (N05W26 L= 19)   789    176        3 (1413/ 957-1551/1076) -10.3 W20-W31 N03-N07
     12 1875  976 (N17W58 L= 51)   865    116        1 (1856/ 925-1892/1030) -39.8 W55-W61 N14-N20
     13 1720  935 (N09W45 L= 38)  1245    272        2 (1625/ 904-1806/ 958)  25.0 W38-W53 N04-N11
     14 1730  754 (N00W52 L= 45)   976    160        1 (1664/ 693-1782/ 828)  63.4 W49-W55 S05-N05
     15 1235  775 (S14W19 L= 12)   317    129        0 (1171/ 761-1303/ 794)  20.6 W15-W23 S16-S12
     16  741  743 (S30E09 L=344)   234     54        0 ( 712/ 721- 765/ 769)  63.4 E10-E07 S32-S27
     17 1084  685 (S24W14 L=  6)   644    132        1 (1010/ 657-1136/ 720)  23.2 W08-W16 S25-S20
     18 1533  589 (S15W45 L= 37)   552    140        0 (1461/ 543-1594/ 629)  56.3 W41-W47 S19-S10
     19 1219  575 (S26W26 L= 19)   492    111        1 (1178/ 529-1262/ 623) -12.5 W21-W30 S27-S23
  

    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