Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1100 1844 (N53W47 L=282)   436     72        2 (1084/1807-1123/1874)  18.4 W41-W53 N50-N55
      2 1032 1826 (N55W40 L=274)  1005    105        2 ( 985/1787-1071/1868)   6.7 W31-W49 N51-N57
      3 1386 1826 (N39W67 L=301)   567     50        0 (1371/1799-1400/1852)  18.4 W62-W73 N37-N40
      4 1631 1553 (N16W59 L=293)  1921    284        5 (1559/1444-1697/1649)  61.7 W55-W65 N08-N22
      5 1741 1508 (N10W67 L=301)  1497    135        5 (1714/1452-1778/1567)  33.7 W60-W74 N06-N13
      6 1421 1518 (N22W40 L=274)   350    139        1 (1368/1466-1466/1543) -74.1 W37-W42 N17-N24
      7 1138 1393 (N23W17 L=252)   244     80        0 (1122/1354-1158/1436)  59.0 W16-W19 N20-N25
      8  727 1398 (N36E08 L=226)  1620    524        1 ( 493/1349- 969/1432) -23.0 E27-W06 N25-N40
      9 1507 1318 (N08W37 L=271)   268     93        0 (1464/1298-1539/1349)   0.0 W33-W40 N07-N09
     10  960 1180 (N16W01 L=235)   561    262        0 ( 839/1154-1069/1221) -13.0 E06-W07 N14-N18
     11 1178 1113 (N07W11 L=245)   312    101        1 (1139/1078-1210/1153) -71.6 W09-W12 N04-N10
     12  611 1108 (N21E22 L=212)   705    205        2 ( 510/1076- 713/1130) -15.9 E29-E15 N18-N23
     13 1735 1029 (S14W45 L=279)   278     75        0 (1704/1014-1765/1057)   0.0 W41-W47 S15-S12
     14  242  973 (N21E56 L=178)   542    114        0 ( 215/ 929- 289/1016) -40.6 E58-E51 N18-N24
     15  574  985 (N15E28 L=207)   471    184        0 ( 518/ 934- 660/1008)   5.2 E32-E21 N13-N16
     16  164  873 (N17E68 L=166)  1338    173        0 ( 101/ 810- 236/ 909) -15.9 E81-E60 N12-N19
     17 1437  746 (S21W17 L=251)   319    134        0 (1402/ 694-1470/ 807)  35.5 W13-W20 S23-S18
     18 1567  473 (S45W22 L=256)  3282    603        3 (1316/ 319-1748/ 657)  13.1 E03-W42 S49-S37
     19  625  410 (S19E44 L=190)   448    109        0 ( 610/ 362- 646/ 454)  54.5 E46-E41 S23-S16
     20 1109  187 (S52E29 L=205)   724     82        1 (1067/ 168-1159/ 210) -33.7 E32-E24 S54-S48
  

    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