Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  993 1886 (N70E16 L=129)   698     57        1 ( 966/1864-1021/1904)  20.6 E22-E11 N66-N73
      2  816 1569 (N37E19 L=126)   575    177        0 ( 758/1530- 892/1633) -24.8 E25-E12 N34-N41
      3 1688 1517 (N37W58 L=203)  1706    192        3 (1619/1474-1759/1548)   2.7 W47-W68 N33-N39
      4 1450 1480 (N34W30 L=176)   584    123        0 (1403/1440-1486/1510) -26.6 W26-W33 N30-N35
      5 1571 1366 (N26W39 L=184)   457     94        0 (1537/1330-1604/1391) -45.0 W35-W41 N23-N27
      6 1830 1374 (N27W70 L=215)   582     49        0 (1804/1356-1855/1391) -14.0 W66-W74 N25-N27
      7 1307 1363 (N25W18 L=163)   270     58        0 (1277/1348-1338/1381)   0.0 W15-W20 N24-N26
      8 1820 1180 (N14W61 L=206)   683     93        1 (1797/1134-1840/1229) -80.5 W58-W62 N11-N17
      9 1232 1017 (N03W13 L=158)   279     88        0 (1195/ 985-1262/1046)  36.9 W10-W14 N01-N04
     10 1748  856 (S06W52 L=198)   500     27        1 (1722/ 831-1772/ 881)  71.6 W49-W54 S07-S04
     11  409  715 (S20E43 L=103)   831     92        3 ( 367/ 676- 459/ 754) -23.2 E46-E38 S22-S17
     12  205  706 (S23E68 L= 77)  1285    119        0 ( 175/ 657- 239/ 750)  18.4 E81-E60 S26-S19
     13 1031  495 (S32W03 L=149)   292     82        0 ( 990/ 480-1077/ 514) -18.4 W00-W06 S32-S30
     14  784  482 (S34E15 L=130)   604     99        2 ( 739/ 448- 839/ 512) -23.2 E18-E11 S36-S31
  

    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