Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1239 1520 (N28W11 L=358)   209     38        2 (1215/1497-1261/1538) -45.0 W09-W12 N26-N28
      2 1646 1204 (N11W39 L= 26)   244     79        1 (1605/1176-1678/1229) -11.3 W36-W41 N09-N12
      3  180 1120 (S02E62 L=284)   445    122        4 ( 148/1098- 207/1149) -15.9 E66-E58 S02-N00
      4 1786 1096 (N06W51 L= 38)   326     84        1 (1769/1060-1808/1137) -53.1 W49-W53 N03-N08
      5 1668 1067 (N03W41 L= 28)   346    117        0 (1623/1043-1709/1101)  33.7 W38-W44 N00-N05
      6 1437  879 (S10W27 L= 13)   629    242        0 (1330/ 832-1554/ 908)  23.2 W20-W34 S13-S07
      7  317  793 (S21E48 L=298)   830    218        3 ( 282/ 708- 356/ 888)  57.5 E52-E44 S26-S15
      8  130  803 (S20E69 L=278)  2793    313        0 ( 101/ 720- 152/ 885)  71.6 E73-E66 S24-S15
      9  855  842 (S16E09 L=337)   411    135        1 ( 782/ 816- 929/ 868)  24.0 E13-E04 S18-S14
     10 1593  747 (S17W40 L= 26)   324    103        1 (1560/ 706-1636/ 776)  45.0 W37-W42 S19-S14
     11  656  661 (S29E23 L=324)   265     85        1 ( 626/ 626- 692/ 699)  51.3 E25-E20 S31-S26
     12 1283  638 (S26W20 L=  6)   288     84        0 (1235/ 601-1324/ 674)  45.0 W17-W22 S28-S23
     13 1490  544 (S30W37 L= 24)  2688    506        5 (1271/ 460-1725/ 659)  30.4 W22-W53 S38-S20
     14 1203  438 (S40W19 L=  5)   235     48        0 (1178/ 418-1228/ 456)   0.0 W16-W20 S41-S39
  

    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