Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  715 1783 (N37E47 L= 48)  1472    283        2 ( 683/1683- 760/1845) -63.4 E51-E41 N29-N43
      2  382 1626 (N19E65 L= 30)  1185    255        2 ( 347/1587- 418/1670) -18.4 E70-E58 N16-N21
      3  715 1589 (N24E35 L= 60)   368    151        3 ( 696/1543- 736/1649) -40.6 E39-E31 N20-N27
      4 1187 1578 (N35E04 L= 91)   347    104        0 (1170/1536-1205/1621) -51.3 E06-E02 N32-N37
      5 1665 1489 (N43W37 L=132)   364     80        2 (1647/1459-1680/1517)  78.7 W35-W39 N41-N46
      6 1039 1422 (N21E09 L= 86)   439    190        0 ( 980/1359-1091/1461) -18.4 E12-E03 N17-N23
      7  441 1322 (N02E44 L= 51)   412    179        0 ( 377/1296- 518/1356)  33.7 E48-E39 S01-N05
      8 1319 1188 (N13W14 L=109)   712    226        3 (1287/1049-1348/1277) -61.7 W09-W17 N05-N18
      9 1581 1240 (N23W30 L=125)   259     61        2 (1559/1212-1601/1273)  76.0 W28-W31 N21-N25
     10  179 1147 (S13E64 L= 31)  1889    300        6 ( 136/1072- 213/1235) -60.9 E70-E60 S17-S08
     11  470 1108 (S10E36 L= 59)   271     91        0 ( 435/1085- 515/1125)  31.0 E38-E33 S11-S08
     12 1603 1090 (N15W34 L=129)   506     94        2 (1564/1059-1637/1124)   9.5 W31-W37 N12-N16
     13  419  927 (S22E37 L= 58)   600    171        1 ( 358/ 886- 483/ 969)  37.9 E41-E32 S25-S18
  

    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