Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  526 1533 (N26E37 L=  0)  1813    370        3 ( 419/1461- 643/1602) -20.9 E48-E27 N21-N31
      2 1085 1467 (N23W02 L= 40)   427     85        1 (1033/1434-1131/1488)  -9.5 E01-W05 N21-N24
      3 1314 1429 (N22W17 L= 55)   281     54        1 (1287/1409-1352/1449) -14.0 W15-W19 N20-N23
      4  311 1400 (N17E52 L=345)   335     55        1 ( 287/1385- 333/1420) -26.6 E54-E50 N16-N18
      5 1064 1229 (N08W02 L= 39)   257     95        0 (1039/1190-1107/1271) -45.0 W00-W04 N05-N10
      6 1817 1152 (N08W55 L= 93)   394     65        1 (1796/1123-1838/1191) -45.0 W52-W57 N06-N10
      7 1860  875 (S08W62 L=100)  9243   1379       28 (1783/ 628-1952/1172) -81.1 W52-W75 S22-N10
      8  795 1129 (N01E14 L= 24)   258     85        0 ( 757/1099- 839/1148) -75.5 E16-E11 N00-N02
      9  699  966 (S09E20 L= 18)   204     79        0 ( 655/ 941- 738/ 990)  31.0 E22-E17 S10-S07
     10  288  936 (S11E50 L=348)   415     61        0 ( 268/ 898- 303/ 980)  78.7 E52-E48 S13-S08
     11 1446  869 (S11W27 L= 65)   273     71        0 (1428/ 830-1461/ 910) -68.2 W25-W28 S13-S08
     12  201  855 (S16E60 L=338)   586    140        0 ( 170/ 816- 245/ 888)  24.0 E63-E54 S17-S13
     13 1651  669 (S22W46 L= 83)  1691    373        5 (1592/ 554-1690/ 813) -60.6 W38-W50 S29-S13
     14  853  637 (S29E10 L= 28)  1662    282        3 ( 703/ 553-1022/ 750)  31.8 E21-W01 S34-S20
     15  537  651 (S28E33 L=  5)   871    221        1 ( 466/ 586- 615/ 739)  36.9 E39-E25 S32-S22
     16  279  594 (S32E57 L=341)  1802    337        6 ( 206/ 539- 342/ 633)   0.0 E64-E50 S35-S29
     17  616  485 (S40E29 L=  8)   681    142        1 ( 552/ 451- 664/ 525)  20.0 E36-E25 S42-S36
     18 1633  444 (S36W52 L= 90)   921     76        0 (1594/ 412-1666/ 485)  59.0 W49-W54 S38-S33
     19 1170  450 (S40W14 L= 52)   390     64        1 (1133/ 427-1208/ 473)  21.8 W11-W16 S41-S38
  

    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