Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1377 1653 (N35W35 L=180)   278     59        0 (1351/1636-1413/1667)   0.0 W32-W37 N33-N35
      2 1655 1646 (N31W58 L=203)   535    138        0 (1630/1617-1686/1665)  14.0 W53-W61 N29-N32
      3  316 1475 (N36E49 L= 96)  2120    475        2 ( 213/1442- 417/1513) -19.2 E62-E39 N32-N40
      4  143 1137 (N16E64 L= 81)  1426    271        3 ( 113/1072- 172/1198)  60.3 E68-E60 N12-N19
      5  188 1109 (N14E59 L= 87)   796    166        5 ( 156/1062- 212/1181)  50.2 E62-E55 N10-N17
      6  666 1127 (N09E21 L=125)   513     92        0 ( 612/1081- 710/1172) -50.2 E23-E18 N06-N12
      7  243 1123 (N14E53 L= 93)   507     96        2 ( 217/1090- 269/1164)  68.2 E55-E50 N11-N16
      8  857 1022 (N01E10 L=136)   367    107        1 ( 825/ 960- 892/1075)  45.0 E12-E07 S02-N03
      9 1875 1003 (S11W61 L=207)   433     66        1 (1861/ 977-1899/1028) -90.0 W59-W64 S12-S09
     10 1468  908 (S12W26 L=172)   299     62        1 (1441/ 871-1493/ 933)  45.0 W24-W28 S14-S10
     11 1324  697 (S24W15 L=161)   669    247        0 (1201/ 664-1443/ 740)   0.0 W07-W23 S25-S21
     12 1677  548 (S38W45 L=191)   352     56        0 (1664/ 511-1692/ 575)  90.0 W43-W46 S40-S36
     13  430  448 (S29E52 L= 93)  1063    174        0 ( 412/ 375- 447/ 514)  63.4 E55-E48 S34-S24
     14 1111  413 (S41E02 L=144)   319     53        1 (1089/ 388-1141/ 434)  45.0 E03-W00 S42-S38
  

    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