Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  693 1525 (N43E18 L=156)   357    102        0 ( 662/1493- 735/1559) -45.0 E20-E14 N40-N45
      2 1625 1419 (N19W49 L=223)  3096    483        5 (1461/1350-1770/1489) -29.5 W37-W60 N12-N26
      3 1161 1273 (N19W12 L=186)   437    140        0 (1088/1244-1222/1292)  -6.3 W07-W16 N17-N20
      4 1528 1230 (N10W36 L=209)   288     97        0 (1480/1195-1566/1254) -45.0 W32-W37 N07-N12
      5 1558 1104 (N02W35 L=209)   246     77        1 (1534/1071-1588/1147)  38.7 W32-W38 N00-N04
      6 1911 1103 (S06W71 L=245)   806    106        1 (1897/1073-1931/1135) -90.0 W68-W75 S07-S03
      7 1762  994 (S08W50 L=224)  1804    471        7 (1689/ 822-1826/1129)  48.8 W42-W57 S17-S01
      8  547 1087 (N16E30 L=144)   282     40        1 ( 525/1066- 573/1107)  14.0 E31-E27 N14-N17
      9 1882  970 (S13W63 L=237)  2453    397        5 (1822/ 875-1944/1102)  52.4 W55-W73 S17-S04
     10 1887  893 (S18W63 L=237)   525     97        2 (1868/ 871-1905/ 913)  11.3 W60-W65 S19-S16
     11 1048  854 (S04E01 L=173)   638    150        4 ( 988/ 819-1133/ 880)  -7.1 E04-W04 S05-S02
     12 1133  728 (S13W02 L=176)   876    298        6 (1099/ 621-1165/ 836)  72.9 E01-W05 S19-S06
     13 1041  509 (S26E07 L=167)   266     86        0 (1017/ 467-1056/ 546)  56.3 E09-E05 S29-S23
     14  350  451 (S23E63 L=111)   909    207        2 ( 324/ 424- 377/ 481)  32.0 E67-E58 S25-S20
  

    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