Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  850 1688 (N51E13 L= 56)   302     67        0 ( 823/1662- 886/1706)  18.4 E15-E09 N48-N52
      2 1166 1477 (N33W12 L= 81)   555    212        0 (1068/1452-1254/1515) -17.1 W05-W18 N30-N35
      3 1690 1366 (N22W52 L=121)   657    132        0 (1657/1309-1714/1432) -90.0 W50-W54 N17-N26
      4 1777 1298 (N16W59 L=128)  1722    261        2 (1730/1227-1837/1409) -67.4 W55-W64 N11-N23
      5  794 1361 (N26E15 L= 54)   295    112        0 ( 758/1326- 846/1380)  18.4 E16-E10 N24-N27
      6 1505 1313 (N20W35 L=104)   420    153        0 (1455/1262-1571/1364) -40.6 W31-W38 N16-N23
      7  262 1165 (N14E56 L= 13)   688    120        4 ( 233/1118- 299/1214) -39.8 E60-E52 N11-N17
      8 1492  738 (S16W30 L= 99)  1355    275        1 (1415/ 627-1560/ 838)  55.3 W24-W34 S22-S09
      9  765  743 (S12E18 L= 51)   433    133        0 ( 720/ 695- 816/ 782)  39.8 E20-E14 S15-S09
     10  581  679 (S16E31 L= 38)   308     58        1 ( 564/ 655- 608/ 710) -56.3 E32-E29 S17-S14
     11 1630  496 (S34W48 L=117)  3483    477        3 (1482/ 382-1757/ 671)  53.1 W35-W57 S42-S22
     12  521  567 (S24E38 L= 31)   330     72        0 ( 507/ 532- 532/ 605)  51.3 E40-E36 S26-S21
     13  936  540 (S26E08 L= 61)   344    112        0 ( 887/ 525- 990/ 556)   8.1 E11-E04 S27-S25
     14 1077  161 (S64W00 L= 69)   495     66        0 (1053/ 146-1103/ 182) -45.0 E03-W03 S66-S60
  

    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