Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1606 1713 (N28W73 L= 44)   994     98        1 (1576/1679-1644/1750)  51.3 W69-W76 N25-N30
      2 1530 1657 (N28W58 L= 28)   746     63        2 (1503/1621-1564/1693)  59.0 W54-W61 N25-N30
      3  499 1615 (N58E31 L=299)   327     40        0 ( 478/1596- 523/1630)   0.0 E34-E28 N56-N59
      4 1073 1576 (N38W20 L=350)   487     93        1 (1028/1538-1106/1600) -63.4 W17-W22 N34-N40
      5 1628 1548 (N19W58 L= 28)  2331    422        6 (1412/1509-1774/1584) -18.9 W40-W75 N13-N25
      6  295 1384 (N45E53 L=277)   849     92        0 ( 255/1364- 344/1403) -11.3 E60-E45 N42-N46
      7  492 1318 (N36E30 L=301)   318     62        2 ( 461/1292- 522/1341)   9.5 E32-E26 N34-N37
      8 1493 1257 (N08W34 L=  4)   388    163        0 (1446/1192-1518/1328)  83.7 W31-W34 N04-N13
      9 1381  847 (S11W16 L=347)  1209    320        1 (1332/ 717-1414/ 998)  51.8 W10-W21 S17-S03
     10  726  712 (S04E25 L=306)   463    131        1 ( 701/ 651- 755/ 774)  49.4 E27-E21 S07-N00
     11 1064  382 (S33E15 L=315)  2164    336        2 ( 919/ 290-1152/ 492)  22.2 E29-E07 S38-S26
     12  772  396 (S25E33 L=297)   423    101        2 ( 739/ 353- 801/ 440)  35.5 E36-E29 S27-S22
     13  557  414 (S19E48 L=282)   567     57        0 ( 527/ 389- 585/ 439)   0.0 E50-E44 S20-S17
  

    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