Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1436 1803 (N39W64 L=200)  1384    162        2 (1366/1763-1502/1836)  -2.0 W52-W82 N37-N40
      2  835 1468 (N33E01 L=135)   748    208        1 ( 746/1444- 943/1488) -22.6 E07-W05 N30-N36
      3 1839 1382 (N04W69 L=205)   599     60        0 (1809/1359-1862/1402) -23.2 W65-W73 N02-N05
      4 1060 1381 (N23W11 L=146)   304     95        0 (1012/1358-1106/1401)   0.0 W07-W13 N21-N23
      5 1520 1339 (N09W38 L=174)   757    158        0 (1470/1267-1559/1397) -83.7 W36-W39 N04-N13
      6  180 1207 (N31E63 L= 73)  2130    219        3 ( 124/1118- 244/1292) -25.7 E80-E53 N24-N37
      7 1124 1241 (N13W11 L=147)   213     91        0 (1082/1221-1167/1263)   9.5 W07-W13 N12-N13
      8 1853  978 (S19W58 L=193)  5155    674       13 (1711/ 719-1955/1242)  41.9 W41-W78 S32-S05
      9  544 1113 (N18E27 L=108)  1554    429        1 ( 365/1061- 694/1214)   2.2 E41-E15 N14-N21
     10 1828 1144 (S09W57 L=193)   521     53        0 (1812/1110-1844/1180)  63.4 W55-W59 S10-S06
     11 1518  771 (S23W25 L=161)   980    236        2 (1464/ 669-1558/ 867)  48.0 W19-W29 S28-S17
     12 1210  704 (S20W04 L=140)   687    349        0 (1138/ 561-1292/ 846)  45.0 E03-W11 S26-S12
     13  374  521 (S13E58 L= 78)   743    123        1 ( 348/ 465- 402/ 582)  58.0 E61-E56 S16-S08
     14  844  449 (S27E26 L=110)   469     92        0 ( 827/ 397- 866/ 501)  45.0 E29-E22 S30-S23
  

    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