Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  591 1798 (N31E62 L=265)   877     87        2 ( 565/1764- 629/1840) -13.4 E75-E54 N29-N34
      2  503 1643 (N19E54 L=272)  1155    136        1 ( 474/1583- 552/1700) -48.8 E57-E50 N14-N22
      3 1316 1443 (N27W06 L=333)  1267    412        0 (1253/1272-1391/1604) -46.7 E02-W14 N18-N36
      4  402 1528 (N10E56 L=271)   356    109        1 ( 388/1471- 414/1581) -36.9 E60-E51 N06-N12
      5 1539 1362 (N29W23 L=350)   587    121        1 (1492/1319-1587/1396)  -7.1 W19-W27 N27-N30
      6  940 1215 (N04E10 L=317)   832    216        2 ( 835/1163-1001/1284)  52.1 E14-E06 N00-N09
      7 1335 1181 (N12W13 L=340)   282    118        0 (1298/1131-1353/1211) -45.0 W10-W15 N09-N14
      8 1638 1083 (N15W36 L=  2)   846    196        2 (1592/ 992-1684/1158) -41.2 W30-W40 N10-N18
      9 1481  913 (N02W29 L=356)   890    223        1 (1386/ 886-1586/ 959)  12.1 W22-W36 N00-N04
     10 1207  824 (S11W15 L=342)   231     73        0 (1174/ 802-1243/ 852)  63.4 W13-W16 S12-S08
     11  440  810 (S31E33 L=294)   291    101        0 ( 412/ 778- 490/ 838)  35.5 E35-E28 S33-S28
     12 1140  762 (S16W14 L=340)   471    112        1 (1090/ 734-1201/ 794)  33.7 W11-W17 S18-S13
     13 1562  651 (S10W44 L= 10)   440    150        0 (1529/ 602-1584/ 706) -63.4 W39-W45 S13-S07
     14  231  621 (S50E64 L=263)   787     55        0 ( 193/ 604- 263/ 636)   6.3 E74-E56 S50-S47
     15  950  415 (S42W15 L=342)   575     75        3 ( 908/ 379- 991/ 441)  15.9 W11-W18 S44-S40
  

    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