Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  690 1779 (N38E40 L=139)   393    102        1 ( 650/1763- 738/1795)  18.4 E44-E36 N36-N39
      2  404 1597 (N22E54 L=126)   469    102        1 ( 387/1551- 419/1637) -71.6 E56-E52 N18-N24
      3 1399 1591 (N36W17 L=197)   452     95        1 (1369/1557-1434/1626)  63.4 W14-W19 N32-N38
      4  205 1430 (N10E69 L=110)  1646    263        3 ( 182/1359- 233/1497) -71.6 E73-E64 N05-N14
      5  418 1432 (N11E46 L=133)   282     87        3 ( 387/1414- 455/1446)  21.8 E49-E43 N09-N12
      6 1635 1389 (N26W35 L=215)   570     95        3 (1594/1368-1673/1416)   9.5 W32-W38 N24-N28
      7 1731 1259 (N20W43 L=223)   762    140        1 (1689/1204-1780/1295) -26.6 W40-W48 N17-N22
      8 1394 1153 (N07W20 L=200)   294    119        1 (1332/1117-1435/1177)   0.0 W16-W23 N05-N08
      9 1426  989 (S02W24 L=204)   197     81        0 (1413/ 947-1439/1038) -76.0 W23-W25 S04-N00
     10 1181  831 (S15W12 L=192)   942    346        2 (1040/ 746-1357/ 938)  43.2 W05-W21 S21-S06
     11  223  750 (S32E56 L=123)   403    111        0 ( 194/ 733- 248/ 777)  18.4 E59-E53 S32-S29
     12 1695  616 (S18W54 L=233)   780    167        3 (1659/ 562-1726/ 680) -74.1 W49-W56 S21-S14
     13 1588  525 (S26W48 L=228)   520    105        1 (1541/ 499-1635/ 562)  23.2 W45-W52 S27-S22
     14 1712  519 (S23W60 L=239)   405     91        2 (1689/ 491-1736/ 553)  63.4 W57-W61 S24-S20
     15  316  500 (S48E54 L=126)  1013    248        2 ( 261/ 484- 373/ 525)   4.1 E60-E46 S49-S46
  

    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