Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1603 1666 (N47W43 L=257)   975    110        0 (1558/1626-1638/1693)   5.7 W36-W48 N43-N50
      2  845 1534 (N24E18 L=196)   285     67        1 ( 828/1492- 872/1563)  90.0 E19-E16 N20-N25
      3  542 1482 (N17E38 L=176)   330     80        0 ( 517/1448- 570/1519) -33.7 E41-E35 N15-N19
      4 1547 1358 (N22W30 L=245)  1683    393        2 (1380/1242-1668/1451) -22.2 W17-W39 N16-N25
      5  900 1411 (N16E13 L=202)   349     82        3 ( 865/1380- 940/1447) -11.3 E14-E09 N14-N18
      6 1851 1318 (N26W61 L=275)  2174    167        5 (1791/1247-1910/1379) -21.0 W52-W69 N21-N30
      7  309 1255 (N01E52 L=163)   410     95        0 ( 277/1238- 347/1277)   9.5 E54-E48 N00-N02
      8  677 1216 (N02E23 L=191)   465    129        1 ( 639/1151- 708/1270) -39.8 E26-E20 S01-N04
      9  658  994 (S12E22 L=192)   203     63        1 ( 627/ 976- 690/1020)  36.9 E24-E20 S12-S09
     10  451  834 (S23E37 L=178)   479     98        2 ( 401/ 813- 500/ 854)  -7.1 E40-E32 S24-S21
     11 1076  812 (S18W06 L=220)   482    228        0 ( 981/ 773-1184/ 841)  30.3 W00-W12 S21-S14
     12  819  647 (S31E09 L=206)   688    148        2 ( 759/ 599- 878/ 683)  40.6 E12-E05 S35-S28
     13 1621  502 (S28W55 L=269)  3137    439        4 (1454/ 401-1796/ 629)  46.4 W45-W66 S37-S16
  

    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