Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  883 1613 (N36E20 L= 77)  1239    271        2 ( 838/1507- 918/1705) -51.8 E27-E15 N28-N42
      2  553 1583 (N29E44 L= 53)  1531    439        3 ( 491/1456- 616/1697) -35.0 E55-E34 N20-N35
      3 1697 1556 (N45W51 L=148)  1144    285        0 (1655/1518-1737/1600)  25.0 W44-W59 N41-N50
      4  271 1431 (N15E64 L= 33)  2759    447        7 ( 230/1302- 313/1526) -40.9 E73-E56 N07-N20
      5  911 1336 (N18E11 L= 86)   627    232        1 ( 844/1270- 949/1409)  77.5 E15-E08 N13-N22
      6 1138 1319 (N20W03 L=100)   273    153        1 (1123/1265-1174/1399) -63.4 W01-W06 N16-N24
      7  671 1294 (N12E26 L= 71)   305     88        1 ( 639/1260- 696/1334) -26.6 E29-E23 N10-N14
      8  486 1218 (N05E37 L= 60)   353    116        0 ( 428/1197- 532/1243)  29.7 E41-E34 N02-N07
      9 1544 1148 (N15W32 L=129)   575    154        3 (1505/1102-1577/1188)  56.3 W29-W34 N11-N17
     10 1285 1073 (N07W15 L=112)   486    190        1 (1248/ 968-1319/1154) -61.4 W12-W18 N00-N11
     11  293  915 (S16E50 L= 47)   341     66        2 ( 272/ 891- 312/ 943)  36.9 E51-E47 S17-S14
     12 1543  686 (S13W39 L=136)   680    142        3 (1502/ 647-1574/ 731) -29.7 W35-W42 S15-S10
     13  762  457 (S40E11 L= 86)   510    120        1 ( 703/ 442- 813/ 483)  12.5 E15-E06 S42-S37
  

    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