Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1641 1593 (N19W61 L= 12)   438     66        1 (1614/1578-1674/1610) -36.9 W59-W63 N17-N20
      2 1419 1321 (N12W31 L=342)   215     24        0 (1397/1304-1439/1339)   0.0 W29-W33 N11-N13
      3 1257 1318 (N17W22 L=333)   256     96        0 (1208/1304-1305/1334) -38.7 W19-W24 N15-N19
      4  274 1036 (N24E50 L=261)   679    207        0 ( 219/ 979- 337/1085) -38.7 E55-E45 N20-N28
      5 1301  951 (S04W14 L=325)   658    190        1 (1243/ 883-1377/ 995)  12.5 W09-W18 S07-S02
      6  447  921 (N15E38 L=273)   378    111        0 ( 400/ 897- 490/ 945)   0.0 E42-E34 N13-N15
      7  632  916 (N10E26 L=285)   594    177        0 ( 550/ 892- 718/ 939) -26.6 E30-E20 N07-N12
      8 1476  728 (S22W19 L=330)   424    115        0 (1417/ 701-1532/ 764)   6.3 W14-W23 S23-S21
      9  181  739 (N08E70 L=241)   909    207        0 ( 137/ 726- 216/ 758)   0.0 E79-E65 N07-N08
     10 1144  673 (S16E02 L=309)   650    127        3 (1103/ 634-1194/ 721) -63.4 E04-W00 S19-S12
     11 1012  487 (S24E16 L=295)   791    191        2 ( 967/ 411-1043/ 576)  42.0 E21-E11 S28-S18
     12  341  480 (S10E65 L=246)  2349    396        6 ( 274/ 427- 399/ 535) -41.6 E74-E58 S13-S05
     13  527  501 (S12E46 L=265)   312     45        2 ( 505/ 480- 549/ 525) -90.0 E48-E44 S13-S09
     14  619  313 (S26E50 L=261)  1002    210        1 ( 598/ 253- 645/ 373)  38.7 E55-E44 S30-S22
  

    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