Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  995 1856 (N58W41 L=336)  2610    358        5 ( 875/1740-1103/1954)   5.7 W18-W79 N53-N60
      2 1505 1727 (N30W63 L=358)   751    132        1 (1448/1689-1558/1749) -49.4 W57-W66 N25-N32
      3  549 1604 (N56E20 L=275)   671    132        1 ( 488/1562- 607/1636)   0.0 E27-E12 N53-N57
      4 1463 1431 (N15W39 L=333)   412     86        1 (1434/1387-1481/1468)  59.0 W37-W40 N12-N17
      5  481 1358 (N39E28 L=266)   329     79        0 ( 444/1341- 523/1370)  -8.1 E31-E24 N37-N40
      6 1713  861 (S23W39 L=334)   738    243        0 (1642/ 762-1775/ 964)  25.0 W31-W46 S27-S19
      7 1657  891 (S20W35 L=330)   451    173        0 (1625/ 821-1703/ 962)  29.1 W31-W40 S22-S17
      8 1835  880 (S27W52 L=347)   371     81        0 (1817/ 837-1851/ 918)  36.9 W49-W54 S29-S24
      9 1401  656 (S26W12 L=307)   305     45        0 (1372/ 628-1425/ 680) -63.4 W10-W13 S27-S23
     10 1213  579 (S25E01 L=293)   697    282        0 (1121/ 482-1322/ 633)  14.9 E09-W06 S28-S22
     11 1521  472 (S43W18 L=313)   893    228        0 (1481/ 373-1544/ 584)  69.4 W12-W20 S50-S34
     12  912  492 (S22E22 L=273)   348    123        1 ( 881/ 444- 956/ 524)  33.7 E24-E18 S24-S20
     13 1086  395 (S33E16 L=279)   506    141        1 (1026/ 379-1156/ 412) -26.6 E19-E10 S35-S30
     14  743  354 (S26E40 L=255)   555    108        0 ( 723/ 305- 764/ 409)  36.9 E43-E34 S29-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