Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  960 1613 (N26E22 L= 90)  1002    260        0 ( 905/1505-1026/1719) -30.5 E31-E14 N21-N32
      2  592 1547 (N12E42 L= 70)   290    115        1 ( 578/1502- 613/1608) -60.3 E44-E39 N09-N16
      3  824 1426 (N11E23 L= 90)   551    252        1 ( 713/1389- 923/1449)  22.6 E28-E16 N06-N12
      4 1224 1353 (N18W02 L=114)   408    155        0 (1174/1310-1277/1424)  71.6 W00-W03 N14-N23
      5 1816  822 (N08W59 L=171)   780     96        3 (1778/ 790-1852/ 861)  35.5 W54-W62 N05-N10
      6  871  710 (S28W00 L=113)   597    158        1 ( 796/ 695- 955/ 731)  33.7 E04-W05 S30-S24
      7  392  593 (S50E38 L= 74)   469     65        0 ( 369/ 570- 422/ 627) -36.9 E40-E33 S51-S47
      8  923  520 (S38W10 L=123)   291     99        0 ( 889/ 480- 962/ 559)  74.1 W09-W11 S41-S33
      9 1077  490 (S34W21 L=134)   635    287        0 ( 973/ 425-1207/ 546)  57.3 W17-W27 S41-S27
     10 1341  514 (S24W36 L=149)   289     62        1 (1304/ 499-1375/ 535)  36.9 W34-W38 S26-S23
     11 1412  461 (S25W44 L=157)   335    117        0 (1359/ 433-1454/ 501)  71.6 W42-W45 S27-S21
     12 1645  452 (S17W64 L=176)   433     26        1 (1623/ 434-1669/ 467)  26.6 W61-W66 S18-S15
     13 1285  401 (S33W40 L=152)   534    108        2 (1228/ 381-1341/ 422)  18.4 W35-W44 S33-S30
  

    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