Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1260 1476 (N33W13 L= 76)   363     68        2 (1223/1453-1293/1493)  11.3 W10-W15 N30-N33
      2 1403 1404 (N29W24 L= 87)   471     74        1 (1372/1379-1445/1436)  21.8 W21-W26 N26-N30
      3  210 1335 (N14E67 L=356)  1176    177        2 ( 194/1266- 229/1397) -83.7 E69-E64 N09-N18
      4  413 1288 (N13E44 L= 19)   987    143        4 ( 386/1225- 446/1359) -76.0 E47-E41 N09-N17
      5  431 1048 (S01E39 L= 24)   269     71        0 ( 419/1004- 445/1078) -71.6 E40-E38 S03-N00
      6 1184  818 (S10W11 L= 74)   340    123        1 (1171/ 756-1203/ 882) -69.4 W10-W13 S13-S05
      7 1519  626 (S20W37 L=100)   475    111        0 (1497/ 579-1548/ 675) -56.3 W35-W40 S22-S16
      8 1528  452 (S32W44 L=107)   505     92        1 (1483/ 431-1572/ 483)  15.9 W40-W47 S33-S29
  

    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