Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  966 1880 (N56E41 L= 35)  1719    180        5 ( 876/1850-1040/1911)  57.5 E48-E34 N50-N62
      2  680 1564 (N23E36 L= 40)   414    106        1 ( 637/1541- 732/1586)   0.0 E40-E31 N22-N24
      3  579 1504 (N18E41 L= 36)   322     90        1 ( 556/1471- 607/1553) -45.0 E44-E38 N15-N20
      4 1735 1406 (N38W48 L=124)   371     63        1 (1719/1376-1751/1438) -90.0 W45-W50 N36-N40
      5 1280 1245 (N16W11 L= 87)  1208    418        3 (1130/1105-1386/1327) -22.8 W00-W19 N10-N19
      6 1507 1246 (N22W26 L=102)   359     80        0 (1481/1215-1527/1287)  90.0 W24-W27 N19-N24
      7 1406 1253 (N20W19 L= 95)   318     81        0 (1367/1224-1440/1278) -11.3 W16-W21 N18-N20
      8 1525 1171 (N17W28 L=105)   441    113        2 (1477/1139-1578/1191)  29.7 W24-W32 N15-N19
      9 1615  601 (S14W50 L=127)   408     45        1 (1590/ 581-1643/ 620)   0.0 W47-W53 S14-S12
     10 1211  545 (S26W24 L=100)   854    201        1 (1130/ 517-1303/ 584)  35.0 W18-W28 S29-S21
     11  989  483 (S36W11 L= 88)   343    102        0 ( 944/ 471-1042/ 501)  15.9 W07-W14 S37-S33
     12  957  312 (S50W17 L= 93)   307     29        0 ( 937/ 289- 976/ 334) -21.8 W14-W19 S51-S48
     13 1236  243 (S47W46 L=122)  2480    252        4 (1134/ 216-1355/ 297)   9.9 W34-W58 S50-S42
  

    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