Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1145 1842 (N65W23 L=344)  1792    243        3 (1017/1813-1252/1867)   4.2 W03-W45 N61-N67
      2 1414 1548 (N37W33 L=354)   417    127        2 (1352/1530-1465/1569) -18.4 W28-W37 N35-N38
      3  754 1442 (N31E19 L=302)   335    118        1 ( 704/1413- 799/1458)   8.1 E22-E15 N29-N32
      4 1365 1384 (N26W25 L=346)   361     93        1 (1339/1335-1381/1426)  80.5 W23-W26 N22-N28
      5  738 1328 (N24E19 L=302)   773    261        3 ( 677/1269- 835/1416) -30.3 E23-E11 N19-N29
      6  365 1351 (N25E50 L=271)   562    109        1 ( 342/1307- 382/1411) -74.1 E52-E47 N22-N29
      7 1905 1154 (N07W74 L= 34)   865     75        1 (1889/1115-1920/1196)  35.5 W69-W78 N04-N09
      8  356 1159 (N13E47 L=274)   362    100        1 ( 315/1142- 401/1186) -12.5 E51-E42 N11-N14
      9  935 1119 (N10E05 L=315)   229     56        2 ( 910/1100- 972/1141) -18.4 E06-E03 N09-N11
     10 1747  861 (S09W51 L= 12)   477     52        1 (1722/ 835-1773/ 881)  26.6 W48-W53 S11-S07
     11  550  799 (S09E32 L=289)  1151    265        1 ( 454/ 742- 626/ 835)  -8.7 E39-E26 S12-S06
     12  405  794 (S10E43 L=277)   496     95        1 ( 387/ 745- 428/ 830)  59.0 E44-E40 S12-S07
     13 1067  683 (S17W02 L=322)   348    144        1 (1051/ 615-1087/ 754)  77.5 W00-W03 S21-S12
     14 1393  477 (S34W26 L=347)   847    135        2 (1348/ 445-1454/ 518) -21.8 W22-W32 S36-S30
  

    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