Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  947 1801 (N54E24 L=197)   337     70        3 ( 929/1777- 969/1818)  76.0 E27-E22 N51-N55
      2  406 1444 (N18E50 L=171)   728    182        0 ( 391/1354- 431/1516) -73.3 E53-E47 N12-N22
      3 1291 1462 (N32W12 L=234)   289     70        1 (1265/1435-1330/1482)  45.0 W10-W15 N29-N33
      4 1396 1421 (N30W20 L=242)   429     93        1 (1357/1378-1434/1460) -33.7 W17-W23 N27-N32
      5  237 1167 (S01E59 L=162)   533    102        2 ( 214/1118- 258/1208)  90.0 E62-E56 S04-N01
      6 1723  887 (N01W50 L=271)  4892    976       13 (1622/ 562-1814/1171) -79.6 W38-W61 S19-N19
      7  208  887 (S19E59 L=162)  3189    434        6 ( 155/ 805- 271/1000)  19.3 E65-E51 S23-S11
      8 1444  721 (S13W31 L=252)  1109    262        1 (1338/ 648-1545/ 806)  45.0 W25-W37 S18-S06
      9  657  764 (S20E20 L=201)   328    123        0 ( 605/ 737- 718/ 802)  -7.1 E24-E16 S21-S18
     10 1139  771 (S13W10 L=232)   197     91        0 (1100/ 751-1192/ 785)  31.0 W08-W13 S15-S11
     11 1507  666 (S15W37 L=258)   719    142        4 (1443/ 634-1568/ 707)  40.6 W32-W41 S17-S11
     12  959  578 (S28W02 L=223)   343     61        0 ( 932/ 554- 986/ 603)  53.1 W00-W03 S30-S26
     13  455  571 (S36E37 L=184)   346     75        1 ( 419/ 557- 482/ 589)   0.0 E40-E34 S37-S34
     14 1328  542 (S26W28 L=249)   253     68        1 (1311/ 516-1349/ 571) -36.9 W26-W30 S27-S23
     15 1467  422 (S32W43 L=264)   687    133        1 (1398/ 406-1520/ 448)  12.5 W37-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