Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  341 1541 (N29E54 L= 36)   592    106        3 ( 312/1509- 373/1569)  26.6 E56-E51 N26-N31
      2 1375 1517 (N28W23 L=113)   374     44        0 (1343/1489-1406/1544) -36.9 W21-W25 N26-N30
      3  314 1299 (N13E50 L= 40)  1546    403        3 ( 272/1138- 378/1469) -87.3 E53-E45 N02-N23
      4 1409 1442 (N23W25 L=115)   352     89        1 (1369/1408-1433/1466)  31.0 W21-W26 N21-N24
      5  543 1438 (N21E33 L= 57)   449    112        2 ( 484/1419- 589/1455)  -7.1 E37-E29 N20-N22
      6  378 1312 (N13E44 L= 46)   360     59        2 ( 354/1284- 406/1338)  33.7 E46-E42 N11-N15
      7  160 1161 (N05E66 L= 25)  1823    169        2 ( 117/1098- 193/1233)  41.6 E72-E61 N01-N09
      8  987 1133 (N03E02 L= 88)   627    134        3 ( 945/1086-1017/1202)  63.4 E04-W00 N00-N06
      9 1240 1097 (N01W13 L=103)   257     72        1 (1211/1054-1270/1143) -63.4 W11-W14 S01-N03
     10 1241 1017 (S04W13 L=103)   315     87        2 (1193/ 986-1280/1047) -21.8 W10-W15 S05-S01
     11  170  941 (S08E64 L= 26)   520     58        0 ( 152/ 915- 193/ 978) -36.9 E66-E60 S10-S06
     12 1418  928 (S08W25 L=115)   251    104        2 (1398/ 870-1441/ 973) -63.4 W23-W26 S11-S05
     13 1060  884 (S12W02 L= 92)   367    113        2 (1006/ 846-1101/ 918)  45.0 W00-W04 S14-S10
     14 1309  875 (S12W18 L=108)   232     87        0 (1264/ 865-1361/ 890)   0.0 W15-W21 S12-S10
     15 1799  853 (S11W56 L=146)   572    146        1 (1773/ 822-1828/ 884)  31.0 W52-W58 S12-S09
     16  864  840 (S15E10 L= 80)   240     83        0 ( 820/ 825- 907/ 858)   0.0 E12-E06 S16-S14
     17 1384  773 (S18W24 L=114)   696    193        2 (1294/ 731-1448/ 852)  37.9 W18-W27 S20-S12
     18  122  795 (S17E73 L= 17)  1588    166        2 ( 101/ 744- 139/ 840)  59.0 E76-E69 S19-S14
     19  938  731 (S22E05 L= 85)   838    205        0 ( 909/ 627- 971/ 818) -90.0 E06-E02 S28-S16
     20  288  665 (S26E55 L= 35)  2482    605        5 ( 231/ 506- 380/ 813)  39.3 E66-E43 S35-S16
     21  644  745 (S21E24 L= 66)   458    114        0 ( 603/ 706- 698/ 776)  29.7 E27-E20 S23-S19
     22 1317  655 (S26W21 L=111)  1334    483        1 (1188/ 613-1543/ 742)   9.1 W11-W36 S28-S20
     23  576  549 (S34E32 L= 58)   347     92        1 ( 558/ 505- 595/ 594)  71.6 E34-E30 S37-S31
     24 1066  531 (S35W04 L= 94)   429    142        0 (1021/ 485-1102/ 594)  69.4 W01-W06 S38-S30
  

    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