Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1365 1747 (N37W51 L=291)  2914    448        6 (1201/1714-1620/1778) -19.7 W36-W77 N26-N42
      2 1604 1573 (N19W56 L=296)  4499    712        6 (1450/1437-1747/1681) -63.4 W48-W69 N09-N28
      3  661 1371 (N33E15 L=225)  1138    482        2 ( 449/1328- 863/1403) -16.7 E31-E01 N26-N37
      4 1098 1178 (N11W08 L=247)   447    158        1 (1053/1104-1139/1240) -84.3 W06-W09 N05-N15
      5 1787 1128 (S10W52 L=292)  1046    240        3 (1715/1024-1839/1218)  25.0 W43-W59 S14-S05
      6 1636 1036 (S11W37 L=277)   321     85        0 (1612/1002-1666/1075) -71.6 W36-W39 S13-S07
      7 1860  883 (S26W57 L=297)   749    170        0 (1822/ 800-1891/ 955)  45.0 W52-W61 S30-S22
      8  635  772 (S02E29 L=211)   231     48        2 ( 611/ 746- 660/ 792)   0.0 E30-E26 S03-N00
      9 1734  717 (S33W42 L=282)   712    135        1 (1700/ 678-1775/ 781) -48.4 W38-W47 S36-S27
     10  736  697 (S08E25 L=215)   479    181        0 ( 691/ 611- 756/ 764)  78.7 E26-E23 S13-S03
     11 1562  650 (S32W26 L=265)   657    144        2 (1510/ 598-1611/ 713)  35.5 W21-W30 S34-S28
     12  592  651 (S07E35 L=205)   448    158        0 ( 497/ 634- 655/ 670) -15.3 E42-E30 S09-S05
     13 1005  560 (S22E13 L=227)   656    134        1 ( 962/ 512-1027/ 624)  40.6 E16-E09 S25-S18
     14 1433  453 (S42W13 L=252)  1181    238        0 (1329/ 386-1501/ 523)  17.4 W02-W19 S44-S38
     15 1042  203 (S50E30 L=210)  1803    268        3 ( 912/ 160-1149/ 259)  -2.2 E43-E17 S52-S47
  

    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