Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  582 1643 (N23E47 L=123)  2256    341        3 ( 427/1532- 723/1715)  50.5 E55-E41 N13-N30
      2  846 1656 (N30E30 L=141)   943    142        1 ( 796/1616- 899/1689) -11.3 E34-E24 N27-N32
      3 1266 1530 (N33W02 L=173)   231     47        0 (1239/1517-1294/1543)  18.4 W00-W03 N32-N34
      4  649 1446 (N12E34 L=137)   245     25        0 ( 632/1424- 670/1464)  71.6 E35-E32 N10-N13
      5  251 1289 (S05E61 L=110)   670    116        1 ( 213/1237- 277/1334)  74.1 E63-E58 S09-S02
      6  740 1229 (N01E21 L=149)   370     85        0 ( 699/1201- 773/1264)  53.1 E23-E19 N00-N04
      7 1249 1063 (N04W12 L=182)   380    100        1 (1210/1009-1276/1110)  81.9 W10-W12 N00-N07
      8 1767  707 (S02W59 L=230)  1258    213        1 (1718/ 636-1794/ 774) -26.6 W52-W65 S05-N01
      9 1253  722 (S15W21 L=192)   381    115        1 (1223/ 679-1293/ 751) -76.0 W19-W23 S16-S12
     10 1484  627 (S14W39 L=210)   584    114        1 (1442/ 584-1529/ 690)  82.9 W37-W40 S17-S09
     11 1227  652 (S19W22 L=193)   226     78        0 (1186/ 640-1261/ 666)  36.9 W19-W23 S20-S17
     12  851  487 (S40W04 L=175)   850    221        0 ( 744/ 468- 963/ 511)  17.4 E04-W12 S42-S37
     13  475  484 (S52E30 L=141)   349     95        1 ( 434/ 473- 512/ 498)  12.5 E34-E25 S53-S51
     14 1601  451 (S21W57 L=228)   561    110        0 (1547/ 418-1648/ 488)  50.2 W54-W60 S23-S17
     15 1351  349 (S34W45 L=215)   437    121        1 (1319/ 324-1389/ 389)  -7.1 W40-W48 S35-S32
  

    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