Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  523 1607 (N25E45 L=156)   313     70        0 ( 492/1577- 545/1628) -23.2 E48-E41 N23-N26
      2 1028 1570 (N28E08 L=194)   327     44        1 (1000/1543-1050/1594)  63.4 E09-E06 N26-N30
      3  303 1520 (N18E63 L=138)  2757    136        9 ( 240/1468- 355/1585)  24.4 E70-E56 N14-N22
      4 1037 1498 (N23E06 L=196)   339     81        2 (1005/1459-1059/1525) -36.9 E07-E03 N20-N24
      5  314 1429 (N12E57 L=145)   693     56        1 ( 284/1402- 342/1455)   0.0 E59-E53 N10-N13
      6 1113 1358 (N15W01 L=202)   484     97        2 (1066/1323-1160/1399)   0.0 E01-W04 N13-N17
      7 1739 1287 (N21W46 L=248)  2118    283        3 (1631/1182-1819/1383) -29.4 W37-W54 N15-N25
      8  856 1242 (N05E13 L=189)   523    209        1 ( 798/1154- 905/1321) -48.4 E17-E08 N00-N09
      9  481 1254 (N02E37 L=164)   639    204        0 ( 407/1218- 529/1291)  12.5 E43-E34 N00-N04
     10 1317  924 (S08W19 L=220)   279     86        0 (1297/ 895-1341/ 968) -63.4 W17-W20 S09-S05
     11  627  814 (S23E23 L=178)   502    125        1 ( 564/ 796- 686/ 838)   0.0 E27-E18 S24-S21
     12 1271  762 (S18W19 L=220)   725    299        1 (1124/ 711-1393/ 803)  26.6 W10-W26 S22-S13
     13 1136  641 (S27W13 L=214)   733    162        1 (1070/ 603-1215/ 665)  36.9 W08-W17 S30-S24
     14 1691  436 (S30W69 L=270)  3887    295        3 (1576/ 372-1811/ 526)  37.9 W59-W79 S35-S21
  

    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