Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1355 1765 (N55W41 L=164)   547     72        1 (1325/1730-1388/1793)   8.7 W36-W49 N51-N57
      2 1311 1558 (N38W24 L=147)   324     69        0 (1273/1538-1342/1577)   0.0 W20-W26 N36-N39
      3  567 1426 (N30E33 L= 90)  1891    429        2 ( 423/1288- 702/1538) -29.5 E51-E21 N20-N37
      4 1774 1319 (N19W59 L=183)   418     85        0 (1737/1290-1806/1349) -33.7 W56-W62 N17-N21
      5 1061 1258 (N18W03 L=126)   429    192        0 (1021/1180-1121/1312)  53.1 W00-W06 N13-N21
      6  779 1033 (N05E15 L=108)   860    239        1 ( 698/ 962- 878/1104)  33.7 E20-E08 N00-N09
      7 1476  915 (S04W29 L=152)   249     65        0 (1459/ 885-1500/ 950) -53.1 W27-W30 S05-S01
      8  688  867 (S05E22 L=102)   525    102        1 ( 654/ 813- 724/ 913)  56.3 E24-E19 S08-S02
      9  623  637 (S20E28 L= 95)  1338    319        2 ( 537/ 504- 700/ 738)  43.3 E38-E21 S29-S13
     10 1487  563 (S27W33 L=156)  2535    441        4 (1325/ 431-1604/ 716)  51.7 W21-W40 S36-S17
     11  944  670 (S18E06 L=117)   228     46        1 ( 925/ 649- 965/ 693)  45.0 E07-E04 S19-S16
     12 1711  643 (S23W52 L=175)   359     65        0 (1698/ 610-1725/ 678) -68.2 W50-W53 S25-S20
     13  388  633 (S21E48 L= 75)   369     49        2 ( 363/ 605- 411/ 661)  38.7 E50-E45 S22-S18
     14  982  476 (S32E04 L=119)  1446    482        1 ( 838/ 371-1196/ 626)  34.7 E16-W10 S40-S21
     15 1202  403 (S38W13 L=136)   883    139        2 (1130/ 356-1260/ 443)  24.0 W07-W17 S42-S35
  

    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