Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1415 1643 (N32W48 L=347)   719    117        0 (1359/1604-1465/1685) -76.0 W46-W50 N28-N36
      2 1696 1578 (N19W69 L=  8)  1249    163        0 (1634/1519-1768/1609) -42.0 W63-W74 N13-N22
      3 1030 1518 (N36W14 L=313)   553    130        2 ( 971/1489-1100/1534) -18.4 W10-W19 N34-N38
      4 1475 1440 (N19W40 L=339)   715    128        2 (1415/1407-1533/1468) -54.5 W36-W45 N15-N22
      5 1290 1180 (N10W19 L=318)   319    131        2 (1246/1128-1332/1231) -76.0 W17-W20 N05-N13
      6  527 1114 (N23E30 L=269)   877    321        3 ( 388/1080- 677/1142) -20.9 E40-E19 N18-N26
      7 1723 1081 (S08W46 L=345)   511     85        0 (1702/1040-1743/1122)  45.0 W43-W48 S10-S05
      8  353 1020 (N20E45 L=253)  1021    182        2 ( 297/ 971- 400/1088)  74.1 E50-E40 N17-N24
      9  981 1062 (N10E02 L=297)   190     91        0 ( 939/1051-1027/1075) -11.3 E04-W01 N09-N11
     10 1339 1037 (N00W18 L=317)   213     68        1 (1317/1002-1364/1060)   0.0 W16-W20 S01-N01
     11  158 1005 (N22E69 L=230)  1002    127        1 ( 126/ 954- 194/1055) -33.7 E75-E63 N18-N24
     12 1829  939 (S20W54 L=353)   982    181        1 (1760/ 902-1875/ 984) -15.9 W46-W60 S22-S16
     13 1270  919 (S05W12 L=310)   276     76        0 (1237/ 895-1301/ 942) -63.4 W10-W13 S06-S02
     14  419  883 (N11E42 L=257)   381    135        0 ( 353/ 858- 478/ 901) -16.7 E47-E37 N08-N12
     15 1334  635 (S23W09 L=308)  1273    380        2 (1238/ 501-1442/ 787)  34.4 W00-W19 S30-S16
     16  679  688 (S05E29 L=270)   241     90        1 ( 649/ 652- 707/ 725) -68.2 E29-E27 S07-S02
     17 1543  527 (S38W23 L=322)   377     67        1 (1529/ 490-1554/ 566) -90.0 W22-W24 S40-S34
     18  742  472 (S20E32 L=267)   371     86        0 ( 717/ 435- 763/ 522)  81.9 E33-E30 S22-S15
     19 1154  309 (S42E12 L=286)  2616    313        6 (1041/ 221-1238/ 425)  26.6 E24-E02 S48-S34
     20 1009  194 (S49E32 L=267)   488     56        1 ( 983/ 169-1031/ 222)  78.7 E35-E27 S51-S45
     21  945  159 (S51E42 L=257)   590     70        1 ( 914/ 144- 980/ 177) -36.9 E45-E37 S52-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