Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1229 1665 (N39E08 L= 97)  2675    442        7 (1056/1528-1331/1789) -21.4 E25-W03 N31-N43
      2  630 1607 (N18E42 L= 62)   589     98        1 ( 596/1564- 664/1653)  90.0 E44-E40 N14-N21
      3  686 1589 (N18E38 L= 67)   273     59        1 ( 664/1561- 706/1609) -26.6 E39-E35 N16-N19
      4  431 1486 (N06E52 L= 53)   543    136        3 ( 400/1431- 478/1527)  80.5 E53-E49 N02-N08
      5  762 1468 (N12E28 L= 77)   220     53        0 ( 741/1445- 793/1482)  45.0 E29-E26 N10-N13
      6  935 1406 (N13E16 L= 89)   689    243        0 ( 877/1329-1018/1456)  77.5 E18-E10 N07-N16
      7 1197 1356 (N18W01 L=105)   201     70        0 (1166/1343-1247/1367)  26.6 E01-W03 N16-N19
      8  174 1286 (S11E70 L= 35)  1097    193        4 ( 143/1248- 217/1331)  45.0 E73-E65 S13-S07
      9  214 1238 (S13E62 L= 43)   990    147        1 ( 186/1163- 245/1303)  83.7 E64-E59 S17-S08
     10 1675 1166 (N22W36 L=141)  1039    169        2 (1623/1119-1723/1230) -14.0 W32-W40 N17-N25
     11  384 1129 (S16E43 L= 62)   478    129        0 ( 339/1082- 424/1188)  63.4 E45-E40 S19-S11
     12 1162  186 (S50W50 L=155)  1126    191        1 (1125/ 146-1208/ 227)   0.0 W44-W56 S52-S47
     13 1273  184 (S46W56 L=161)  1136    193        2 (1239/ 150-1308/ 226) -18.4 W51-W60 S47-S43
  

    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