Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1446 1726 (N45W53 L=219)   493     60        1 (1424/1692-1470/1748)  45.0 W49-W57 N42-N46
      2 1262 1526 (N34W24 L=191)   258     42        2 (1244/1499-1279/1553) -90.0 W22-W26 N32-N36
      3 1370 1516 (N32W32 L=198)   280     78        1 (1344/1473-1398/1540) -90.0 W29-W34 N29-N33
      4  482 1351 (N31E36 L=130)  1323    331        2 ( 357/1321- 645/1398)   4.6 E48-E22 N28-N32
      5  176 1003 (N10E65 L=102)  2130    270        3 ( 143/ 917- 212/1120) -76.0 E70-E60 N04-N16
      6 1198  995 (N02W10 L=177)   284    130        0 (1184/ 932-1222/1055)  63.4 W08-W12 S01-N05
      7  724  984 (N06E19 L=148)   414    137        0 ( 692/ 924- 748/1050) -76.0 E20-E17 N02-N10
      8 1391  869 (S08W21 L=187)   200     25        0 (1373/ 850-1406/ 894)  63.4 W19-W21 S09-S06
      9 1086  577 (S23E01 L=166)   853    161        5 (1030/ 502-1135/ 645)  84.3 E04-W02 S28-S18
     10 1272  459 (S34W11 L=178)  2905    583        5 (1093/ 362-1426/ 636)  23.5 E01-W22 S40-S23
     11  551  596 (S17E37 L=130)   520     65        3 ( 522/ 564- 583/ 629) -68.2 E39-E34 S19-S14
     12  647  445 (S28E34 L=132)   515     87        0 ( 614/ 425- 690/ 478) -45.0 E36-E31 S29-S25
     13  479  370 (S33E55 L=111)   867    142        1 ( 460/ 302- 505/ 425)  32.9 E65-E48 S39-S28
     14 1408  274 (S54W27 L=193)  1777    290        3 (1314/ 232-1552/ 329)   4.2 W16-W43 S57-S49
  

    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