Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1517 1743 (N35W60 L=345)  1089    120        1 (1474/1698-1576/1778)   5.2 W51-W73 N32-N36
      2 1569 1619 (N26W54 L=339)   545    121        0 (1514/1599-1624/1631) -24.0 W48-W58 N23-N27
      3  998 1428 (N25W06 L=291)  1715    429        2 ( 818/1327-1174/1509)   9.1 E06-W19 N22-N28
      4  314 1388 (N36E48 L=237)   614     75        0 ( 269/1366- 361/1407) -15.3 E53-E42 N34-N38
      5  608 1381 (N30E21 L=264)   259     37        1 ( 585/1354- 629/1404)  56.3 E22-E18 N28-N31
      6  714 1373 (N28E13 L=272)   320     72        0 ( 689/1342- 753/1393)  11.3 E15-E10 N25-N28
      7 1637  913 (S16W37 L=322)  1682    353        1 (1576/ 765-1670/1093)  66.0 W31-W40 S24-S05
      8  546 1054 (N11E28 L=256)   240     34        0 ( 526/1035- 571/1079) -33.7 E29-E26 N10-N12
      9 1515  940 (S12W28 L=313)   276     72        0 (1491/ 903-1542/ 967)  36.9 W26-W30 S14-S10
     10 1350  832 (S16W16 L=301)   219     83        0 (1333/ 791-1372/ 872)  53.1 W14-W17 S17-S13
     11 1722  805 (S25W44 L=329)   403    107        1 (1693/ 758-1750/ 861)  45.0 W41-W46 S27-S21
     12  746  655 (S15E24 L=261)   209     83        0 ( 726/ 611- 776/ 688)  38.7 E26-E21 S17-S13
     13  269  474 (S18E77 L=208)  1830    129        3 ( 228/ 423- 324/ 520) -45.0 E83-E70 S22-S14
  

    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