Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1498 1716 (N54W13 L=249)   502     71        2 (1472/1693-1531/1739)  29.7 W10-W17 N51-N56
      2  546 1643 (N17E50 L=186)   500    147        0 ( 517/1597- 570/1685) -29.1 E54-E45 N14-N19
      3  484 1624 (N15E54 L=182)   439     56        2 ( 454/1601- 517/1643)  36.9 E55-E51 N13-N16
      4  414 1517 (N07E54 L=181)  1494    257        3 ( 327/1480- 515/1577)  21.8 E62-E47 N03-N11
      5 1023 1499 (N20E13 L=222)   381     89        1 ( 990/1474-1081/1529)  31.0 E15-E09 N17-N21
      6 1344 1352 (N20W09 L=245)   311    109        0 (1310/1292-1365/1405) -39.8 W06-W12 N17-N22
      7  186 1247 (S13E65 L=170)  3463    492        8 ( 127/1159- 248/1348)  85.2 E75-E58 S18-S06
      8  721 1175 (S06E21 L=214)   285    117        0 ( 663/1165- 780/1185)  23.2 E24-E17 S07-S04
      9  459  835 (S32E32 L=204)  1413    352        4 ( 301/ 787- 587/ 891)   4.8 E45-E21 S34-S29
     10  876  742 (S27E01 L=234)   415    123        0 ( 810/ 718- 929/ 760)   8.1 E05-W02 S27-S24
     11 1268  722 (S17W23 L=258)   907    280        0 (1134/ 681-1403/ 750)  16.4 W14-W31 S19-S14
     12 1692  542 (S12W60 L=295)  1077    248        1 (1654/ 440-1720/ 650) -56.3 W55-W64 S18-S06
     13 1500  538 (S19W45 L=280)   721    240        0 (1437/ 466-1555/ 609) -15.9 W37-W52 S21-S16
     14 1335  556 (S24W33 L=269)   598    166        1 (1261/ 533-1423/ 595)  41.2 W28-W37 S26-S18
     15 1212  404 (S36W34 L=269)   647    134        1 (1146/ 383-1284/ 430)  15.3 W28-W39 S37-S33
  

    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