Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1553 1736 (N28W67 L=316)   682     47        1 (1523/1702-1574/1764)  12.5 W62-W73 N25-N29
      2  964 1599 (N39W15 L=263)   360    147        0 ( 887/1578-1031/1612) -21.8 W08-W18 N36-N41
      3 1681 1509 (N12W58 L=307)  2057    430        2 (1502/1414-1821/1575) -31.0 W43-W68 N02-N17
      4  686 1218 (N24E15 L=234)   272    118        1 ( 646/1185- 742/1239) -18.4 E17-E11 N22-N25
      5 1273 1162 (N06W17 L=266)   450    101        0 (1216/1140-1325/1179) -26.6 W14-W20 N04-N07
      6 1091 1030 (N04W04 L=252)   651    215        2 (1009/ 983-1177/1115)  10.3 E01-W10 N01-N06
      7  317  981 (N19E47 L=202)   302    102        1 ( 305/ 926- 332/1032) -90.0 E47-E44 N15-N22
      8 1737  856 (S25W41 L=289)  2223    473        2 (1597/ 692-1850/1006)  15.9 W26-W54 S30-S17
      9  181  943 (N20E62 L=187)   483     81        0 ( 148/ 908- 217/ 970)  11.3 E66-E56 N17-N21
     10  527  886 (N09E32 L=216)   862    209        1 ( 445/ 826- 580/ 967)  21.0 E39-E26 N05-N12
     11  260  917 (N17E53 L=195)   301     49        1 ( 242/ 890- 282/ 935) -90.0 E55-E50 N15-N18
     12 1214  842 (S10W06 L=254)   282    132        0 (1179/ 800-1262/ 896) -76.0 W04-W07 S13-S05
     13  386  478 (S11E59 L=189) 10753      0       31 ( 219/ 279- 572/ 749) -79.0 E74-E48 S25-N07
     14  535  586 (S08E41 L=207)   298     33        0 ( 512/ 561- 558/ 605)  39.0 E42-E39 S09-S06
     15  906  532 (S20E20 L=228)   531    176        2 ( 880/ 439- 936/ 604)  41.6 E25-E16 S24-S15
     16  640  533 (S13E36 L=212)   632    103        2 ( 599/ 483- 679/ 589)  66.8 E39-E34 S16-S09
     17  744  561 (S14E29 L=220)   222    107        0 ( 717/ 540- 778/ 578) -45.0 E30-E27 S15-S12
     18 1468  527 (S37W14 L=263)   795    129        3 (1425/ 481-1524/ 564)  -6.3 W10-W19 S39-S33
     19  714  492 (S17E33 L=215)   256     59        0 ( 700/ 462- 727/ 521)  53.1 E34-E31 S19-S15
     20  606  455 (S17E42 L=206)  1108    204        3 ( 515/ 409- 686/ 511) -41.6 E46-E37 S20-S11
     21  639  243 (S32E57 L=192)  1501    220        0 ( 574/ 201- 680/ 313)  39.3 E65-E49 S35-S26
  

    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