Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1013 1846 (N56W03 L= 40)   469     36        1 ( 990/1819-1032/1868)  51.3 W00-W05 N53-N58
      2 1781 1459 (N23W62 L= 99)  4975    363        9 (1642/1347-1871/1573) -43.0 W50-W77 N16-N31
      3  243 1413 (N25E61 L=336)   497     89        1 ( 229/1369- 261/1447)  90.0 E63-E59 N22-N27
      4 1721 1421 (N21W53 L= 90)   362     52        2 (1695/1398-1742/1444)  18.4 W49-W55 N19-N22
      5  424 1349 (N19E40 L=358)   278    110        0 ( 394/1298- 454/1397)  63.4 E42-E38 N16-N22
      6  663 1356 (N19E22 L= 15)   433    131        0 ( 609/1300- 689/1397) -39.8 E26-E20 N15-N21
      7  232 1095 (N05E56 L=342)  1559    267        3 ( 155/ 989- 277/1207)  47.7 E64-E50 N00-N11
      8  225  664 (S21E65 L=332)  3186    250        6 ( 176/ 549- 278/ 757)  77.9 E72-E59 S28-S14
      9 1840  704 (S23W65 L=103)   933    139        2 (1810/ 647-1880/ 757)  60.3 W62-W69 S26-S19
     10 1555  618 (S29W37 L= 75)   341    108        0 (1501/ 591-1605/ 647) -16.7 W32-W42 S30-S26
     11  935  631 (S27E07 L= 30)   277    103        0 ( 882/ 616- 980/ 646)  -9.5 E10-E04 S27-S25
     12 1406  533 (S34W27 L= 65)   924    318        0 (1331/ 415-1492/ 627)  60.3 W23-W32 S42-S28
     13  617  568 (S29E31 L=  7)   241     85        1 ( 576/ 552- 658/ 585)   9.5 E33-E27 S30-S28
     14 1146  330 (S49W08 L= 46)   272     43        0 (1117/ 312-1168/ 349) -11.3 W05-W10 S50-S47
     15  789  288 (S51E27 L= 11)   790    132        1 ( 733/ 258- 831/ 331)  17.1 E33-E20 S53-S47
  

    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