Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1504 1716 (N54W14 L=249)   597     85        2 (1475/1688-1539/1741)  -7.1 W10-W18 N51-N56
      2  551 1643 (N17E49 L=186)   505    159        0 ( 521/1594- 575/1686) -29.1 E54-E44 N14-N19
      3  487 1624 (N15E53 L=181)   418     60        1 ( 457/1604- 520/1644)  36.9 E55-E51 N13-N16
      4  380 1499 (N05E56 L=179)  1053    172        1 ( 323/1469- 451/1526)  26.6 E61-E50 N02-N07
      5 1039 1494 (N20E12 L=223)   300     92        0 (1007/1470-1093/1515)   9.5 E14-E08 N18-N21
      6 1351 1347 (N20W10 L=245)   324    117        0 (1317/1286-1372/1402) -45.0 W06-W12 N16-N22
      7  232 1282 (S10E61 L=173)   902    169        3 ( 216/1206- 252/1353) -56.3 E66-E58 S14-S05
      8  163 1230 (S14E68 L=167)  2482    300        6 ( 130/1163- 207/1304) -38.7 E75-E61 S17-S09
      9  423 1166 (S13E40 L=194)   234     45        0 ( 402/1141- 444/1192)  63.4 E41-E39 S15-S11
     10  718 1172 (S07E21 L=214)   373    141        0 ( 651/1154- 789/1187)  32.0 E24-E16 S09-S04
     11  386  846 (S33E38 L=197)   894    211        1 ( 310/ 786- 456/ 889)  -8.7 E44-E31 S35-S30
     12  517  815 (S32E27 L=208)   880    148        1 ( 449/ 786- 592/ 839)   9.5 E32-E20 S33-S29
     13  883  738 (S27E00 L=234)   420    108        0 ( 818/ 716- 934/ 757)   8.1 E04-W03 S27-S24
     14 1276  718 (S17W23 L=258)   940    278        0 (1141/ 676-1410/ 747)  15.5 W14-W32 S19-S14
     15 1704  596 (S09W58 L=293)   353     51        0 (1686/ 565-1721/ 627) -76.0 W56-W59 S11-S07
     16 1423  544 (S21W39 L=274)  1428    421        1 (1264/ 464-1560/ 605)  12.3 W29-W52 S26-S16
     17 1141  560 (S29W22 L=256)   256    100        0 (1086/ 542-1189/ 582)   8.1 W17-W24 S30-S28
     18 1696  498 (S14W63 L=298)   795    137        1 (1658/ 441-1750/ 554)  77.5 W61-W65 S18-S09
     19 1217  401 (S36W34 L=269)   625    142        0 (1145/ 379-1288/ 422)  15.3 W28-W39 S38-S33
     20 1659  382 (S21W68 L=303)   805    192        1 (1637/ 350-1675/ 413)  -6.3 W63-W72 S22-S19
  

    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