Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  613 1677 (N42E31 L= 79)   423     82        1 ( 598/1634- 626/1723) -60.3 E33-E28 N38-N45
      2 1674 1629 (N35W58 L=168)   745     73        2 (1633/1602-1704/1656)  -6.3 W52-W62 N32-N36
      3 1230 1542 (N29W16 L=126)  1094    324        7 (1089/1482-1367/1600) -21.3 W06-W24 N24-N33
      4  320 1368 (N21E49 L= 61)   475     86        0 ( 304/1326- 340/1411)  90.0 E51-E47 N18-N23
      5 1915  992 (S06W67 L=177)   873    144        1 (1870/ 927-1943/1051) -35.0 W60-W71 S09-S02
      6  516  959 (S05E32 L= 78)   494    165        1 ( 448/ 910- 557/1001) -45.0 E36-E29 S07-S01
      7 1775  861 (S14W52 L=162)  3562    459       11 (1677/ 742-1879/ 990)  37.4 W43-W61 S20-S05
      8  612  910 (S08E26 L= 84)   327     67        1 ( 595/ 867- 641/ 950) -90.0 E26-E23 S10-S05
      9  219  811 (S12E59 L= 51)  3343    322        9 ( 155/ 683- 294/ 921)  57.3 E67-E49 S19-S05
     10 1874  837 (S15W63 L=173)  1379    134        6 (1847/ 777-1901/ 901) -81.9 W60-W67 S18-S11
     11  722  861 (S11E19 L= 91)   647    221        4 ( 633/ 835- 837/ 882)  -4.4 E24-E11 S12-S09
     12  402  719 (S18E44 L= 66)  1795    427        2 ( 302/ 611- 470/ 866)  82.4 E56-E38 S24-S09
     13 1240  669 (S25W13 L=123)   454    174        0 (1191/ 598-1285/ 747)  63.4 W09-W15 S29-S19
     14  725  384 (S42E28 L= 82)  1574    338        2 ( 592/ 277- 836/ 484)  22.8 E47-E16 S50-S35
     15 1123  210 (S60W07 L=117)   841    103        4 (1075/ 175-1178/ 235)   4.8 W01-W13 S63-S57
  

    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