Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1359 1628 (N36W24 L=142)   941    237        2 (1241/1597-1463/1651)   6.3 W15-W33 N33-N37
      2 1527 1595 (N34W37 L=155)   342     45        1 (1506/1575-1552/1620)  36.9 W35-W39 N32-N36
      3  412 1482 (N25E45 L= 73)   970    348        0 ( 346/1366- 452/1568) -45.0 E53-E39 N17-N31
      4  977 1489 (N25E04 L=114)   535    138        1 ( 949/1427-1005/1546)  82.9 E05-E01 N21-N29
      5  236 1408 (N21E60 L= 57)   518     30        0 ( 218/1386- 256/1429) -21.8 E62-E57 N19-N22
      6 1192 1229 (N09W10 L=127)   261     76        0 (1159/1201-1229/1272) -38.7 W07-W12 N07-N11
      7  535 1131 (N03E31 L= 86)  1207    253        2 ( 491/ 994- 596/1239)  70.3 E33-E26 S05-N09
      8  129 1140 (N05E70 L= 47)  2672    363        5 (  83/1082- 162/1214)  48.8 E80-E64 N01-N09
      9  790 1062 (S02E14 L=103)   726    193        0 ( 735/1013- 830/1153) -66.8 E17-E11 S04-N03
     10  654 1119 (N02E23 L= 94)   266     63        0 ( 638/1083- 674/1151)  71.6 E23-E21 N00-N03
     11  689  969 (S07E21 L= 97)   730    206        1 ( 612/ 880- 736/1040) -52.1 E25-E17 S12-S02
     12  642  964 (S07E24 L= 94)   231     69        1 ( 620/ 928- 671/ 991)  76.0 E25-E21 S09-S05
     13 1885  841 (S12W66 L=183)  4233    537        7 (1808/ 729-1941/ 985)  46.8 W58-W73 S18-S02
     14  901  911 (S11E07 L=110)   542    162        1 ( 824/ 873- 988/ 949)  16.7 E12-E02 S12-S08
     15  657  861 (S14E23 L= 94)   545    140        4 ( 605/ 829- 711/ 892) -15.9 E26-E19 S15-S11
     16  950  787 (S18E04 L=113)   577    220        0 ( 862/ 749-1017/ 850)  26.6 E10-W00 S20-S14
     17  392  828 (S15E42 L= 75)   423    105        4 ( 348/ 806- 439/ 848) -15.9 E45-E38 S16-S13
     18  778  733 (S21E16 L=102)   520    204        0 ( 710/ 656- 810/ 807) -68.2 E19-E13 S26-S16
     19  295  663 (S25E54 L= 63)  1454    278        3 ( 259/ 545- 343/ 763)  57.3 E58-E47 S32-S18
     20 1707  711 (S21W49 L=166)   292     64        1 (1687/ 677-1733/ 738)  63.4 W47-W51 S22-S18
     21  982  662 (S26E02 L=115)   561    252        2 ( 855/ 627-1111/ 699)  13.2 E11-W06 S28-S23
     22 1538  635 (S26W37 L=154)   242     35        1 (1516/ 612-1556/ 657) -71.6 W34-W37 S27-S24
     23 1144  608 (S29W09 L=126)   201     41        0 (1122/ 581-1170/ 631)  45.0 W07-W10 S30-S27
  

    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