Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  392 1570 (N10E61 L=189)  1667    313        6 ( 308/1505- 447/1670)  76.0 147-E52 N07-S-2
      2  777 1569 (N19E32 L=218)   323     94        1 ( 763/1525- 790/1610) -59.0 E35-E29 N17-N21
      3  648 1493 (N11E36 L=214)   255     48        0 ( 620/1470- 675/1513)  56.3 E39-E34 N11-N12
      4 1195 1436 (N23E02 L=248)   641    134        0 (1161/1378-1231/1507) -45.0 E06-W02 N20-N26
      5  833 1421 (N12E22 L=228)   224     57        0 ( 804/1402- 864/1449)  68.2 E25-E20 N11-N13
      6  207 1247 (S12E64 L=186)  5909    791       14 ( 114/1115- 270/1419)  78.1 147-E53 S19-S-2
      7  660 1280 (S01E28 L=222)   419     78        1 ( 625/1252- 701/1302)   0.0 E31-E24 S01-S00
      8 1433 1285 (N21W17 L=267)   256     95        0 (1398/1252-1470/1302)  45.0 W15-W20 N20-N21
      9  445 1169 (S12E39 L=211)  1650    530        4 ( 333/1070- 581/1247)  43.0 E51-E27 S14-S10
     10 1122 1204 (N07W01 L=251)   622    172        0 (1050/1135-1166/1243) -29.7 E04-W05 N04-N07
     11  969 1122 (S02E06 L=245)   401    108        0 ( 921/1089-1026/1169)  -7.1 E10-E02 S02-S00
     12  227 1130 (S19E59 L=192)   717     51        0 ( 203/1096- 251/1167)  76.0 E62-E55 S20-S17
     13  604 1090 (S13E26 L=224)   302     72        2 ( 571/1054- 634/1122) -63.4 E29-E23 S14-S12
     14  555  899 (S25E26 L=224)   317     84        1 ( 539/ 852- 571/ 940) -78.7 E28-E24 S27-S23
     15  848  757 (S25E03 L=247)   431     93        1 ( 795/ 728- 896/ 792)   0.0 E07-W01 S26-S25
     16  243  749 (S42E58 L=192)   576     87        1 ( 217/ 721- 276/ 777)  16.7 E61-E54 S43-S41
     17 1613  533 (S14W55 L=305)   738    115        3 (1569/ 484-1646/ 588) -63.4 W48-W61 S16-S13
     18  624  545 (S45E14 L=236)   264     79        1 ( 602/ 505- 644/ 581) -38.7 E17-E11 S48-S44
     19  736  446 (S49E01 L=250)   329     41        0 ( 719/ 425- 756/ 477) -45.0 E03-W02 S50-S47
     20 1179  419 (S35W33 L=283)   285     19        1 (1157/ 399-1201/ 442) -71.6 W30-W36 S36-S34
     21  984  346 (S47W26 L=276)  2098    359        3 ( 858/ 303-1113/ 405)  19.3 W12-W39 S45-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