Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  934 1690 (N51W17 L=290)   527    108        2 ( 902/1650- 968/1732)  21.8 W11-W21 N47-N53
      2 1265 1649 (N37W38 L=311)   297     33        0 (1251/1621-1282/1673)  45.0 W35-W40 N35-N38
      3 1359 1653 (N34W45 L=318)   315     57        0 (1330/1637-1394/1664) -21.8 W42-W48 N33-N35
      4 1643 1559 (N20W61 L=335)  1769    135        3 (1593/1509-1717/1604) -37.9 W57-W70 N16-N23
      5 1481 1552 (N25W47 L=320)   338    115        0 (1460/1494-1494/1592)  50.2 W43-W49 N21-N27
      6  401 1321 (N39E39 L=234)  1234    201        1 ( 318/1261- 469/1356) -29.4 E49-E32 N33-N42
      7 1011 1245 (N20W05 L=278)   235     97        1 ( 977/1216-1053/1270) -59.0 W02-W06 N17-N22
      8  810 1249 (N25E08 L=266)   663    192        2 ( 716/1225- 890/1266) -15.3 E13-E02 N21-N27
      9 1635 1098 (S04W39 L=313)   948    154        2 (1597/1026-1661/1176)  53.1 W35-W43 S08-N00
     10 1189 1124 (N09W12 L=285)   402    121        0 (1136/1093-1230/1169)  15.9 W08-W15 N07-N10
     11  684 1098 (N19E19 L=254)   360    116        1 ( 642/1050- 707/1134)  63.4 E21-E16 N16-N20
     12  381 1047 (N22E42 L=231)  1028    168        1 ( 319/ 986- 447/1102) -42.0 E47-E37 N17-N26
     13 1477  516 (S36W17 L=291)  6242   1103       15 (1106/ 203-1736/ 897)  26.2 E22-W43 S51-S18
     14 1069  832 (S05E02 L=271)   237     88        0 (1042/ 803-1099/ 875) -80.5 E02-W00 S07-S01
     15 1082  601 (S19E07 L=266)   218     65        0 (1067/ 575-1103/ 635) -90.0 E07-E06 S21-S16
     16  293  565 (S06E66 L=207)   471     35        0 ( 273/ 546- 313/ 583) -45.0 E68-E63 S07-S04
     17 1054  521 (S23E11 L=262)   272    116        0 (1011/ 490-1097/ 554)  15.9 E14-E07 S24-S22
     18  492  396 (S20E56 L=217)   434     56        0 ( 476/ 358- 505/ 422)  51.3 E58-E53 S22-S17
     19  921  322 (S34E28 L=245)   744    166        0 ( 859/ 276- 981/ 375)  19.7 E35-E21 S36-S31
  

    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