Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1446 1715 (N36W56 L=296)  1165    192        1 (1377/1679-1531/1735) -35.0 W48-W62 N30-N38
      2  424 1480 (N48E39 L=200)   407     79        1 ( 399/1451- 455/1513) -26.6 E43-E34 N46-N51
      3 1701 1427 (N12W57 L=296)   434    100        0 (1654/1389-1734/1449) -45.0 W53-W59 N09-N14
      4 1420 1323 (N14W31 L=271)   883    162        2 (1393/1236-1446/1404)  68.2 W28-W34 N09-N19
      5  899 1000 (N09E08 L=232)   366    150        0 ( 871/ 924- 922/1062)  83.7 E08-E06 N03-N12
      6 1051  905 (S00E01 L=238)  1056    387        2 ( 963/ 765-1197/ 961)  18.4 E08-W07 S06-N02
      7 1851  838 (S26W56 L=295)   517     50        1 (1831/ 805-1872/ 867) -59.0 W53-W59 S28-S23
      8 1421  819 (S14W19 L=258)   273     75        0 (1401/ 781-1446/ 851)  45.0 W17-W20 S15-S12
      9 1448  758 (S18W19 L=259)   220     16        0 (1429/ 739-1464/ 778)  26.6 W18-W20 S19-S17
     10  861  745 (S05E15 L=224)   216     65        1 ( 834/ 722- 892/ 773) -76.0 E16-E14 S07-S03
     11  315  544 (S09E63 L=176)  5207    475        8 ( 230/ 377- 407/ 725)  64.4 E74-E56 S20-N03
     12  350  629 (S04E55 L=185)   768    143        3 ( 291/ 587- 410/ 672) -33.7 E59-E50 S06-N00
     13  553  587 (S09E40 L=200)   744    124        3 ( 520/ 541- 601/ 637) -80.5 E42-E36 S12-S05
     14 1720  559 (S41W43 L=282)  1311    197        2 (1658/ 496-1778/ 610)  13.0 W35-W50 S44-S37
     15  446  517 (S12E51 L=188)   608    107        1 ( 427/ 468- 465/ 579)  63.4 E54-E48 S15-S07
     16  918  511 (S21E19 L=221)   638    115        0 ( 887/ 476- 946/ 558)  38.7 E20-E15 S23-S18
     17  790  488 (S20E27 L=212)   290     70        2 ( 755/ 459- 820/ 518)  18.4 E30-E24 S21-S17
     18 1114  434 (S31E09 L=230)   299     75        0 (1092/ 406-1143/ 468) -90.0 E10-E07 S33-S28
     19  541  358 (S24E53 L=186)   596    115        1 ( 504/ 308- 578/ 405)  26.6 E61-E47 S27-S20
     20 1281  205 (S58E06 L=233)   460     34        1 (1255/ 189-1302/ 226)   0.0 E09-E03 S60-S54
  

    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