Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  608 1563 (N38E34 L=102)  2418    400        5 ( 456/1463- 797/1635) -12.5 E52-E16 N30-N42
      2  347 1495 (N32E58 L= 79)   536     59        1 ( 328/1463- 377/1516)  63.4 E61-E54 N29-N33
      3  868 1468 (N31E11 L=125)   212     58        0 ( 847/1443- 900/1486)  45.0 E12-E09 N29-N32
      4  387 1436 (N28E50 L= 86)   449     83        0 ( 360/1414- 422/1471) -20.6 E54-E46 N26-N30
      5 1158 1431 (N29W09 L=146)  1113    294        2 (1032/1400-1295/1465)  -6.3 W00-W18 N26-N31
      6 1082 1098 (N08W04 L=140)   188     47        0 (1056/1076-1109/1115) -18.4 W01-W05 N06-N08
      7  483  938 (S03E35 L=102)   573    146        1 ( 415/ 902- 532/ 989)  24.0 E40-E31 S04-N00
      8 1080  744 (S14W04 L=140)   277     56        0 (1062/ 714-1103/ 771) -90.0 W02-W05 S15-S12
      9 1723  724 (S16W51 L=187)   364     52        0 (1709/ 698-1746/ 756)  90.0 W49-W53 S17-S14
     10 1614  561 (S27W45 L=181)  1939    287        0 (1566/ 486-1692/ 684) -49.4 W38-W55 S32-S18
     11  913  614 (S22E07 L=129)   458    137        0 ( 846/ 598- 978/ 635)   6.3 E11-E02 S23-S20
     12  651  398 (S39E30 L=106)  1350    240        1 ( 580/ 340- 729/ 487)  33.7 E39-E21 S44-S31
     13  941  214 (S56E09 L=128)   416     40        0 ( 910/ 199- 968/ 231) -18.4 E11-E05 S57-S54
  

    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