Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  984 1630 (N40E12 L=179)   727    172        0 ( 928/1596-1057/1686) -21.0 E18-E05 N38-N44
      2 1715 1483 (N39W56 L=247)  2587    330        4 (1647/1356-1760/1614)  72.5 W49-W66 N29-N49
      3 1119 1265 (N17W03 L=194)   574    285        0 (1066/1214-1164/1352) -58.0 W00-W06 N14-N22
      4 1461 1183 (N15W27 L=218)   363     82        0 (1429/1143-1492/1218) -45.0 W24-W29 N13-N17
      5  891  983 (S03E08 L=183)   218     59        0 ( 873/ 949- 903/1015) -63.4 E09-E06 S04-N00
      6 1691  871 (S01W47 L=238)   605    116        0 (1639/ 830-1728/ 910) -18.4 W42-W51 S03-N00
      7  518  886 (S13E31 L=159)   329     34        2 ( 491/ 863- 544/ 909)  36.9 E33-E29 S14-S11
      8  465  779 (S21E36 L=155)   403    116        1 ( 422/ 759- 519/ 811)   0.0 E39-E31 S22-S18
      9  838  798 (S15E09 L=182)   219     70        0 ( 796/ 787- 873/ 808)   0.0 E11-E06 S15-S14
     10 1432  755 (S11W29 L=220)   233     65        2 (1409/ 724-1449/ 789) -76.0 W27-W30 S12-S08
     11 1281  727 (S14W20 L=211)   293    102        1 (1250/ 697-1326/ 748)  45.0 W17-W22 S16-S12
     12  723  649 (S26E16 L=175)   222     22        0 ( 707/ 627- 737/ 673) -71.6 E17-E14 S27-S24
     13  890  644 (S24E04 L=187)   343     65        1 ( 857/ 621- 918/ 671)  26.6 E06-E02 S25-S22
     14 1385  547 (S25W31 L=222)   760     90        3 (1338/ 518-1433/ 573)  15.9 W27-W35 S26-S22
     15  904  497 (S34E02 L=189)   408    106        0 ( 847/ 484- 958/ 510)   7.1 E06-W02 S35-S33
  

    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