Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1289 1685 (N37W33 L=239)   301     44        0 (1269/1661-1314/1702)  14.0 W31-W35 N35-N38
      2  607 1594 (N44E22 L=183)   480    126        2 ( 555/1557- 673/1627)  15.3 E26-E15 N41-N45
      3 1681 1489 (N17W55 L=260)   340     80        0 (1641/1459-1714/1512) -38.7 W52-W57 N15-N19
      4  838 1444 (N29E05 L=200)  1669    398        7 ( 676/1363-1034/1507)   2.4 E16-W08 N25-N31
      5  457 1360 (N30E34 L=171)  1662    408        2 ( 288/1318- 654/1407) -16.9 E51-E18 N24-N35
      6 1850 1031 (S12W58 L=263)   599     74        2 (1813/ 998-1883/1064)   7.1 W54-W62 S13-S10
      7 1837  962 (S16W56 L=262)   597     76        2 (1801/ 931-1868/ 998) -33.7 W52-W60 S17-S13
      8 1766  806 (S24W49 L=254)  1266    274        0 (1685/ 722-1825/ 929)  37.6 W41-W55 S28-S17
      9 1505  881 (S15W28 L=233)   267     45        0 (1474/ 859-1536/ 901)  14.0 W25-W29 S16-S14
     10  981  856 (S08E05 L=200)   468    143        0 ( 942/ 804-1044/ 887)  18.4 E07-E01 S11-S07
     11 1656  803 (S22W39 L=244)   337     54        0 (1640/ 772-1671/ 844) -78.7 W37-W39 S24-S19
     12  550  552 (S20E40 L=165)  1388    446        2 ( 412/ 444- 671/ 686)  24.0 E54-E27 S25-S13
     13  274  624 (S12E62 L=144)   564     37        1 ( 253/ 600- 296/ 646) -71.6 E64-E58 S13-S09
     14  349  479 (S21E62 L=143)  1036    125        5 ( 311/ 425- 380/ 532)  63.4 E67-E58 S25-S17
     15  872  469 (S31E20 L=185)   288     58        1 ( 854/ 439- 889/ 502)  53.1 E22-E18 S32-S28
  

    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