Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1303 1394 (N25W07 L= 36)   817    219        1 (1242/1291-1369/1483) -31.6 W00-W13 N19-N29
      2  851 1305 (N07E17 L= 12)   298    116        0 ( 811/1285- 923/1327)  45.0 E19-E13 N05-N10
      3  494  897 (S24E30 L=359)   860    199        2 ( 413/ 860- 576/ 949)  36.0 E35-E24 S27-S19
      4 1127  836 (S12W11 L= 40)   240    105        1 (1081/ 819-1183/ 858)  38.7 W08-W13 S13-S09
      5 1172  790 (S13W15 L= 44)   228     83        1 (1135/ 777-1220/ 807)  31.0 W12-W17 S14-S11
      6  885  719 (S25E00 L= 29)   309    108        1 ( 833/ 697- 944/ 752)   8.1 E03-W04 S25-S23
      7  463  718 (S36E30 L=359)   275     57        0 ( 438/ 697- 487/ 742)  36.9 E32-E28 S37-S34
      8 1597  699 (S07W44 L= 74)   381     75        0 (1555/ 681-1631/ 718)  45.0 W41-W46 S08-S04
      9  548  630 (S40E22 L=  7)  1185    188        2 ( 474/ 551- 627/ 688) -15.9 E28-E14 S43-S36
     10 1459  612 (S15W38 L= 68)   537    140        0 (1425/ 547-1502/ 677) -76.0 W37-W41 S18-S10
     11  778  565 (S38E03 L= 27)   397     85        0 ( 733/ 548- 829/ 580)  15.9 E06-W01 S39-S36
     12 1313  544 (S23W32 L= 61)   541    241        1 (1212/ 526-1429/ 557)  19.7 W25-W39 S25-S20
     13 1619  353 (S24W66 L= 96)   772    149        1 (1568/ 324-1684/ 395)  41.2 W62-W70 S27-S19
  

    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