Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1647 1616 (N39W50 L=239)   733     89        0 (1608/1588-1687/1648)  20.6 W43-W59 N36-N42
      2  223 1354 (N14E63 L=126)  4049    366        9 ( 158/1195- 273/1457) -48.6 E81-E54 N03-N20
      3  149 1233 (N06E69 L=119)  2288    166        5 ( 113/1142- 184/1308) -54.0 E76-E65 N00-N11
      4 1118  910 (S11W06 L=195)   364    113        1 (1071/ 871-1172/ 960)  45.0 W03-W09 S13-S07
      5  147  859 (S16E69 L=120)  3849    170        4 ( 102/ 784- 192/ 952) -68.2 E79-E62 S20-S10
      6  784  760 (S22E14 L=175)   303     94        0 ( 741/ 730- 824/ 787) -31.0 E16-E11 S23-S19
      7  454  738 (S24E38 L=150)   378    101        1 ( 413/ 691- 476/ 770) -45.0 E41-E36 S26-S21
      8 1440  730 (S19W29 L=218)   245     37        0 (1414/ 715-1463/ 747)  33.7 W27-W30 S20-S18
      9  518  573 (S35E36 L=153)  1667    333        2 ( 413/ 469- 621/ 691)  31.6 E51-E25 S42-S26
     10 1606  533 (S30W49 L=237)  1038    200        0 (1518/ 512-1691/ 564)   3.4 W39-W56 S31-S27
     11 1376  467 (S37W31 L=220)  1252    246        2 (1270/ 406-1468/ 540)  45.0 W24-W37 S42-S31
     12  653  268 (S59E37 L=151)   675    119        0 ( 597/ 248- 711/ 293) -13.0 E44-E29 S60-S56
     13 1004  164 (S68W09 L=198)   468     68        1 ( 961/ 148-1035/ 182)  -4.4 W01-W14 S69-S65
  

    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