Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  587 1639 (N23E47 L=124)  1952    315        3 ( 441/1529- 716/1714)  50.9 E54-E40 N13-N30
      2  849 1657 (N30E30 L=141)   988    137        1 ( 790/1615- 900/1687) -11.3 E34-E24 N27-N32
      3 1274 1528 (N33W02 L=173)   230     24        0 (1251/1515-1300/1541)   0.0 W00-W04 N32-N34
      4  654 1443 (N12E33 L=137)   250     25        1 ( 638/1420- 675/1463)  71.6 E34-E31 N10-N13
      5  258 1292 (S05E60 L=110)   460     72        1 ( 233/1254- 278/1325)  78.7 E61-E58 S07-S02
      6  747 1223 (N01E21 L=150)   323     68        0 ( 710/1197- 774/1256)  56.3 E22-E19 N00-N03
      7 1253 1057 (N04W12 L=182)   400    122        1 (1205/ 993-1282/1109)  74.1 W10-W13 N00-N07
      8 1761  747 (N00W57 L=227)   533    124        0 (1724/ 717-1794/ 774)   0.0 W52-W61 N00-N01
      9 1259  718 (S15W22 L=192)   379    109        1 (1230/ 674-1296/ 746) -36.9 W19-W24 S16-S12
     10 1779  669 (S04W63 L=233)   742     81        1 (1752/ 636-1801/ 698)  76.0 W58-W65 S05-S01
     11 1483  613 (S15W40 L=210)   495     84        0 (1447/ 579-1515/ 662)  80.5 W37-W41 S17-S11
     12  857  485 (S40W05 L=175)   837    213        1 ( 745/ 463- 962/ 510)  17.4 E04-W12 S42-S37
     13  478  482 (S52E29 L=141)   403    115        0 ( 434/ 470- 527/ 496)  10.3 E34-E23 S53-S50
     14 1607  450 (S20W58 L=228)   489     94        0 (1556/ 420-1649/ 485)  56.3 W55-W60 S23-S17
     15 1352  349 (S34W45 L=215)   409    124        1 (1322/ 326-1390/ 387) -14.0 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