Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1355 1797 (N49W58 L=328)   829     96        1 (1324/1759-1399/1829)   0.0 W49-W65 N47-N50
      2 1487 1731 (N41W63 L=333)  1563    125        3 (1438/1684-1533/1778)  82.9 W55-W67 N36-N44
      3 1476 1624 (N34W50 L=320)   648    176        1 (1421/1550-1506/1680)  73.3 W46-W52 N29-N39
      4 1425 1597 (N34W43 L=314)   367    118        0 (1388/1553-1462/1643) -90.0 W42-W44 N30-N37
      5  583 1483 (N43E27 L=244)   420    109        0 ( 537/1458- 638/1502) -16.7 E31-E21 N39-N44
      6 1735 1352 (N12W57 L=328)   481     62        1 (1717/1324-1756/1395)  45.0 W55-W59 N10-N14
      7 1073 1216 (N17W06 L=277)   881    378        2 ( 903/1156-1229/1270) -32.9 E03-W14 N11-N22
      8  550 1145 (N21E29 L=241)   239     77        1 ( 537/1102- 570/1182)  53.1 E30-E27 N17-N22
      9 1599 1041 (S03W37 L=307)   694    209        3 (1558/ 944-1638/1130)  41.6 W32-W41 S07-N02
     10  904 1080 (N12E06 L=264)   262    117        1 ( 845/1055- 953/1097) -33.7 E09-E03 N09-N13
     11 1853  918 (S17W60 L=330)  1846    319        6 (1765/ 769-1923/1029)  37.4 W49-W72 S24-S11
     12 1902  867 (S22W69 L=339)   671     52        1 (1882/ 845-1923/ 890)   7.1 W64-W73 S22-S20
     13  715  442 (S26E32 L=238)   294     71        1 ( 686/ 411- 746/ 474)  26.6 E35-E29 S27-S23
     14 1458  362 (S48W23 L=294)   564     87        1 (1427/ 332-1492/ 393)  45.0 W19-W26 S50-S45
     15 1163  222 (S54E08 L=263)   411     69        1 (1138/ 205-1202/ 242)   8.1 E10-E03 S55-S51
  

    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