Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1172 1860 (N65E08 L= 78)  5768    422        6 (1009/1774-1351/1931)  -3.3 E43-W18 N58-N73
      2 1103 1689 (N46E07 L= 79)  2117    383        5 ( 914/1627-1236/1738)   0.0 E25-W04 N42-N47
      3  565 1662 (N33E50 L= 36)  1253    244        1 ( 499/1575- 660/1705)  74.7 E54-E42 N26-N37
      4  366 1498 (N19E59 L= 28)   614     98        1 ( 345/1465- 405/1546) -21.8 E63-E53 N16-N22
      5  361 1351 (N10E52 L= 35)  1162    228        3 ( 307/1272- 429/1426) -36.0 E60-E45 N05-N13
      6 1532 1226 (N20W30 L=117)   729    159        1 (1483/1167-1587/1283) -29.1 W26-W35 N17-N22
      7 1514 1145 (N15W30 L=116)   254     99        0 (1469/1116-1559/1166)  26.6 W26-W32 N12-N16
      8 1605 1088 (N12W37 L=123)   258     39        0 (1582/1072-1632/1102)   0.0 W35-W39 N11-N13
      9 1877 1051 (N14W65 L=152)   776     96        1 (1855/1012-1903/1093) -68.2 W62-W70 N12-N17
     10  386  978 (S12E42 L= 44)   324    108        0 ( 348/ 936- 416/1022)  50.2 E44-E39 S15-S09
     11  165  862 (S23E68 L= 18)   726     66        0 ( 147/ 832- 179/ 902) -63.4 E72-E65 S24-S20
     12  288  776 (S27E52 L= 34)   393     89        0 ( 265/ 732- 311/ 819)  50.2 E55-E48 S29-S23
     13 1183  665 (S19W16 L=102)   898    344        2 (1057/ 554-1282/ 778)  67.6 W09-W20 S28-S11
     14  778  744 (S21E11 L= 75)   308     62        1 ( 745/ 714- 810/ 767) -11.3 E13-E08 S22-S19
     15  607  704 (S26E23 L= 63)   636    158        2 ( 536/ 683- 674/ 740)  16.7 E28-E18 S27-S22
     16 1710  651 (S12W56 L=142)   386     26        1 (1685/ 631-1732/ 668)  14.0 W53-W58 S13-S11
     17 1475  504 (S25W42 L=128)   291     39        0 (1460/ 483-1494/ 529) -56.3 W39-W43 S26-S23
     18  701  205 (S70E22 L= 65)  1030     95        0 ( 672/ 176- 742/ 250) -63.4 E27-E14 S74-S63
     19  954  177 (S64W19 L=106)   659     79        0 ( 924/ 156- 994/ 209) -13.0 W13-W27 S66-S60
  

    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