Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  854 1869 (N72W27 L= 72)   495     59        0 ( 836/1838- 870/1896)  22.4 W21-W38 N67-N75
      2 1444 1640 (N32W50 L= 95)   336     97        0 (1429/1599-1474/1671)  18.4 W45-W54 N30-N33
      3 1629 1423 (N15W51 L= 96)   340     79        0 (1588/1404-1671/1441)  -6.3 W46-W55 N13-N15
      4  938 1365 (N29W02 L= 47)   404    119        1 ( 903/1312- 974/1421)  33.7 W00-W06 N25-N32
      5  526 1291 (N33E29 L= 16)   240     43        0 ( 500/1265- 547/1316) -53.1 E30-E27 N31-N35
      6 1725 1183 (S01W50 L= 94)   935    165        2 (1677/1117-1772/1248) -63.4 W45-W52 S05-N03
      7  545 1182 (N26E28 L= 17)   233     64        0 ( 533/1148- 556/1225)  78.7 E28-E26 N23-N28
      8 1610 1096 (S03W38 L= 83)   326     83        0 (1571/1065-1642/1121) -45.0 W35-W40 S05-N00
      9  667 1065 (N17E21 L= 24)   216     70        0 ( 645/1029- 691/1097)  31.0 E23-E18 N14-N18
     10  417 1014 (N18E40 L=  5)   296     95        0 ( 380/ 979- 445/1059) -56.3 E42-E37 N15-N21
     11 1608  999 (S08W36 L= 81)   252     29        0 (1587/ 982-1626/1020) -14.0 W33-W37 S09-S06
     12 1407  773 (S16W18 L= 63)   319    112        1 (1370/ 744-1466/ 793)   0.0 W14-W21 S17-S14
     13 1687  657 (S32W39 L= 84)   315     49        0 (1661/ 642-1716/ 670) -11.3 W36-W42 S33-S30
     14 1332  585 (S27W09 L= 54)   392     80        1 (1305/ 555-1359/ 630) -90.0 W07-W11 S29-S23
     15  708  376 (S27E38 L=  7)  1337    249        2 ( 609/ 333- 831/ 431)   5.4 E48-E27 S29-S24
  

    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