Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1449 1737 (N56W35 L= 87)   488     49        1 (1418/1718-1481/1752)  11.3 W30-W40 N53-N58
      2  794 1690 (N42E29 L= 23)   302     93        0 ( 748/1680- 841/1702)   8.1 E32-E24 N40-N43
      3  626 1502 (N26E34 L= 18)   604    166        0 ( 567/1428- 661/1541) -26.6 E39-E29 N21-N28
      4  538 1498 (N25E41 L= 11)   470     70        1 ( 515/1461- 568/1530)  78.7 E42-E38 N22-N27
      5  412 1444 (N20E50 L=  3)   525    127        3 ( 366/1399- 451/1479) -20.0 E55-E44 N17-N21
      6  403 1267 (N09E45 L=  8)   361     82        0 ( 368/1241- 437/1291) -15.9 E48-E41 N07-N10
      7 1100 1145 (N09W03 L= 56)   278     89        0 (1075/1097-1121/1188) -68.2 W01-W05 N06-N11
      8  655 1129 (N03E24 L= 28)   589    176        0 ( 579/1092- 724/1159)   6.3 E28-E19 N01-N05
      9 1705  898 (N00W47 L=100)  1170    186        0 (1646/ 819-1747/ 980)  59.0 W43-W50 S05-N05
     10  148  892 (S17E69 L=343)   669     65        0 ( 113/ 874- 178/ 911)  11.3 E78-E63 S18-S15
     11 1861  658 (S13W76 L=128)  1643    119        5 (1839/ 615-1886/ 717)  90.0 W72-W82 S16-S09
     12  825  681 (S22E09 L= 43)   443    130        0 ( 770/ 664- 891/ 709)   0.0 E12-E04 S23-S20
     13 1772  632 (S16W62 L=114)   620     71        1 (1741/ 604-1797/ 668)  63.4 W59-W65 S17-S13
     14 1491  284 (S43W59 L=111)   684     71        0 (1457/ 256-1509/ 317) -29.1 W54-W64 S45-S40
  

    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