Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  822 1835 (N55E22 L=162)   533     94        1 ( 774/1812- 865/1850)   5.7 E27-E17 N52-N56
      2 1601 1510 (N28W43 L=226)   363     54        0 (1567/1492-1636/1526)  -9.5 W40-W46 N26-N29
      3  272 1460 (N25E61 L=123)  1009     96        2 ( 226/1420- 298/1506)  45.0 E66-E55 N22-N28
      4 1791 1431 (N24W61 L=244)   634     68        1 (1760/1397-1822/1464) -45.0 W57-W64 N21-N25
      5  880 1328 (N15E09 L=174)   516    145        0 ( 814/1308- 956/1358) -12.5 E13-E04 N13-N17
      6  362 1243 (N11E45 L=138)   286     72        0 ( 343/1213- 375/1276) -63.4 E46-E43 N08-N12
      7  424 1204 (N08E39 L=144)   242     25        0 ( 405/1180- 440/1222) -56.3 E40-E38 N06-N09
      8  497 1147 (N05E33 L=150)   236     51        0 ( 479/1115- 511/1171) -76.0 E34-E32 N02-N06
      9  415 1074 (N00E40 L=144)   489    149        1 ( 375/1014- 465/1148)  49.4 E42-E35 S03-N04
     10 1085  838 (S15W04 L=187)  1077    371        0 (1003/ 683-1134/ 987)  72.5 E01-W06 S24-S05
     11 1612  783 (S17W40 L=223)   302    118        2 (1558/ 768-1657/ 808) -14.0 W35-W43 S17-S15
     12 1081  477 (S38W04 L=188)  1147    365        3 ( 919/ 452-1268/ 513)   6.6 E08-W18 S39-S35
     13  972  308 (S52E05 L=178)   486     88        1 ( 923/ 295-1015/ 329)   0.0 E09-W00 S52-S49
  

    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