Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  377 1620 (N46E66 L= 51)   651     60        1 ( 364/1589- 400/1648) -24.4 E73-E60 N43-N48
      2  873 1541 (N39E08 L=109)   449    116        1 ( 819/1523- 925/1558)   0.0 E12-E04 N37-N40
      3 1036 1439 (N31W03 L=120)   466    105        1 ( 998/1396-1073/1481) -56.3 W00-W05 N27-N33
      4  481 1360 (N28E38 L= 79)   785    222        2 ( 434/1285- 513/1416) -60.9 E42-E35 N22-N31
      5  353 1303 (N24E49 L= 68)   709    105        2 ( 338/1246- 376/1354) -66.8 E51-E46 N20-N27
      6  254 1225 (N19E58 L= 59)  1103    203        4 ( 207/1130- 294/1301)  68.2 E62-E53 N13-N23
      7 1691 1223 (N12W48 L=165)   383     44        0 (1670/1187-1709/1249) -90.0 W46-W49 N09-N13
      8 1686  790 (S15W45 L=162)  3307    464       11 (1524/ 613-1796/ 991) -87.6 W31-W55 S26-S02
      9 1642  924 (S06W41 L=157)   364     73        2 (1623/ 893-1666/ 949)  45.0 W39-W42 S07-S04
     10  253  867 (S03E57 L= 60)   358     46        3 ( 232/ 845- 271/ 893)  71.6 E59-E54 S04-S01
     11 1173  784 (S11W08 L=125)   388    166        0 (1121/ 732-1224/ 857)  45.0 W04-W11 S13-S06
     12  263  674 (S15E61 L= 56)   423    107        0 ( 229/ 627- 283/ 712) -63.4 E64-E59 S18-S12
     13 1701  675 (S23W48 L=165)   376     54        1 (1679/ 635-1720/ 697)  90.0 W45-W49 S25-S21
     14  752  537 (S25E22 L= 95)   976    189        3 ( 719/ 459- 799/ 605)  55.0 E25-E17 S30-S20
     15  624  428 (S33E35 L= 82)  1072    191        4 ( 527/ 402- 702/ 454)   0.0 E43-E28 S34-S30
  

    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