Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1111 1612 (N32E02 L= 48)   265     69        0 (1075/1589-1142/1630) -21.8 E05-W00 N30-N32
      2  442 1514 (N18E47 L=  4)   780    109        2 ( 392/1469- 488/1568)  56.3 E49-E43 N14-N21
      3  295 1459 (N14E58 L=352)  5428    375       10 ( 202/1315- 430/1564)  50.9 E66-E48 N04-N20
      4  486 1450 (N14E41 L=  9)   668    109        4 ( 452/1397- 526/1494)  71.6 E42-E38 N10-N17
      5  405 1427 (N12E47 L=  4)   310     29        0 ( 380/1411- 426/1447)  18.4 E48-E44 N10-N13
      6 1943 1121 (N15W70 L=120)  1021    103        2 (1898/1076-1977/1160)  -7.6 W62-W79 N12-N16
      7 1827 1082 (N10W54 L=104)   701    113        1 (1805/1020-1849/1138)  82.9 W52-W56 N05-N13
      8  216 1017 (S14E57 L=353)  1278    198        3 ( 177/ 954- 255/1124)  48.4 E61-E53 S17-S07
      9  141 1080 (S10E67 L=344)   643     85        1 ( 127/1034- 154/1123) -68.2 E68-E64 S12-S07
     10 1554  857 (S08W35 L= 85)   470    163        0 (1515/ 785-1578/ 932)  90.0 W33-W36 S12-S03
     11  951  856 (S17E02 L= 48)   524    155        0 ( 921/ 781- 973/ 926) -63.4 E04-W00 S20-S12
     12  274  855 (S23E52 L=358)  2960    517        5 (  93/ 774- 533/ 901)   8.1 E85-E29 S27-S18
     13  559  715 (S30E28 L= 22)  2068    469        4 ( 354/ 633- 709/ 859)  29.5 E47-E17 S36-S19
     14 1310  824 (S14W20 L= 70)   223     80        0 (1289/ 787-1343/ 856)  68.2 W18-W21 S16-S11
     15 1478  673 (S20W34 L= 85)   700    256        0 (1416/ 630-1564/ 745)  11.3 W28-W39 S22-S16
     16 1214  700 (S22W16 L= 66)   315    125        0 (1150/ 671-1258/ 732)  33.7 W12-W18 S24-S19
     17 1090  413 (S43W15 L= 66)  2372    442        3 ( 896/ 372-1300/ 464)   5.2 W00-W33 S45-S39
     18  788  397 (S49E09 L= 41)   239     35        0 ( 766/ 379- 808/ 416)  45.0 E11-E07 S50-S47
     19 1582  375 (S36W60 L=110)   748     97        0 (1547/ 351-1625/ 403)  20.6 W53-W63 S37-S33
  

    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