Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1560 1616 (N21W56 L= 90)  3003    385        4 (1365/1529-1710/1673) -46.5 W44-W64 N11-N30
      2 1741 1600 (N14W75 L=108)  1962    136        5 (1686/1548-1776/1652) -90.0 W67-W83 N10-N18
      3 1804 1205 (S07W55 L= 89)  1551    247        4 (1772/1097-1848/1307)  42.3 W49-W61 S12-S02
      4  219 1130 (N31E56 L=338)   818    132        1 ( 189/1065- 253/1183) -52.1 E60-E51 N26-N35
      5 1879 1091 (S16W60 L= 94)   924    165        3 (1838/1059-1913/1129) -36.9 W55-W65 S19-S13
      6  552  970 (N15E29 L=  5)   306    102        1 ( 519/ 931- 577/1014) -68.2 E30-E27 N12-N17
      7 1304  929 (S07W13 L= 46)   310    119        0 (1262/ 880-1326/ 976)  38.7 W09-W14 S08-S04
      8  519  916 (N12E32 L=  1)   355    113        1 ( 479/ 869- 544/ 953)  78.7 E34-E30 N09-N14
      9 1506  853 (S17W23 L= 56)   275    122        0 (1472/ 810-1529/ 912)  33.7 W19-W25 S18-S14
     10 1613  839 (S21W30 L= 64)   231     51        1 (1597/ 820-1642/ 862)   0.0 W28-W32 S22-S19
     11  452  799 (N07E40 L=353)   378    137        0 ( 401/ 755- 498/ 851)  16.7 E45-E35 N05-N09
     12 1661  777 (S27W33 L= 66)   574    178        1 (1597/ 728-1716/ 844)  15.3 W26-W38 S27-S23
     13 1218  807 (S11W05 L= 38)   247    126        0 (1159/ 763-1261/ 831) -56.3 W02-W06 S14-S08
     14 1109  703 (S14E04 L= 30)   422    172        1 (1040/ 669-1143/ 770)  14.0 E08-W00 S16-S10
     15  603  531 (S11E39 L=354)  2609    601        7 ( 469/ 332- 709/ 742)  29.1 E61-E25 S21-S01
     16 1292  689 (S20W06 L= 39)   352     49        1 (1270/ 659-1322/ 727)  76.0 W04-W07 S21-S17
     17  377  441 (S12E63 L=330)  1943    177        3 ( 340/ 377- 428/ 539)  61.4 E72-E58 S16-S05
     18 1261  422 (S36E04 L= 30)   643    160        0 (1212/ 380-1298/ 493)  40.6 E07-W00 S39-S31
     19 1130  235 (S47E22 L= 11)  1125    167        2 (1076/ 177-1175/ 281)  18.4 E31-E16 S50-S41
  

    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