Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  387 1609 (N12E62 L=189)  2643    356        7 ( 314/1515- 441/1696) -77.9 E69-E57 N05-N19
      2  796 1623 (N22E31 L=219)   342    104        1 ( 754/1590- 846/1649)   0.0 E34-E26 N20-N23
      3 1172 1373 (N16E01 L=250)   875    256        0 (1111/1270-1236/1497) -42.3 E07-W05 N11-N22
      4  533 1265 (S05E35 L=215)   265     85        0 ( 490/1256- 573/1276)  18.4 E38-E32 S06-S04
      5  318  985 (S26E45 L=205)   295     46        0 ( 299/ 966- 340/1003)  45.0 E46-E43 S27-S24
      6  355  891 (S31E41 L=210)   694    164        0 ( 301/ 868- 420/ 930)  -5.2 E46-E35 S31-S29
      7  978  838 (S19W02 L=253)   933    330        0 ( 808/ 804-1141/ 861)  17.5 E07-W12 S22-S15
      8  642  833 (S28E18 L=233)   272     61        0 ( 605/ 811- 679/ 853)   0.0 E20-E15 S28-S26
      9 1264  657 (S20W25 L=275)  1456    373        2 (1112/ 556-1422/ 727)   9.9 W15-W38 S24-S15
     10 1583  566 (S15W49 L=300)   500    132        1 (1530/ 531-1647/ 610)  53.1 W46-W52 S18-S10
     11 1695  451 (S17W67 L=317)  2164    329        3 (1654/ 401-1740/ 505) -50.2 W61-W72 S19-S13
     12 1585  450 (S21W56 L=307)   460    116        0 (1567/ 415-1602/ 487) -23.2 W52-W59 S22-S19
     13 1313  338 (S37W44 L=295)   431     63        1 (1281/ 313-1343/ 362)   9.5 W40-W46 S37-S34
  

    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