Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  387 1610 (N12E62 L=189)  2649    348        4 ( 340/1519- 436/1694) -76.0 E68-E57 N06-N18
      2 1571 1652 (N51W22 L=273)   370     70        1 (1542/1636-1596/1670)  39.8 W18-W25 N48-N54
      3  791 1623 (N22E32 L=220)   367    105        0 ( 745/1591- 840/1647)  -8.1 E35-E27 N20-N22
      4  480 1594 (N13E52 L=199)   467     65        0 ( 454/1564- 516/1622)  68.2 E54-E50 N10-N15
      5 1160 1382 (N17E02 L=249)   883    261        0 (1099/1273-1226/1504) -42.5 E08-W04 N11-N22
      6  525 1267 (S05E36 L=215)   269     82        0 ( 484/1254- 568/1277)  18.4 E38-E32 S06-S04
      7  314  989 (S26E46 L=205)   296     49        0 ( 293/ 969- 340/1009)  26.6 E47-E43 S27-S24
      8  347  894 (S31E42 L=210)   711    136        0 ( 295/ 870- 408/ 928)  -5.7 E46-E36 S31-S29
      9  979  840 (S18W02 L=254)   941    339        0 ( 807/ 807-1140/ 863)  16.7 E08-W12 S22-S15
     10  641  835 (S27E18 L=233)   311    103        0 ( 599/ 812- 697/ 857)  15.9 E21-E14 S28-S25
     11 1263  657 (S20W25 L=276)  1453    374        1 (1104/ 557-1417/ 723)  10.3 W15-W37 S25-S16
     12 1605  587 (S13W50 L=301)   376     92        0 (1558/ 551-1649/ 617)  56.3 W47-W52 S16-S10
     13 1690  454 (S17W66 L=317)  2000    316        2 (1652/ 403-1737/ 505) -80.5 W61-W72 S19-S13
     14 1582  451 (S21W56 L=307)   488    104        1 (1563/ 417-1605/ 488) -23.2 W52-W59 S22-S19
     15 1308  341 (S37W44 L=295)   437     77        0 (1276/ 317-1339/ 368)   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