Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  585 1477 (N31E27 L=192)   426     65        0 ( 550/1456- 628/1500) -18.4 E29-E23 N29-N32
      2 1559 1472 (N22W41 L=260)   277     55        0 (1528/1458-1586/1489)  11.3 W38-W43 N20-N22
      3 1223 1369 (N18W15 L=234)   340     77        1 (1174/1344-1269/1396) -18.4 W12-W18 N15-N19
      4  427 1304 (N21E38 L=181)   911    233        1 ( 386/1204- 470/1380) -76.0 E41-E34 N14-N26
      5 1447 1155 (N03W27 L=246)   327     77        0 (1431/1106-1461/1198) -90.0 W26-W27 N00-N05
      6 1710 1104 (S02W46 L=265)   871    140        1 (1669/1071-1768/1159) -29.7 W43-W51 S04-N01
      7  490 1086 (N07E33 L=186)   384     56        1 ( 464/1053- 507/1118) -90.0 E34-E31 N04-N08
      8 1738  964 (S10W48 L=266)   303     67        2 (1717/ 936-1759/ 997)  76.0 W45-W49 S12-S08
      9 1550  807 (S19W32 L=251)  1098    358        1 (1461/ 640-1610/ 936)  71.6 W26-W37 S28-S10
     10  255  821 (S07E56 L=163)  2527    491        1 ( 156/ 701- 342/ 895) -36.9 E67-E49 S14-S01
     11  646  843 (S09E25 L=194)   209     34        1 ( 626/ 819- 660/ 868)  45.0 E26-E23 S10-S07
     12 1439  736 (S22W25 L=243)   328    164        0 (1370/ 705-1500/ 793)  18.4 W19-W28 S23-S19
     13  381  615 (S20E49 L=169)   564    172        2 ( 361/ 554- 405/ 682)  45.0 E52-E45 S23-S16
     14  630  559 (S26E32 L=187)   439     70        1 ( 601/ 532- 661/ 584)  21.8 E33-E28 S28-S24
     15 1560  410 (S46W40 L=259)   903    116        2 (1531/ 371-1587/ 457) -53.1 W37-W44 S50-S42
  

    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