Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1132 1806 (N46E22 L=329)   344     71        0 (1103/1781-1158/1831) -15.9 E25-E18 N44-N47
      2  969 1684 (N31E24 L=326)   280     61        1 ( 939/1670-1008/1700)  26.6 E26-E22 N29-N31
      3 1503 1620 (N45W14 L=  5)   898    122        3 (1463/1577-1534/1661) -50.2 W11-W17 N40-N49
      4 1571 1592 (N46W21 L= 12)   319     67        0 (1554/1564-1592/1615)  63.4 W19-W23 N42-N48
      5 1738 1352 (N35W38 L= 29)  3770    648        9 (1609/1055-1845/1536) -41.5 W25-W52 N20-N44
      6  422 1465 (N04E51 L=300)   565    156        1 ( 379/1416- 449/1499) -68.2 E55-E47 N00-N05
      7  184 1256 (S13E66 L=285)   890    181        3 ( 143/1217- 208/1285) -10.3 E72-E61 S14-S10
      8 1583 1146 (N16W29 L= 20)   475    131        0 (1538/1077-1610/1209) -40.6 W24-W32 N12-N18
      9 1504  992 (N05W28 L= 19)   748    166        0 (1445/ 948-1579/1054)  -5.7 W23-W33 N03-N07
     10 1885  973 (N18W60 L= 50)   479     55        0 (1871/ 945-1897/1008) -63.4 W58-W61 N15-N19
     11 1746  923 (N09W47 L= 38)  1100    235        1 (1665/ 894-1823/ 943)  19.7 W41-W55 N06-N12
     12 1743  735 (S00W54 L= 45)   897    167        1 (1678/ 678-1795/ 814)  68.2 W51-W57 S05-N05
     13 1107  663 (S24W16 L=  6)   560    116        0 (1040/ 635-1162/ 691)  20.6 W10-W18 S25-S21
     14 1251  551 (S26W29 L= 19)   481    119        1 (1211/ 506-1294/ 603) -12.5 W24-W33 S27-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