Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  330 1515 (N17E59 L=138)  3256    262       11 ( 259/1425- 395/1614)  72.9 E68-E52 N11-N24
      2 1382 1553 (N33W17 L=215)   286     91        0 (1344/1527-1405/1596)  56.3 W14-W19 N30-N36
      3 1107 1496 (N24E01 L=196)   457     85        2 (1076/1453-1127/1537) -90.0 E03-W00 N21-N27
      4  591 1511 (N19E36 L=162)   323     82        1 ( 552/1488- 627/1536)  36.9 E38-E33 N17-N20
      5  353 1424 (N12E52 L=145)   705     63        3 ( 319/1391- 382/1452) -33.7 E55-E49 N09-N13
      6 1177 1353 (N16W05 L=202)   409     94        2 (1128/1318-1225/1385)   0.0 W01-W08 N14-N17
      7 1784 1275 (N21W51 L=248)  2231    325        3 (1675/1142-1865/1378) -27.8 W40-W59 N14-N26
      8  446 1228 (N00E40 L=158)   243     75        0 ( 425/1197- 478/1268)  56.3 E40-E37 S01-N02
      9  945 1196 (N03E07 L=190)   339    112        2 ( 907/1151- 984/1239) -31.0 E09-E03 N01-N05
     10 1385  900 (S08W24 L=221)   241     35        1 (1363/ 877-1406/ 923) -33.7 W22-W25 S09-S06
     11  682  800 (S23E19 L=178)   501    119        1 ( 627/ 779- 743/ 826)  -6.3 E23-E14 S24-S22
     12 1320  746 (S18W22 L=220)   662    285        2 (1193/ 695-1440/ 786)  29.7 W15-W29 S22-S14
     13 1636  386 (S34W67 L=265)  1616    189        2 (1539/ 346-1711/ 432)  39.3 W58-W76 S38-S29
  

    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