Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1526 1633 (N31W46 L=203)   485    102        1 (1504/1596-1556/1657)  26.6 W42-W48 N28-N32
      2 1245 1608 (N33W23 L=181)   243     66        0 (1228/1575-1262/1638)  78.7 W22-W25 N30-N35
      3 1732 1413 (N15W55 L=212)   538    167        1 (1694/1346-1777/1445)  56.3 W50-W60 N10-N16
      4  237 1420 (N33E56 L=101)   627    134        0 ( 200/1407- 278/1435)   0.0 E60-E51 N32-N34
      5  209 1158 (N17E56 L=101)  2237    532        8 ( 142/1089- 268/1273)  42.0 E64-E50 N12-N23
      6  432 1212 (N17E36 L=121)   448    197        1 ( 371/1167- 512/1246) -32.5 E41-E30 N13-N20
      7  492 1092 (N09E32 L=125)   397    112        0 ( 447/1048- 536/1138) -45.0 E35-E29 N06-N12
      8  120 1065 (N12E68 L= 89)  1417    218        2 (  91/1027- 155/1107) -51.3 E73-E62 N09-N14
      9  661  986 (N01E22 L=135)   439    120        0 ( 623/ 924- 688/1042)  50.2 E25-E20 S02-N04
     10 1740  962 (S12W47 L=204)   449    125        4 (1690/ 930-1776/ 996)  20.6 W42-W50 S13-S10
     11 1094  645 (S24E00 L=157)   370    137        0 (1024/ 628-1164/ 668)  -7.1 E04-W04 S25-S22
     12  336  532 (S22E57 L=100)  1554    329        4 ( 299/ 448- 380/ 617)  39.8 E64-E51 S27-S17
     13 1564  527 (S38W34 L=192)   310    113        0 (1547/ 481-1579/ 572) -66.8 W32-W36 S41-S34
     14  980  398 (S40E12 L=145)   797    157        2 ( 910/ 355-1049/ 454)  22.6 E18-E06 S42-S36
     15  618  393 (S35E40 L=118)   420    124        0 ( 597/ 353- 639/ 440)  56.3 E43-E37 S37-S31
  

    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