Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1293 1862 (N46W67 L= 73)   585     64        1 (1263/1840-1317/1889)  -7.1 W61-W73 N44-N47
      2 1477 1625 (N26W52 L= 59)   494    157        0 (1415/1595-1548/1646) -12.1 W45-W59 N24-N27
      3 1432 1552 (N24W43 L= 50)   444     90        1 (1391/1520-1460/1580)   8.1 W39-W46 N22-N25
      4  725 1415 (N37E08 L=359)   226     82        1 ( 689/1394- 769/1430) -38.7 E10-E05 N35-N39
      5 1213 1323 (N18W19 L= 26)   594    158        5 (1167/1257-1263/1387)  21.8 W14-W24 N15-N20
      6  835 1225 (N23E06 L=  1)   702    239        1 ( 739/1163- 908/1261) -37.9 E11-E01 N17-N26
      7  194 1178 (N35E62 L=304)   977    126        3 ( 149/1137- 245/1224) -19.4 E72-E54 N31-N38
      8 1841 1025 (S18W55 L= 62)   911    197        2 (1772/ 991-1923/1070) -29.1 W48-W68 S22-S12
      9 1514  963 (S10W27 L= 34)   538    219        1 (1457/ 880-1568/1045)  35.0 W21-W31 S13-S06
     10  212  829 (N13E63 L=304)   888    170        4 ( 185/ 758- 252/ 889) -66.0 E67-E59 N08-N17
     11 1078  682 (S14E06 L=  1)   693    273        1 (1030/ 573-1128/ 800)  45.0 E11-W00 S19-S08
     12 1426  729 (S21W16 L= 23)   321     90        1 (1403/ 685-1445/ 762) -90.0 W14-W16 S24-S18
     13 1091  426 (S31E14 L=353)   838    248        4 (1007/ 339-1165/ 479)  17.4 E23-E07 S34-S27
     14  671  343 (S25E46 L=321)   778    184        2 ( 625/ 284- 714/ 406)  36.0 E51-E39 S29-S20
  

    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